[VB 6.0] Winsock file transfer

[Verwijderd]

Hoi allemaal,

Kheb een klein client-server dingetje gemaakt om een jpg file van server naar client te verzenden.

Nu werkt dit enkel wanneer ik een break zet op:

code:

w1.SendData SendBuffer & "/\/\ENDOFFILE/\/\"

Stukje code:

code:

If data = "ok" Then
    Open file For Binary Access Read As #1
        If LOF(1) = 0 Then Exit Sub
        Dim SendBuffer As String
        SendBuffer = Space$(LOF(1))
        Get #1, , SendBuffer
    Close #1
    w1.SendData SendBuffer & "/\/\ENDOFFILE/\/\"
    Exit Sub
End If

Als ik er geen break op zet, krijg ik een totaal andere data toegestuurd (die kleinder is).

Enig advies?

[Sponge]

code:

w1.SendData SendBuffer & "/\/\ENDOFFILE/\/\" & vbcrlf
doevents
Exit Sub

Denk ik

[Verwijderd]

Heb ik al geprobeerd.

Het is alsof het programma te snel gaat om te verzenden.
Maar hij gaat toch slechts naar de volgende regel als de data verzonden is?

[farlane]

Probeer je bestand eens in chunks op te delen. Ik kan me voorstellen dat dat winsock control problemen heeft met het ontvangen van een bestand van bijvoorbeeld 500Meg.