Abrir imagen en binario

[xDie]

Hola estoy haciend un programa y para que me abra una imagen eh visto post y rpbe no tube resultado.. ahroa me sale un error de qeu no es variable soportada.. como hago para abrir una imagen en bmp por ejemplo?
Grascias!!!

[WarGhost]

para ejecutarla o para sacar la data de esa img?

[xDie]

para ejecutarla o para sacar la data de esa img?

Para sacar los datos, vi los codes de este foro pero ninguno me sirvio, no se si tengo que lear el archivo linea por line con do while o solamente input.. Gracia war

[WarGhost]

Código [Seleccionar] Expandir

dim fichero as string
open  "C:\Imagen" & ".bmp" For Binary As #1
Fichero = Space(LOF(1))
Get #1, , Fichero
Close #1

con ese codigo sacas los data de la imagen.

[xDie]

Código [Seleccionar] Expandir

dim fichero as string
open  "C:\Imagen" & ".bmp" For Binary As #1
Fichero = Space(LOF(1))
Get #1, , Fichero
Close #1

con ese codigo sacas los data de la imagen.

Tengo lo mismo pero en evs de usar get uso input #1, Fichero.. probe elq eu em diste y no me lo abre
te meustro lo que tengo

Código [Seleccionar] Expandir


On Error Resume Next

Open Dialogo.FileName For Binary As #1
Fichero = Space(LOF(1))
Get #1, , Fichero

txtdatos.Text = Fichero

Close #1


[WarGhost]

lo e probado y este codigo si que me va:

Código [Seleccionar] Expandir


Private Sub Form_Load()
Dim Fichero As String
On Error Resume Next
cd.ShowOpen

Open cd.FileName For Binary As #1
Fichero = Space(LOF(1))
Get #1, , Fichero
txtdatos.Text = Fichero
Close #1
End Sub

no se porque no te va a ti :S

[<--v1c1ous-->]

Dim Buff as String
Open "C:\Imagen.bmp" For Binary Access Read As #1
Buff = Space(LOF(1))
Get #1, , Buff
Close #1

No te funciona porque en ningun textbox vas a cargar el binario y poder leerlo, solo lee los caracteres legibles de mapa de caracteres.

Si explicas que es lo que queres lograr con todo esto se te va a poder ayudar mejor, de otra forma, ya se te respondio como se abre una imagen en binario.

[xDie]

Dim Buff as String
Open "C:\Imagen.bmp" For Binary Access Read As #1
Buff = Space(LOF(1))
Get #1, , Buff
Close #1

No te funciona porque en ningun textbox vas a cargar el binario y poder leerlo, solo lee los caracteres legibles de mapa de caracteres.

Si explicas que es lo que queres lograr con todo esto se te va a poder ayudar mejor, de otra forma, ya se te respondio como se abre una imagen en binario.

Aaaa puede ser por eso si?, solo me muestra unos numeros... lo que quiero es como hace el notepad que abris una imagen y te la abre en binario  Gracias WarGhost y Hotmail_pop3.

[<--v1c1ous-->]

lo que quiero es como hace el notepad que abris una imagen y te la abre en binario

Sensillamente porque el notepad no la abre en binario.

[xDie]

lo que quiero es como hace el notepad que abris una imagen y te la abre en binario

Sensillamente porque el notepad no la abre en binario.

En qeu te la abre?