Ciao a tutti , sono nuovo di questo forum e sto passando da vb6 a vb.net, dato che conoscendo il vb6 volevo provare a fare un prog di networking in vb.net, ho incluso il winsock dentro visual basic 2010 (so che è old)


Funziona tutto, ma mi nasce un problema quando devo inviare un file.

ecco il codice del client che invia:

---------------------------------------------------------------------------

Dim Immagine As String = "C:\Img1.jpg"

Dim SentData As String

FileOpen(1, Immagine, OpenMode.Binary)

Dim spazio As Integer = LOF(1) / 1000

SentData = Space(spazio)
For Conteggio = 0 To CLng(LOF(1) / spazio)
FileGet(1, SentData, Conteggio * CLng(spazio) + 1)
AxWinsock2.SendData(SentData)
Application.DoEvents()
Next Conteggio

-----------------------------------------------------------------------------

ecco invece il server che riceve:

-----------------------------------------------------------------------------

Dim immagine() As Byte
AxWinsock2.GetData(immagine)
FilePut(1, immagine)

-------------------------------------------------------------------------------

Fin qui tutto a posto, provo il codice in locale (connettendomi a 127.0.0.1) e funziona, l' immagine arriva tutta e velocemente, ma ciò non accade se lo faccio in remoto con computer distanti km, ovvero l' immagine non arriva mai completa, ma si ferma in un punto preciso. Dove è che sbaglio?

Ci sto da una vita su questo codice e non riesco a trovare una soluzione, ho bene pensato che dopo 4 giorni di continuo lavoro era meglio chiedere perchè in questo modo sto bruciando tutte le vacanze natalizie