The thumbnail quality on my image control is what I want to save.

[sfr10000]

I have tried Calvin Hsia's and Ceasar Chalom's GDI+ code to pre-create thumbnails, however, the images appear severely out of focus. When my thumbnail size photo is displayed on my form in the image control, the quality is very acceptable. I have tried useing "savetofile" after my photo is displayed on my form, but I get an error message, "cannot find savetofile". The code I am trying is as follows:

ppath = "photos\"
pname = TRIM(photodir.picname)
thisform.image1.Picture[1] = ppath + pname
set Classlib To Home()+"ffc/_gdiplus"
cfilename = TRIM(photodir.picpath) + TRIM(photodir.picname)
lcDestination = "thumbnails\" + JUSTSTEM(cfilename)+".jpeg"
othumb = thisform.image1
othumb.SaveToFile(lcDestination, "image/jpeg")

Any ideas ?

 

[Mike Gagnon]

Try this

othumb.SaveToFile(lcDestination, "image/jpeg",[b]"quality=100")[/b]

Mike Gagnon

If you want to get the best response to a question, please check out FAQ184-2483 first.
ReFox XI (www.mcrgsoftware.com)