Convertir imágenes a formatos diferentes con VFP9 y GDI+

Artículo original: CONVERT IMAGE TYPES WITH VFP9 AND GDI+
http://weblogs.foxite.com/vfpimaging/archive/2006/02/07/1126.aspx
Autor: Cesar Ch.
Traducido por: Ana María Bisbé York

---

Este fragmento de código carga una imagen y la guarda en la misma carpeta original en un formato soportado por GDI+

LOCAL lcSource, lcDestination
lcSource = GETPICT()
lcDestination = JUSTPATH(lcSource) + "\_" + JUSTSTEM(lcSource)

LOCAL loImage AS GpImage OF HOME() + ffc/_gdiplus.vcx
loImage = NEWOBJECT("GpImage", HOME() + "ffc/_gdiplus.vcx")
loImage.CreateFromFile(lcSource)
loImage.SaveToFile(lcDestination + ".jpg","image/jpeg")
loImage.SaveToFile(lcDestination + ".bmp","image/bmp")
loImage.SaveToFile(lcDestination + ".tif","image/tiff")
loImage.SaveToFile(lcDestination + ".gif","image/gif")
loImage.SaveToFile(lcDestination + ".png","image/png")

*!* JPEGs permite seleccionar la calidad de la imagen

loImage.SaveToFile(lcDestination + ".jpg","image/jpeg", "quality=70")

---