HOME

How to resize image with ASP and GdPicture ActiveX

<%
Dim Imaging

Set Imaging = Server.CreateObject("gdpicturepro5.Imaging")

Call Imaging.SetLicenseNumber ("0012345678910111213141516") 'Demo code version
Call Imaging.CreateImageFromFile ("c:\image.tif")

If Imaging.ResizeImage(1024, 780, 6) = 0 Then '6 is the Interpolation Mode HighQuality Bilinear
Call Imaging.SaveAsJpeg( "c:\newimage.jpg", 90 )'90 is the quality of the new image
End If

Imaging.CloseNativeImage
Set Imaging = Nothing
%>