Hola, tengo una aplicacion cliente - servidor.
Para enviar unn archivo uso este codigo.

En el Servidor:


Dim FN As Long
Dim wptr As Long
Dim bytes As Integer
Dim stream As String
FN = FreeFile
strArch = ArchivosSend(1)
Open strArch For Binary As #FN
sasi = Right(strArch, Len(strArch) - InStrRev(strArch, "\", -1, vbTextCompare))
Me.Winsock1(ActIndex).SendData "%" & sasi & "%" & LOF(FN)
DoEvents
wptr = 1
Do Until wptr > LOF(FN)
If ((LOF(FN) - wptr) + 1) > 32766 Then
bytes = 32766
Else
bytes = ((LOF(FN) - wptr) + 1)
End If
stream = String(bytes, " ")
Get #FN, wptr, stream
Winsock1(ActIndex).SendData "@" & stream
DoEvents
wptr = wptr + bytes
Loop
Close #FN

Y en el dataarrival del cliente:

goten = goten + Len(Mid(a, 2, Len(a)))
If goten >= fillen Then
Dim i As Long
Data = Mid(a, 2, Len(a))
ss = FreeFile
Open "c:\" & Arch For Binary As #ss
Put #ss, , Data
Close #ss
fillen = 0
goten = 0
Arch = ""
strReceptor = ""
End If

(estos codigos los saque de un par de post de este foro y lo intente adaptar)

El problema es que por ejemplo yo quiero tranferir un archivo de texto.

-Se crea bien el archivo.
-Cuando hace el "PUT" , Data dice lo que esta en el txt.
Pero cuando uno quiere ver ese txt y lo abre en vez de ver lo que estaba en el archivo original se ve:

"&氮⁡潣据慨搠⁥慬氠牯⁡⁹慬瀠瑵⁡慭牤⹥"

¿Alguien sabe en que estoy fallando?

Gracias.

Fíjate que por una parte estás enviando un encabezamiento tipo

%nombrefichero%&%$&

después paquetes del tipo

@Información contenida en el primer paquete de datos leidos del fichero...


Primer error:

Estás transmitiendo por el socket datos de diferente índole. %nombrefichero% es cadena pero LON(FN) es un long.

Segundo error:

En el equipo que recibe no procesas adecuadamente estos encabezados, simplemente eliminas el primar carávter y lo acumulas en GOTEN para posteriormente grabar ésta en la primera posición del fichero.

Tercer error:

No generas ningún tipo de protocolo de entendimiento para sincronizar la operación y es posible que cuando el equipo que recibe, esté procesando el primer paquete de bytes, el que envía le remite un nuevo paquete con lo cual -y dependiendo de como administre las tareas el sistema operativo- cada vez obtengas un fichero diferente.


Yo en tu caso establecería unas normas de comunicación (Como hacen los servidores de FTP por ejemplo) en el que la parte emisora y la receptora puedan ponerse de acuerdo, y no olvides que un servidor puede tener diferentes hilos por los que se realizan las peticiones, aspecto que debes controlar.

P. Ejemplo

SERVER [TE_ENVIO_UN_FICHERO]
CLIENTE [DAME_SU_NOMBRE]
SERVER <nombredefichero>
CLIENTE [DAME_SU LONGITUD]
SEVER CSTR(LOF(FN))
CLIENTE [ESPERO_PAQUETE]
SERVER <primerpaquetedebytes>
CLIENTE [ESPERO_PAQUETE]
SERVER <segundopaquetedebytes>
CLIENTE [ESPERO_PAQUETE]
SERVER <tercerpaquetedebytes>
CLIENTE [ESPERO_PAQUETE]
SERVER [FIN_DE_FICHERO]

Un equipo no inicia la transmisión mientras la otra parte no le indica que está dispuesto a recibirla mediante dicho protocolo de entendimiento. Además y como te he dicho, necesitas controlar en el servidor las tareas de cada uno de los hilos que pueda tener en funcionamiento, pues si son varios los equipos conectados, estará atendiendo las peticiones de todos ellos y entre el primer paquete de datos de fichero y el segundo, seguramente ha atendido otras solicitudes de otros clientes que, a su vez, están manipulando diferentes ficheros.


Espero hanerme explicado más o menos de forma entendible.

__________________
Un cordial saludo
-Acalanto-

Madrid - España

Visual Basic
Videos Programacion
Foro Programacion
Tutoriales Programacion

Una pequeña idea, por que no lo hace a través de FTP? el objeto INET te será de mucha ayuda. La MSDN también.

Un saludo.

Primero que nada muchas gracias acalanto.

ya he echo todo lo que u me indicas y el programa anda mucho mejor

Ahora mi duda es la siguiente.

Segun tengo entendido la velocidad del envio del archivo depende tanto de la subida del server como de la bajada del cliente.

La pregunta es como hago para saber cuantos bytes le tengo que enviar por cada paquete?

No entendi muy bien eso si me puedes dar una manito te lo agradecere 1000 veces mas .

Saludos y gracias.

En principio puedes hacerlo tal y como lo tienes estructurado en el código. Solamente creo que sería oportuno que pruebes el tamaño máximo del paquete (Cámbia el valor 32000 por 2048 por ejemplo). Del resto no te preocupes pues la propia pasarela TCP, se encarga de fragmentar en paquetes más pequeños pero al cliente le llegan tal y como el server ha enviado.

__________________
Un cordial saludo
-Acalanto-

Madrid - España

Visual Basic
Videos Programacion
Foro Programacion
Tutoriales Programacion

Muchas gracias amigo !!