Hola estoy buscando una manera de enviar un archvio de 300 kb en 300 kb
While Not (EOF(FiDes))
DoEvents
Input #FiDes, LineA
wins.sendata LineA
Wend
Este codigo me lo envia linea a linea
y tampococo me lo monta =
por ejemplo tengo que poner un vbcrlf al final de cada linea pero si es un exe lo que envio me cargo el codigo binario al meter un codigo vbcrlf
Lo que queiro es poder pillar 300 kb envarlos luego otros 300 y enviarlos
he mirado la funcion Input pero recive dos parametros nfichero y fin pero creo que no me sirve
Gracias Soludos
Pues muy simple ;)
Dim a As String
For i = 1 To Len(ARCHIVO)
a = Mid(ARCHIVO, i, 10)
i = i + 299
ws.senddata a
Next i
O mas simple:
Dim i as long
For i = 1 To Len(ARCHIVO) Step 300
ws.senddata Mid(ARCHIVO, i, 10)
Next i
Donde dice ARCHIVO, tu tienes q usar la variable q contenga el archivo:
opern ruta for binary as #1
dim ARCHIVO as string
ARCHIVO = sepace(lof(1))
get #1,,ARCHIVO
close #1
Weno mi code en realidad te enviaria de 300 en 300 bits ;) para enviar 300kb pues calculalo en bit's, q a mi no me apetece xD
1S4lludo :P
No me sirve eso es lo que he hecho al principio pero si el archvio es muy grande no lo puedo guardar en un varible desbordamineto entonces lo que querio es leer 300 Kb enviar leer otros 300 enviar etc
Gracias de todos modos.
CitarDim i as long
For i = 1 To Len(ARCHIVO) Step 300
ws.senddata Mid(ARCHIVO, i, 10)
Next i
Citaropern ruta for binary as #1
dim ARCHIVO as string
ARCHIVO = sepace(lof(1))
get #1,,ARCHIVO
close #1
pasaba nomas... leyendo y vi esos codigos... y creo q me hicieron entender un monton de cosas... jeje ya q no entendia muy bien como enviar archivos grande por winsock
una preg... eso es para enviar... para recibir como hago ah juntar los datos :huh: