 Autor
|
Tema: Leer Datos Binarios (Leído 3,075 veces)
|
David Vans
 Desconectado
Mensajes: 193
|
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
|
|
|
|
|
~~
|
Pues q raro.. yo uso esto: 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 
|
|
|
|
|
En línea
|
|
|
|
David Vans
Desconectado
Mensajes: 193
|
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
Mensajes: 191
|
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, habiendo creado el exe antes de ejecutarlo. salu2 y suerte |
|
|
|
|
En línea
|
|
|
|
SheKeL_C$
Desconectado
Mensajes: 549
_-=[Sh3K3L_C$]=-_
|
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
Mensajes: 193
|
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
Mensajes: 193
|
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
Mensajes: 191
|
Primero que nada, tu code tiene mal la ruta del archivo, 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
|
|
|
|
|
~~
|
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
|
|
|
|
|
| Mensajes similares |
|
Asunto |
Iniciado por |
Respuestas |
Vistas |
Último mensaje |
|
|
|
Html leer datos
Desarrollo Web
|
DameBanda
|
5
|
5,477
|
16 Noviembre 2011, 16:58 pm
por RyogiShiki
|
|
|
|
guardar y leer objetos en archivos binarios
Java
|
victor garay
|
1
|
4,071
|
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,544
|
26 Julio 2015, 06:20 am
por SAGA-gl
|
|
|
|
Cómo leer actualizaciones de datos en una web
Dudas Generales
|
jor1980
|
0
|
2,045
|
17 Enero 2016, 15:39 pm
por jor1980
|
|
|
|
Leer bien los datos recibidos.
.NET (C#, VB.NET, ASP)
|
Meta
|
1
|
2,354
|
17 Mayo 2025, 19:55 pm
por EdePC
|
 |
