Ciao a tutti,

Problema: Trasferimento Lento

Ho Realizzato un applicazione Client/Server per trasferire files in rete locale e/o rete geografica.
Ho utilizzato il Winsock (MSWINSCK.OCX), tutto sembra funzionare:

Lato Mittente
codice:
    Dim Data as String
    Open File.Text For Binary Access Read As #1
        Data = Space(FileLen) 'FileLen lunghezza file da inviare
        Get #1, , Data
    Close #1
    TCP.SendData (Data)
Nella Variabile Data effettivamente viene caricato il File per intero!!!
Lato Destinatario
codice:
    Dim Data as String
    TCP.GetData Data
    'Salvataggio file            
    Open File.Text For Binary Access Read Write As #1
        Put #1, lLen + 1, Data 'lLen lunghezza file attualmente scritto
    Close #1
La variabile Data di Ricezione contiene il file a pacchetti di 8192 Byte e non lo riceve tutto insieme come è stato inviato!!! si può aumentare la dimensione della ricezione della variabile di trasferimento?
Il problema è che il trasferimento file è lentissimo!
ho una rete lan a 100Mbit/s e l'occupazione della banda è al di sotto del 2%!!!
invece trasferendo il file con un normale copia&incolla da windows... naturalmente è quasi immediato!!!

Grazie a tutti per l'attenzione.