>#include gpImage.h >If Not "gpImage" $ Set("Procedure") > Set Procedure To gpImage Additive >EndIf > >gdip = CreateObject("gpInit") >img = CreateObject("gpImage") > >lnPics = ADIR(aPics,'*.JPG') >FOR i = 1 To lnPics > img.Load(aPics[i,1]) > img.Resize(160, 120, InterpolationModeHighQualityBicubic) > img.SaveAsJPEG('_'+aPics[i,1]) >ENDFOR >When trying to run it as:
#include gpImage.h If Not "gpImage" $ Set("Procedure") Set Procedure To gpImage Additive EndIf gdip = CreateObject("gpInit") img = CreateObject("gpImage") * Create thumbnail and store as JPEG img.Load("d:\iis\asap\Event\LasVegas\100-0006_IMG.JPG") img.Thumbnail(160, 120) img.SaveAsJPEG("d:\iis\asap\Event\LasVegas\Thumbnail\100-0006_IMG.JPG")I get a GDI+ error in GPIMAGES.SAVEASJPEG.