hola a todos
tengo una duda con visualizar una imagen en visual basic
pero a la vez ver su codigo hexadecimal...
modificarlo y guardarlo
nose si me explico, les dejo una imagen del proyecto que quiero hacer
(http://www.mundoimg.com/imagenes/otros/223340_mundoimg_xd.jpg)
quiero abrir una imagen y en el textbox se vea su codigo hexadecimal
poder modificar ese codigo y luego poder guardarlo...
:)
como podria hacerlo... talves alguien tenga alguna guia o ayuda q pueda compartir
conmigo :D
gracias de antemano
proba:
Convert image to Hex (http://www.vbforums.com/showthread.php?t=484987)
aver si lo tradusco y consigo algo
muchas gracias por responder
Como que me hice bolas :-\
alguien podria ayudarme con esto
es que no se bien trabajar con Hex... :huh:
Hola!
El link de seba123neo no tiene otra cosa mas que la lectura del archivo de imagen en una matriz de bytes, y luego la conversion de dicha matriz a cadena de caracteres. La conversion la hace representando cada byte de la matriz, como valor hexadecimal.
Ahora... ¿ es eso lo que quieres hacer ?. ¿ Solamente cargar un archivo de imagen en un array de bytes y despues convertir dichos bytes en una cadena Hexa?
Saludos!
Cita de: MCKSys Argentina en 17 Enero 2010, 04:50 AM
Hola!
El link de seba123neo no tiene otra cosa mas que la lectura del archivo de imagen en una matriz de bytes, y luego la conversion de dicha matriz a cadena de caracteres. La conversion la hace representando cada byte de la matriz, como valor hexadecimal.
Ahora... ¿ es eso lo que quieres hacer ?. ¿ Solamente cargar un archivo de imagen en un array de bytes y despues convertir dichos bytes en una cadena Hexa?
Saludos!
De seguro también quiere editar el código hexadecimal y guardar los cambios. En el mismo enlace que posteo
seba123neo, mas abajo se encuentra la función "Hex2ByteArr" para convertir de cadena de caracteres a matriz de bytes para que lo guardes los cambios en la imagen. Luego luego podrías cargar de nuevo la imagen en el PictureBox para visualizar los cambios.
:rolleyes:
mira mi post de HexAndString
copea y mete en un podulo despues mete este codigo:
Sub main()
Dim Datos As String
Dim ff As Integer
Const Ruta As String = "c:\archivox.txt"
ff = FreeFile
Open Ruta For Binary As ff
Datos = Space(LOF(ff) )
Get ff, , Datos
Close ff
MsgBox Datos
MsgBox HexAndString(Datos, StringToHex)
End Sub
Dulces Lunas!¡.
gracias a todos por responder
Cita de: al-hacker en 17 Enero 2010, 21:18 PM
De seguro también quiere editar el código hexadecimal y guardar los cambios.
exactamente eso :)
pero en el link q puso seba123neo
como que no logro entender ese code
Stoy un Poko bajo en esto... :-\
hola
weno me sirvio de mucha ayuda seba123neo
ya pude leer una imagen ...
Hola!
Puedes probar algo asi:
Dim Matriz() as byte
Dim ruta as string
Matriz =Hex2ByteArr(text1.text)
ruta = app.path + "\imagen.bin"
open ruta for binary access write as #1
put #1,, Matriz
close #1
Saludos!