Information générale
Catégorie:
Photos et traitement d'images
Titre:
Problem converting a file in BMP format
Versions des environnements
Network:
Windows 2003 Server
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
Voir le fil de ce thread
Voir le fil de ce thread à partir de ce message seulement
Voir tous les messages de ce thread
Voir tous les messages de ce thread à partir de ce message seulement