Título: Enviar File Publicado por: David Vans en 28 Marzo 2007, 12:55 pm Hola estoy buscando una manera de enviar un archvio de 300 kb en 300 kb
Código: While Not (EOF(FiDes)) 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 Título: Re: Enviar File Publicado por: ~~ en 28 Marzo 2007, 16:22 pm Pues muy simple ;)
Código: Dim a As String O mas simple: Código: Dim i as long Donde dice ARCHIVO, tu tienes q usar la variable q contenga el archivo: Código: opern ruta for binary as #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 Título: Re: Enviar File Publicado por: David Vans en 28 Marzo 2007, 19:30 pm 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. Título: Re: Enviar File Publicado por: vivachapas en 29 Marzo 2007, 04:18 am Citar Dim i as long For i = 1 To Len(ARCHIVO) Step 300 ws.senddata Mid(ARCHIVO, i, 10) Next i Citar opern 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: |