I am running VFP9 and am trying to get the GDI class to resize an image im002.bmp - my code is as follows
* Initalize GDI+
Set CLASSLIB to "_Gdiplus.vcx" Additive
* Load the original image
Local loFile
loFile = CreateObject("gpBitmap")
loFile.CreateFromFile("im002.bmp")
* new bitmap 3 times as large (scale factor 200%)
Local loBitmap
loBitmap = CreateObject("gpBitmap")
loBitmap.Create(loFile.ImageWidth*3,loFile.ImageHeight*3)
* insert the scaled image into the new bitmap
Local loGP
loGP = CreateObject("gpGraphics")
loGP.CreateFromImage( m.loBitmap )
loGP.DrawImageScaled( m.loFile, 0,0,loFile.ImageWidth*3,loFile.ImageHeight*3 )
* Save as JPG.
loBitmap.SaveToFile("test.jpg","im20.jpg")
I get this error
GDI + Object not created or associated
gpBitmap
What is the problem?
Thanks
Specialist in Advertising, Marketing, especially Direct Marketing
I run courses in Business Management and Marketing