Visual Basic 6 - ancora trasferimento file con winsock, ma con un problema diverso.

Postato originariamente da gantonio:

Certe volte mi sembra di scrivere in arabo ...

Ti ho appena detto che EOF non va utilizzato e tu fai dei confronti con EOF?

Ti rispiego in modo piu' semplice

1) il client manda la lunghezza del file, ad esempio, 13403

2) il server conserva da qualche parte questo valore

3) il client manda un pezzo del file, ad esempio, 4000 byte

4) il server sa che ha ricevuto 4000 byte e che sono meno dei 13403 e attende il resto

5) il client manda il resto del file e lo chiude

6) il server sa che i byte ricevuti piu' quelli precedenti sono in totale 13403, ovvero quanti se ne aspettava e chiude il file

Okay?

Postato originariamente da gantonio:

Beh ... sono cose un po' diverse ...

E comunque il LOF lo devi utilizzare una sola volta nel client per determinare la lunghezza del file .... basta. Non va usato piu' ne' nel client ne' nel server.

Postato originariamente da gantonio:

Scusa ... ma continui a proporre il codice con la EOF quando ti ho detto che non e' corretto ...

Mi sembrava che avessi capito ...

E poi quale codice usi per la ricezione del file ?

Open file For Binary Access Read As #1
server.SendData "dimensione-" & LOF(1)
Sleep (100)
DoEvents
chunk = 4000

  Do While Not EOF(1)
     datafile = Space$(chunk)
     Get 1, , datafile
     server.SendData datafile
     DoEvents
  Loop
    Close #1
    Sleep (2000)
    server.SendData "fine"