elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado:


+  Foro de elhacker.net
|-+  Programación
| |-+  Programación General
| | |-+  .NET (C#, VB.NET, ASP)
| | | |-+  Programación Visual Basic (Moderadores: LeandroA, seba123neo)
| | | | |-+  Leer Datos Binarios		0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] Ir Abajo Respuesta Imprimir
Autor Tema: Leer Datos Binarios  (Leído 2,517 veces)
David Vans

Desconectado Desconectado

Mensajes: 193


Ver Perfil
Leer Datos Binarios
« en: 10 Abril 2007, 18:42 pm »
Hola queria saber como puedo ler los datas de un archvo binario a si mismo o si no copairlo asi mimso y abrir la copia y guradar en un varible los datos binarios,
mi problema es asceso denegado ya que se encuntra en ejcucion porque es  el mismo exe quein lo quere recoger
En línea
~~
Ex-Staff
*
Desconectado Desconectado

Mensajes: 2.981


Ver Perfil WWW
Re: Leer Datos Binarios
« Respuesta #1 en: 10 Abril 2007, 19:23 pm »
Pues q raro.. yo uso esto:

Código:
Private Sub Form_Load()
Open App.Path & "\nombre.exe" For Binary As #1
Dim Todo As String
Todo = Space(LOF(1))
Get #1, , Todo
Close #1
MsgBox Todo
End Sub

siendo nombre.exe el nombre del archivo y me funciona..


Si prefieres copiarte usa el omando filecopy  :xD
En línea
David Vans

Desconectado Desconectado

Mensajes: 193


Ver Perfil
Re: Leer Datos Binarios
« Respuesta #2 en: 10 Abril 2007, 19:51 pm »
Código:
Open App.Path & App.EXEName & ".exe" For Binary As #1
Dim Todo As String
Todo = Space(LOF(1))
Get #1, , Todo
Close #1
MsgBox Todo
No me devuleve nada Todo =""
Estando el file abrito no te lee nada porque otro proceso esta usando el exe que es el mismo.
Y filecopy a veces me funciona y otras veces me da error 5 en timpod e ejecucion
En línea
DrakoX

Desconectado Desconectado

Mensajes: 191



Ver Perfil
Re: Leer Datos Binarios
« Respuesta #3 en: 10 Abril 2007, 20:36 pm »
te doy 2 posible soluciones,
cuando lo ejecutes primero procurra haber creado el exe y luego ejecutarlo,
si esto no funciona
cambia el space y pone,
Código:
Input(LOF(1), 1)
habiendo creado el exe antes de ejecutarlo.

salu2 y suerte
En línea
SheKeL_C$


Desconectado Desconectado

Mensajes: 549


_-=[Sh3K3L_C$]=-_


Ver Perfil
Re: Leer Datos Binarios
« Respuesta #4 en: 10 Abril 2007, 20:43 pm »
El problema es que lo estas depurando sin haberlo generado.. haz lo siguiente da a archivo -> generar.

Al menos tu problema me pasaba a mi así
En línea
David Vans

Desconectado Desconectado

Mensajes: 193


Ver Perfil
Re: Leer Datos Binarios
« Respuesta #5 en: 10 Abril 2007, 20:46 pm »
Mi idea es que el exe une varios ficheros exe entocnes cundo gunto varios ficheros necesito poner  el primero el propio exe que los junta y luego los otros en un mismo fihcero.exe

Enotnces cundo se ejcute el exe se va ejeceutar solo mi ejecutable.exe y va a mirar su tamañao y si es mayor de lo normal significa que el ficehro ya esta montado y su mision ser separa los ficheros y jecutarse entocnes se ejecuta de forma invisible en segundo plano y si se abre y el tamaño es el que tien que ser sin niguna union su mision sera añadir files me explico .
entocnes si hemos unido 20 mb luego el exe tendra que copiar los 20 mb en otro sitio y tarda mucho  me interesaria abrirlo de alguna forma y leer sus datos

Perdon por la ortografi tengo un poco de prisa
GRacias por vuestro tiempo
En línea
David Vans

Desconectado Desconectado

Mensajes: 193


Ver Perfil
Re: Leer Datos Binarios
« Respuesta #6 en: 10 Abril 2007, 20:49 pm »
Citar
El problema es que lo estas depurando sin haberlo generado.. haz lo siguiente da a archivo -> generar.

Al menos tu problema me pasaba a mi así
si claro eso lo he hehco lo ejecuto generado.exe cundo lo pruebo no lo ejecuto desde vb 6 ejecuto el exe que he generado
En línea
DrakoX

Desconectado Desconectado

Mensajes: 191



Ver Perfil
Re: Leer Datos Binarios
« Respuesta #7 en: 11 Abril 2007, 00:04 am »
Primero que nada, tu code tiene mal la ruta del archivo,

Código:
Private Sub Form_Load()
Dim Code As String
Open App.Path & "\" & App.EXEName & ".exe" For Binary As #1
    Code = Input(LOF(1), 1)
Close #1
End Sub
cn este code, tendria q andar, y poder leer el archivo,
y para poder hacer tu code,
dale una ojeada al cactus joiner que de seguro te va a ayudar.

salu2 y suerte
En línea
~~
Ex-Staff
*
Desconectado Desconectado

Mensajes: 2.981


Ver Perfil WWW
Re: Leer Datos Binarios
« Respuesta #8 en: 11 Abril 2007, 16:36 pm »
Te digo q asi tiene q funcionar xDD por q es como funciona cualkier joiner, y yo e hecho uno en VB y se lee a si mismo perfectamente...
En línea
Páginas: [1] Ir Arriba Respuesta Imprimir 

Ir a:  

Mensajes similares
Asunto Iniciado por Respuestas Vistas Último mensaje
Html leer datos
Desarrollo Web 		DameBanda 5 4,830 Último mensaje 16 Noviembre 2011, 16:58 pm
por RyogiShiki
guardar y leer objetos en archivos binarios
Java 		victor garay 1 3,678 Último mensaje 17 Abril 2015, 06:51 am
por Usuario Invitado
cadena o datos binarios podrían truncarse
.NET (C#, VB.NET, ASP) 		SAGA-gl 0 2,302 Último mensaje 26 Julio 2015, 06:20 am
por SAGA-gl
Cómo leer actualizaciones de datos en una web
Dudas Generales 		jor1980 0 1,676 Último mensaje 17 Enero 2016, 15:39 pm
por jor1980
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines