Restored from previous forum. Originally posted by LiNuX.
Re:
This procedure loads many different image formats
by using the free NVIEWLIB.DLL available here:
http://www.programmersheaven.com/file.asp?FileID=2045
Check the Quality of the resized Image=?????
Code: Select all
OpenLibrary(0,"NVIEWLIB.dll")
AddrImage = CallFunction(0,"NViewLibLoad",@"test.jpg",0)
CreateImage(0,640,480)
StartDrawing(ImageOutput(0))
DrawImage(AddrImage,0,0)
StopDrawing()
ResizeImage(0,120,91)
SaveImage(0,"temp.bmp")
AddrImage = CallFunction(0,"NViewLibLoad",@"temp.bmp",0)
AddrImage = CallFunction(0,"NViewLibSaveAsJPG",100,@"hm.jpg")
CloseLibrary(0)
End
