[ dava @ 28.02.2008. 13:27 ] @
Da li neko zna na koji nacin bih mogao izvrsiti resize slike (jpg fajl) i snimanje iz VB koda?
[ Aleksandar Ružičić @ 28.02.2008. 14:08 ] @
pa trebalo bi ovako nekako:
Code:

Dim pic As StdPicture

Set pic = LoadPicture("c:\slika.jpg", 0, 0, 400, 600) ' resizujes na 400x600
SavePicture pic, "c:\slika_resized.jpg"

mada nisam probao, to bi u teoriji tako radilo :)

inace ja sam za te stvari korisito gdi+
[ dava @ 28.02.2008. 16:52 ] @
Ma probao sam ja tako ali nisam dobio zeljeni rezultat. Doduse nisam ti detaljnije objasnio problem. Imam gomilu slika (jpg fajlovi velicine ~2 MB) i nalaze se po folderima. Ja bih htio da pustim programcic koji ce protrcati kroz sve foldere (to sam napravio) i smanjiti im pixele sa 1600x1200 na 1024x768 pa i po mogucnosti DPI.

Code:

Set pic = LoadPicture("c:\Slika.jpg", 0, 0, 400, 600)
SavePicture pic, "c:\Slika_resized.jpg"

Ovako dobijem fajl pet puta veci???
[ Eurora3D Team @ 28.02.2008. 17:24 ] @
SavePicture metod snima sliku u bmp (nekompresovanom) formatu bez obzira na ekstenziju koju stavis.
Tebi treba neki kod koji konvertuje i moze da snimi u JPG.
[ Aleksandar Ružičić @ 28.02.2008. 18:31 ] @
e da, to sam zaboravio da napomenem :)
SavePicture cuva fajl u formatu BMP, kao sto rece Eurora3D Team.

kao sto sam ti rekao, ja sam za te stvari koristio GDI+, potrazi na www.pscode.com i na www.vbaccelerator.com gdi+ type library, i videces kako mozes da koristis GDI+ u vb-u, ako ne nadjes u tim primerima to sto ti treba (risajzovajne slike) pogledaj na MSDN-u i trazi GDI+ Flat API, tu su ti objasnjene sve funkcije koje mozes da nadjes u pomenutoj type biblioteci