FoxPro/Visual FoxPro - CONVERTIR IMAGEN

   
Vista:

CONVERTIR IMAGEN

Publicado por Carlos (32 intervenciones) el 10/03/2011 05:44:23
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!!!!!!
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

CONVERTIR IMAGEN

Publicado por Angel Ricardo Piedrabuena (88 intervenciones) el 10/03/2011 12:55:37
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
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

CONVERTIR IMAGEN

Publicado por Rodrigo Dinamarca M. rdinamata@gmail.com (1 intervención) el 10/03/2011 16:39:41
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.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

CONVERTIR IMAGEN

Publicado por FER (1 intervención) el 16/02/2012 17:41:24
Muchísimas gracias Rodrigo, lo del irfanview me ha parecido genial!
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

CONVERTIR IMAGEN

Publicado por Ricardo Manrique ricardo.manrique@ups.com (1 intervención) el 29/05/2012 00:08:41
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
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar