NetworkStream kann direkt aufeinander folgende Pakete nicht komplett empfangen

  • VB.NET

Es gibt 10 Antworten in diesem Thema. Der letzte Beitrag () ist von hackerking.

    NetworkStream kann direkt aufeinander folgende Pakete nicht komplett empfangen

    Jo Hey Leute...
    Ich habe ein Problem:
    Also ich habe eine Sub zum senden von Bytes und eine Funktion zum Empfangen von Bytes:
    Beim Client:

    VB.NET-Quellcode

    1. Public Function ReciveBytes() As Byte()
    2. Dim tmpBytes(TCPClient.ReceiveBufferSize) As Byte
    3. Stream.Read(tmpBytes, 0, TCPClient.ReceiveBufferSize)
    4. Return tmpBytes
    5. End Function
    7. Public Sub SendBytes(ByVal bytMessage() As Byte)
    8. Dim tmpBytes(TCPClient.SendBufferSize) As Byte
    9. tmpBytes = bytMessage
    10. Stream.Write(tmpBytes, 0, tmpBytes.Length)
    11. End Sub


    beim server:

    VB.NET-Quellcode

    1. Public Function ReciveBytes(ByVal intIndex As Integer) As Byte()
    2. Dim tmpBytes(Client(intIndex).ReceiveBufferSize) As Byte
    3. Stream(intIndex).Read(tmpBytes, 0, Client(intIndex).ReceiveBufferSize)
    5. If tmpBytes(0) = Nothing Then Return Encoding.ASCII.GetBytes("Error") : Exit Function
    7. InTraffic += tmpBytes.Length
    8. TotalTraffic = InTraffic + OutTraffic
    9. lblTotalTraffic.Text = GetSize(TotalTraffic)
    10. lblTotalRecieved.Text = GetSize(InTraffic)
    12. Return tmpBytes
    13. End Function
    15. Public Sub SendBytes(ByVal bytBytes() As Byte, ByVal intIndex As Integer)
    16. Dim tmpBytes(Client(intIndex).SendBufferSize) As Byte
    17. tmpBytes = bytBytes
    19. OutTraffic += tmpBytes.Length
    20. TotalTraffic = OutTraffic + InTraffic
    21. lblTotalTraffic.Text = GetSize(TotalTraffic)
    22. lblTotalSent.Text = GetSize(OutTraffic)
    24. Stream(intIndex).Write(tmpBytes, 0, tmpBytes.Length)
    25. End Sub


    So. Jetzt will ich in einem Chat mit dem Client, mehrere Narichten direkt maschinell (das heißt ohne verzögerung) hintereinander absenden (sagen wir mal ein übertriebenes Beispiel, von 100 Narichten direkt aufeinander folgend mit dem Inhalt Hallo1, Hallo2, Hallo3, Hallo4 usw.). Wenn ich dann die Narichten jedoch auswerte, kriege ich vllt. 3 Resultate, mehr nicht...
    Das heißt die restlichen 97 Narichten verschwinden. Ich bekomme nur "Hallo1", "Hallo2" und "Hallo3" statt den Hallos1-100 ...

    Wenn ich zwischen dem Senden (mache es mit einer Schleife also so:

    VB.NET-Quellcode

    1. For i As Integer = 0 To 100 : SendBytes(Encoding.ASCII.GetBytes("Hallo" & i)) : Next
    )ein Application.DoEvents einbaue, klappt es leider nicht (Hat bei VB6 noch so geklappt). Ich muss ein Thread.Sleep einbauen, was ein großes Problem ist, da ich halt keine Verzögerung im Programm will... Wäre dankbar für eine Antwort^^ :)

    PS: Bitte nicht sagen, dass ich statt Bytes Strings versenden soll (StreamWriter)... Erstens möchte ich nicht alles umschreiben (zu großer Aufwand), und zweitens brauchen andere Funktionen die Bytes...

    Hm bei TCP können Pakete nun wirklich nicht so leicht verloren gehen.
    Aber ein Flush kann ich bei dir im Code nicht entdecken, es sei denn, die Write Methode macht das automatisch. (In Java kann man jedenfalls einen autoflush einschalten). Naja, wenn ich mehr Zeit haben, schau ich mir das nochmal an.

Facebook
Telefonspende