Problem beim empfangen von "Zeilen" -> Daten kommen "zerhackt" an =(

  • VB.NET

Es gibt 8 Antworten in diesem Thema. Der letzte Beitrag () ist von MrTweek.

    Problem beim empfangen von "Zeilen" -> Daten kommen "zerhackt" an =(

    Hallo,
    ich schreibe zurzeit einen Gameserver, jener so verlangt es das Spiel, muss daten in form eines IRC-Chats senden, (IRC-Befehle)
    das problem was ich habe, dass ich daten empfange, jedoch bei langen "Zeilen", die das Spiel sendet, diese zerhackt ankommen <.<

    hier mal ein Beispiel:

    die zeile muss lauten:

    Quellcode

    1. vercheck xxxxx xxxxxx
    2. vercheck 4608 32512
    3. lobcount 4608
    4. whereto Tibsun Tibpass99 4608 32512 Íkey%
    5. quit


    die rotmakierte zeile, wird "zerhackt" gesendet (welche aber eine ganze zeile sein muss!, das spiel sendet sie auch als ganze!)... aber ich finde den fehler nicht :/

    ich erhalte aber:

    Quellcode

    1. vercheck xxxxx xxxxxx
    2. vercheck 4608 32512
    3. lobcount 4608
    4. whereto T
    und

    Quellcode

    1. ibsun Tibpass99 4608 32512 Íkey%



    hier ist die funktion:



    VB.NET-Quellcode

    1. Private Sub _reading(ByVal ar As IAsyncResult)
    2. Dim asyncState = DirectCast(ar.AsyncState, ReadAsyncState)
    3. Dim buffer = asyncState.Buffer
    4. Dim gc = asyncState.gc
    6. If gc.client IsNot Nothing And gc.client.Connected And gc.stream IsNot Nothing And gc.stream.CanRead Then
    7. Dim bytecount As Integer = gc.stream.EndRead(ar)
    9. If bytecount > 0 Then
    10. buffer(_endpoint.Server.ReceiveBufferSize - 1) = Convert.ToByte(0)
    11. Dim _rline As String = Encoding.ASCII.GetString(buffer, 0, buffer.Length)
    13. While gc.stream.DataAvailable And gc.stream.CanRead
    14. bytecount = gc.stream.Read(buffer, 0, gc.client.ReceiveBufferSize)
    15. _rline = Encoding.ASCII.GetString(buffer, 0, buffer.Length)
    16. End While
    17. If _rline.Length > 0 Then
    18. Dim Msg As String = _rline.ToString
    19. Dim message() As String = Msg.Split(" ")
    21. MsgBox(Msg)
    23. If Msg.StartsWith("verchk") Then handle_verchk_command(gc, Message)
    25. If Msg.StartsWith("lobcount") Then handle_lobcount_command(gc, Message)
    27. If Msg.StartsWith("whereto") Then handle_whereto_command(gc, Message)
    29. If Msg.StartsWith("quit") Then handle_quit_command(gc, Message)
    31. End If
    34. buffer(_endpoint.Server.ReceiveBufferSize - 1) = Convert.ToByte(0)
    36. If gc.stream.CanRead Then
    37. gc.stream.BeginRead(buffer, 0, _endpoint.Server.ReceiveBufferSize, AddressOf _reading, New ReadAsyncState With {.Buffer = buffer, .gc = gc})
    38. End If
    39. Else
    40. Gameclients.Remove(gc)
    41. Exit Sub
    42. End If
    43. End If
    44. End Sub

    Der Client wird halt die Daten in 2 Schritten senden. Der Client muss dem Server schon mitteilen, wieviele Bytes da kommen oder alternativ ein "Steuerzeichen" senden, dass dem Server sagt, hier ist die Übertragung erst mal zu Ende. Send- bzw. ReceiveBufferSize hat damit nichts zu tun. Also, sende dem Server erst einen Integer/Long, der angibt, wieviele Bytes zu lesen sind, richte die Grösse des Buffers darauf ein oder lies die Bytes in eine Liste. Sind die zu erwartenden Bytes gelesen, fahre fort.

    Ach ja, OPTION STRICT ON!
    Die Unendlichkeit ist weit. Vor allem gegen Ende. ?(
    Manche Menschen sind gar nicht dumm. Sie haben nur Pech beim Denken. 8o

    sende dem Server erst einen Integer/Long, der angibt, wieviele Bytes zu
    lesen sind, richte die Grösse des Buffers darauf ein oder lies die Bytes
    in eine Liste. Sind die zu erwartenden Bytes gelesen, fahre fort.
    Ist leider nicht möglich, da das Spiel nicht von mir entwickelt wurde, sondern von Westwood, lese ich die daten, mittels "Streamreader.readline", dann bekommt er auch die lineendings,
    gibt es eine möglichkeit den streamreader dafür asyncron zu nutzen? (dieser macht nicht diese Zeilen-Fehler =( )

    Die Steuerzeichen werden doch übertragen, also kannst Du doch bis zu diesem Punkt lesen. Gibt es keine Definition des Protokolls?
    Die Unendlichkeit ist weit. Vor allem gegen Ende. ?(
    Manche Menschen sind gar nicht dumm. Sie haben nur Pech beim Denken. 8o

    das ist normales IRC-verhalten nach RFC X(

    "WOL ServServ is WOLv2 service only. It using standart IRC protocol
    concept of commands and server replyes but is not used for any
    chat/games functions.     This server uses hostname servserv.westwood.com
    and port 4005. This is hardcoded on client side. Server is used for
    Gateway stuff - all WOLv2 clients firstly connect to this server and get
    list of possible WOL IRC servers. They are divided geographically over
    the world ie. US West, Europe, Asia.
    "

    es gibt eine Version in java X( .... aber der macht das so =(:

    Quellcode

    1. try
    2. {
    3. message = new String(buf, offset, i - offset - (i > 0 && buf[i-1] == '\r' ? 1 : 0), encoding);
    4. System.out.println("Readed: " +message);
    5. }
    6. catch (Exception e)
    7. {
    8. System.out.println("Unexpected exception when converting bytes to string");
    9. }

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „MrTweek“ ()

    Nun, lege Deinen Buffer groß genug fest. Treffen Daten ein, so musst Du prüfen, ob die letzten 2 Byte in Deinem Buffer vbCrLf entsprechen. Das ist, wie ich es verstehe, das Signal, dass die Übertragung abgeschlossen ist. Trifft dies nicht zu, so übergib den Buffer an eine temporäre Liste und lies erneut Daten vom Socket. Das wiederholst Du solange, bis das Ende der Übertragung erkannt wurde. Dann erzeugst Du aus dem temporären Buffer den String und wertest entsprechend aus.

    Ich hab mir das Protokoll kurz angesehen, bin aber zu faul und zu müde, mich jetzt tiefer damit auseinander zu setzen. Ein Test hat jedoch funktioniert. Es ist auch egal, wie dieses Signal aussieht, das Prinzip ist immer das selbe. Lies solange Daten, bis das entsprechende Signal eintrifft.
    Die Unendlichkeit ist weit. Vor allem gegen Ende. ?(
    Manche Menschen sind gar nicht dumm. Sie haben nur Pech beim Denken. 8o

    und wie kann ich das steuerzeichen ermitteln? :( Kannst Du mir da mal ein Schnipsel Code zeigen, wie man das "auswertet"? ...

    Das "Auswerten, werde ich dann wohl in einer "globalen klasse" machen müssen, da ich ja später 4 Listener brauche, die diese Methode anwenden müssen.

    Hier ein ganz rudimentäres Beispiel. Es fehlt jede Fehlerbehandlung, jede Struktur, soll Dir nur das Prinzip aufzeigen.

    Spoiler anzeigen

    VB.NET-Quellcode

    1. Imports System.Net
    2. Imports System.Net.Sockets
    3. Imports System.Text
    5. Public Class Form1
    6. Private _client As Socket = Nothing
    7. Private _serverIP As IPAddress = IPAddress.Parse("46.105.123.98")
    8. Private _serverPort As Integer = 4005
    9. Private _buffer(4095) As Byte
    10. Private _tmpBuffer As New List(Of Byte)
    12. Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    13. If _client Is Nothing Then
    14. _client = New Socket(AddressFamily.InterNetwork, SocketType.Stream, ProtocolType.Tcp)
    15. _client.Connect(New IPEndPoint(_serverIP, _serverPort))
    17. If _client.Connected Then
    18. Dim message() As Byte = Encoding.ASCII.GetBytes("WHERETO" & vbCrLf)
    20. ClientReceive()
    21. _client.Send(message, SocketFlags.None)
    22. End If
    23. End If
    24. End Sub
    26. Private Sub ClientReceive()
    27. _client.BeginReceive(_buffer, 0, _buffer.Length, SocketFlags.None, AddressOf ClientEndReceive, Nothing)
    28. End Sub
    30. Private Sub ClientEndReceive(ar As IAsyncResult)
    31. Dim recLen As Integer = _client.EndReceive(ar)
    33. If recLen = 0 Then
    34. _client.Close()
    35. Exit Sub
    36. End If
    38. If _buffer(recLen - 2) = 13 AndAlso _buffer(recLen - 1) = 10 Then
    39. If Not _tmpBuffer.Count = 0 Then
    40. _tmpBuffer.AddRange(_buffer.ToList().GetRange(0, recLen))
    42. Dim message As String = Encoding.ASCII.GetString(_tmpBuffer.ToArray())
    44. Me.Invoke(Sub()
    45. TextBox1.AppendText(message)
    46. End Sub)
    48. _tmpBuffer.Clear()
    49. Else
    50. Dim message As String = Encoding.ASCII.GetString(_buffer, 0, recLen)
    52. Me.Invoke(Sub()
    53. TextBox1.AppendText(message)
    54. End Sub)
    55. End If
    56. Else
    57. _tmpBuffer.AddRange(_buffer.ToList().GetRange(0, recLen))
    58. End If
    60. ClientReceive()
    61. End Sub
    62. End Class

    Die Unendlichkeit ist weit. Vor allem gegen Ende. ?(
    Manche Menschen sind gar nicht dumm. Sie haben nur Pech beim Denken. 8o

    oki habe mir mal den letzten block kopiert... und habe die funktion abgeändert...

    VB.NET-Quellcode

    1. Private Sub EndRead(ByVal ar As IAsyncResult)
    2. If MyBase.IsDisposed Then Return
    3. Dim read As Integer = _Stream.EndRead(ar)
    4. Dim message As String = ""
    6. If read = 0 Then 'leere Datenübermittlung signalisiert Verbindungsabbruch
    7. Return
    8. End If
    9. Dim SB As New StringBuilder(Encoding.UTF8.GetString(Buf, 0, read), 9999)
    10. Dim splitted_line As Integer = 0
    13. Do While _Stream.DataAvailable
    14. read = _Stream.Read(Buf, 0, Buf.Length)
    15. SB.Append(Encoding.UTF8.GetString(Buf, 0, read), Buf.Length, read)
    16. Loop
    18. If Buf(read - 2) = 13 AndAlso Buf(read - 1) = 10 Then
    19. If Not _tmpbuffer.Count = 0 Then
    20. _tmpBuffer.AddRange(Buf.ToList().GetRange(0, read))
    22. message = Encoding.ASCII.GetString(_tmpBuffer.ToArray())
    23. _tmpBuffer.Clear()
    24. Else
    25. message = Encoding.ASCII.GetString(Buf, 0, read)
    26. End If
    27. Else
    28. _tmpBuffer.AddRange(Buf.ToList().GetRange(0, read))
    29. End If
    32. MsgBox(message)
    33. _Stream.BeginRead(Buf, 0, Buf.Length, AddressOf EndRead, Nothing)
    34. End Sub


    den teil mit dem "whereto", habe ich ausgelassen, da es ja variable ist, was da ankommt... aber es funktioniert nun :)
    ich werde das ganze mal in einer klasse packen, da ich noch 4 server für das project bauen muss <.<

Facebook
Telefonspende