 Autor
|
Tema: Abrir imagen en binario (Leído 5,370 veces)
|
xDie
 Desconectado
Mensajes: 326
lol
|
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!!!
|
|
|
|
|
En línea
|
Licence to kill!
|
|
|
WarGhost
I love basket
Desconectado
Mensajes: 1.070
|
para ejecutarla o para sacar la data de esa img?
|
|
|
|
|
En línea
|
|
|
|
xDie
Desconectado
Mensajes: 326
lol
|
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
|
|
|
|
|
En línea
|
Licence to kill!
|
|
|
WarGhost
I love basket
Desconectado
Mensajes: 1.070
|
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.
|
|
|
|
|
En línea
|
|
|
|
xDie
Desconectado
Mensajes: 326
lol
|
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 On Error Resume Next
Open Dialogo.FileName For Binary As #1
Fichero = Space(LOF(1))
Get #1, , Fichero
txtdatos.Text = Fichero
Close #1
|
|
|
|
|
En línea
|
Licence to kill!
|
|
|
WarGhost
I love basket
Desconectado
Mensajes: 1.070
|
lo e probado y este codigo si que me va: 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 |
|
|
|
|
En línea
|
|
|
|
<--v1c1ous-->
Desconectado
Mensajes: 776
¡Operadora! ¡Deme el número para el 911! - Homero
|
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.
|
|
|
|
|
En línea
|
|
|
|
xDie
Desconectado
Mensajes: 326
lol
|
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.
|
|
|
|
|
En línea
|
Licence to kill!
|
|
|
<--v1c1ous-->
Desconectado
Mensajes: 776
¡Operadora! ¡Deme el número para el 911! - Homero
|
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 línea
|
|
|
|
xDie
Desconectado
Mensajes: 326
lol
|
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?
|
|
|
|
|
En línea
|
Licence to kill!
|
|
|
|
 |
