FoxPro/Visual FoxPro - CONVERTIR IMAGEN

Hola necesito saber si hay algún código en Visual Foxpro que permita convertir imagenes JPG a BMP.-

Espero respuestas muchas gracias de antemano

Saludos!!!!!!

Cesar Chalom (http://weblogs.foxite.com/cesarchalom/default.aspx) nos propone este fragmento de código que 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")

espero te sea util
Cordiales saludos

Si no te quieres complicar, incluye irfanview en la carpeta de tu aplicación, es portable y lo puedes usar para convertir la imagen en JPG en BMP, GIF, TIFF, PCX o en el formato que quieras por línea de comandos desde Visual Fox.

Al utilizar Irfanview en modo línea de comandos no se abre la interzaz del programa y nadie se da cuenta de que estás utilizando un programa externo, el uso es transparente para el usuario.

Basta con que le asignes el siguiente código a un botón y hará lo que quieres:

RUN /N i_view32.exe c:\test.jpg /convert=c:\test.bmp

Si además quieres redimensionar la imagen, puedes poner lo siguiente:

RUN /N i_view32.exe c:\test.jpg /resize=(500,300) /aspectratio /convert=c:\test\*.bmp
(La opción /aspecratio permite conservar la relación de aspecto al redimensionar)

Puedes reemplazar los nombres de archivo utilizando macrosustitución de la siguiente forma:

var1= "c:\test.jpg"
var2= "c:\test.bmp"

RUN /N i_view32.exe &var1 /convert=&var2

Usando Irfanview como complemento incluso puedes obtener imágenes desde el scanner para usar en tu aplicación. Para conocer las opciones de línea de comandos de Irfanview visita la página: http://iv.atspace.org/pages/hlp_command_line.html

Puedes descargar Irfanview desde: http://www.irfanview.com (también está disponible la actualización al español)

Una vez instalado, puedes copiar la carpeta del programa donde quieras y funcionará pues Irfanview es portable por naturaleza.

Saludos y ojalá te sirva,


Rodrigo Dinamarca M.

Muchísimas gracias Rodrigo, lo del irfanview me ha parecido genial!

Cesar buenas tardes

Una pregunta, estoy creando un documento en un archivo RTF de word a partir de una serie de comando, tales como

SaveToFile CartaReport, " Bogotá, D.C. " & Smt_PuDate & NL
SaveToFile CartaReport, NL & NL & NL & NL
SaveToFile CartaReport, " Señores" & NL
SaveToFile CartaReport, " POLICIA NACIONAL" & NL
SaveToFile CartaReport, " DIVISION ANTINARCOTICOS" & NL
SaveToFile CartaReport, " Bogotá, D.C." & NL

Necesito insertar en ese archivo, el logo del cliente que es un archivo JPEG, usted sabe cual comando debo utilizar?

Gracias

Slds

Estimado, esa versión portable se puede distribuir comercialmente?
Gracias.

Algo exactamente así pero para vfp7 ???
Muchas gracias.