Winsock in VB.NET - Daten Transfer Verfasst am: 31.10.2008, 20:51
Ich habe das Tutorial von ZiG gesehen. Nun möchte ich diesen Code in VB.NET umwandeln. Doch es gelingt mir nicht so ganz^^. Es geht mir NUR um den Daten-Transfer. Das heisst das Senden von der Datei und dem Empfangen von der Datei. Ich hoffe es kann mir jemand sagen was ich falsch mache und wie es richtig wäre. Oder wenn meine Ansätze überhaupt nicht dem entsprechen, wie das Tutorial von ZiG, bitte mir auch auf die Sprünge helfen...
Bis jetzt habe ich das hier:
Senden der Datei:
Code:
Dim bytesRead As Integer
Dim laenge As Integer
Dim bytes As Long
Dim allsend As Boolean = False
Dim f1 As New System.IO.FileStream(path, System.IO.FileMode.Open, IO.FileAccess.Read)
laenge = f1.Length
Dim buffer(f1.Length) As Byte
Dim arr(f1.Length) As Byte
Do
SendComplete = False
bytes = 65535
If laenge > bytes Then
bytesRead = f1.Read(buffer, 0, bytes)
Else
bytesRead = f1.Read(buffer, 0, laenge)
allsend = True
End If
Winsock1.SendData(buffer)
f1.Flush()
laenge = laenge - bytes
Do
Application.DoEvents()
Loop Until SendComplete = True
Loop Until allsend = True
Das Public SendComplete hab ich nicht vergessen!
Beim Empfänger habe ich keine Ahnung wie ich die einzelnen Bufferstücke "zusammen setzen" soll. Bei meinen Versuchen hatte ich ca. immer so die Hälfte Daten bekommen (schätzungsweise).
Ich hoffe das jemand mir auf die Sprünge helfen kann!!
Danke im Voraus!!
Registrieren
Login
