Convertir una imagen en hexadecimal
1,723 views
Skip to first unread message
Irwin Rodriguez
Nov 13, 2014, 6:58:47 PM11/13/14
to publice...@googlegroups.com
Hola a todos.
Resulta que me toca convertir una imagen en hexadecimal y pues realmente no he podido hacerlo con VFP, he intentado con FILETOSTR() pero me devuelve una serie de caracteres que no se asemejan en nada a lo que quiero.
Les adjunto un archivo PNG donde hay una imagen convertida en hexadecimal que me envió un colega que lo hace con otro lenguaje. He intentado con el ejemplo del amigo Victor Espina pero el resultado esta muy lejos del deseado, arroja algo como esto.
ZDpccHJvZ3JhbWFjaW9uXHZmcFxkZXNhcnJvbGxvc1xzdG10b29sc1xodWVsbGFz
XHYtMTY3OTUzNjBfZGlfMS5ibXA=
Saludos a todos!
Resulta que me toca convertir una imagen en hexadecimal y pues realmente no he podido hacerlo con VFP, he intentado con FILETOSTR() pero me devuelve una serie de caracteres que no se asemejan en nada a lo que quiero.
Les adjunto un archivo PNG donde hay una imagen convertida en hexadecimal que me envió un colega que lo hace con otro lenguaje. He intentado con el ejemplo del amigo Victor Espina pero el resultado esta muy lejos del deseado, arroja algo como esto.
ZDpccHJvZ3JhbWFjaW9uXHZmcFxkZXNhcnJvbGxvc1xzdG10b29sc1xodWVsbGFz
XHYtMTY3OTUzNjBfZGlfMS5ibXA=
Saludos a todos!
Víctor Hugo Espínola Domínguez
Nov 13, 2014, 9:51:59 PM11/13/14
to publice...@googlegroups.com
Hola Irwin
La imagen que muestras es simplemente la representación visual de los bytes en hexadecimal generada por el programa Notepad++, pero el contenido del archivo es el que puedes obtener en una variable string usando la función FILETOSTR().
Si lo que quieres es convertir el archivo de manera que cada byte se convierta a dos bytes que sean su representación en hexadecimal, entonces te servirá este código:
lcArchImagen = Getpict()
lcBytesImagen = Filetostr(lcArchImagen)
lcHexImagen = ""
For lni = 1 To Len(lcBytesImagen)
lnAscii = Asc(Substr(lcBytesImagen, lni, 1))
lcHexImagen = lcHexImagen + Right(Transform(lnAscii, "@0"), 2)
Endfor
? lcHexImagen
Saludos,
Víctor.
Lambaré - Paraguay.
Irwin Rodriguez
Nov 13, 2014, 10:09:15 PM11/13/14
to publice...@googlegroups.com
Hola Victor,
El notepad++ no fue quien convirtió la imagen en hexadecimal, asi me la enviaron en una hoja de excel y lo que hice fue pegarla allí.
Tu ejemplo funciona correctamente.
Tu ejemplo funciona correctamente.
Saludos y gracias!
--
Ing. Irwin Rodríguez
Consultor Informático
"Las ideas son fuerzas intangibles, pero tienen más poder que el cerebro físico de donde nacen. Tienen el poder de seguir viviendo, aún después de que el cerebro que las ha creado haya regresado al polvo"
NOTA: La información mostrada en este mensaje es de caracter Confidencial y está dirigida unicamente a los contactos señalados en el encabezado; si el lector de este correo no es el destinatario del mismo, se le notifica que cualquier copia o distribución queda totalmente prohibida. Si usted ha recibido este mensaje por error, por favor notifique inmediatamente al remitente por este mismo medio y bórrelo de su sistema.
Víctor Hugo Espínola Domínguez
Nov 13, 2014, 10:20:25 PM11/13/14
to publice...@googlegroups.com
No hay por donde ;-)
Carlos Miguel FARIAS
Nov 14, 2014, 5:43:50 AM11/14/14
to Grupo Fox
Hoy es viernes, debería por donde ! ;-D
Reply all
Reply to author
Forward
0 new messages