Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Converting Graphic Image Formats
Message
From
14/10/2005 10:15:04
 
General information
Forum:
Visual FoxPro
Category:
Other
Environment versions
Visual FoxPro:
VFP 9
OS:
Windows XP SP2
Database:
Visual FoxPro
Miscellaneous
Thread ID:
01058525
Message ID:
01059126
Views:
19
HOW CAN I CONVERT AN IMAGE FILE TO ANOTHER FORMAT ?

The example below asks for an image and saves it in 5 formats supported by GDI+
This uses GPIMAGE.PRG, from Alexander Golovlev. Works with older versions of VFP.
If you have VFP9, you can use _gdiplus.vcx
#include gpImage.h 
If Not "gpImage" $ Set("Procedure") 
   Set Procedure To gpImage Additive 
EndIf 

gdip = CreateObject("gpInit") 
img = CreateObject("gpImage") 

lcFile = GETPICT() 
img.Load(lcFile) 
lcDestFile = "_" + JUSTSTEM(lcFile) 

img.SaveAsJPEG(lcDestFile) 
img.SaveAsTIFF(lcDestFile) 
img.SaveAsBMP(lcDestFile) 
img.SaveAsGIF(lcDestFile) 
img.SaveAsPNG(lcDestFile) 

img  = NULL 
gdip = NULL
You can download GPIMAGE from UT downloads or an enhanced version from this link
http://cchalom.sites.uol.com.br/GPIMAGE/index.htm
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform