General information
Category:
Pictures and Image processing
Title:
Problem converting a file in BMP format
Environment versions
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....
Next
Reply
View the map of this thread
View the map of this thread starting from this message only
View all messages of this thread
View all messages of this thread starting from this message only