Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Problem converting a file in BMP format
Message
 
À
Tous
Information générale
Forum:
Visual FoxPro
Catégorie:
Photos et traitement d'images
Titre:
Problem converting a file in BMP format
Versions des environnements
Visual FoxPro:
VFP 9 SP2
OS:
Windows XP SP2
Network:
Windows 2003 Server
Database:
Visual FoxPro
Application:
Desktop
Divers
Thread ID:
01638996
Message ID:
01638996
Vues:
67
i have a problem converting an image in png format to bmp....The image contains a signature (signature in black and backcolor in white)....When converted it si all black.
The code i use is this:

Function ConvertImage
Lparameters lcSource, lcType
lcType = Upper(lcType)
Local lcDestination
lcDestination = justpath(lcSource) + "\" + juststem(lcSource)

local loImage as gpimage of home() + "ffc/_gdiplus.vcx"
loImage = newobject("gpimage", home() + "ffc/_gdiplus.vcx")
loImage.CreateFromFile(lcsource)
Do Case
Case lcType = "JPG"
lcDestination = lcDestination + ".jpg"
loImage.SaveToFile(lcDestination,"image/jpeg")
Case lcType = "BMP"
lcDestination = lcDestination + ".bmp"
loImage.SaveToFile(lcDestination,"image/bmp")
Case lcType = "TIFF"
lcDestination = lcDestination + ".tif"
loImage.SaveToFile(lcDestination,"image/tiff")
Case lcType = "GIF"
lcDestination = lcDestination + ".gif"
loImage.SaveToFile(lcDestination,"image/gif")
Case lcType = "PNG"
lcDestination = lcDestination + ".png"
loImage.SaveToFile(lcDestination,"image/png")
EndCase

Return lcDestination

What can i do ? I have to convert this image because in Crystal Reports i have some problems to print a general field when contains in image in png format....
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform