Ayuda con Hex

[NsTeam]

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



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

gracias de antemano

[seba123neo]

proba:

Convert image to Hex

[NsTeam]

aver si lo tradusco y consigo algo

muchas gracias por responder

[NsTeam]

Como que me hice bolas 

alguien podria ayudarme con esto

es que no se bien trabajar con Hex...

[MCKSys Argentina]

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!

[Snopk]

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.

[BlackZeroX]

mira mi post de HexAndString

copea y mete en un podulo despues mete este codigo:

Código (vb) [Seleccionar] Expandir



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!¡.

[NsTeam]

gracias a todos por responder

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...

[NsTeam]

hola

weno me sirvio de mucha ayuda seba123neo

ya pude leer una imagen ...

[MCKSys Argentina]

Hola!

Puedes probar algo asi:

Código [Seleccionar] Expandir


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!