TCP/IP Chat - Server empfängt nur eine Nachricht

  • VB.NET

Es gibt 1 Antwort in diesem Thema. Der letzte Beitrag () ist von Combat_Henry.

    TCP/IP Chat - Server empfängt nur eine Nachricht

    Hallo Community :)

    Ich bin gerade dabei das Grundgerüst für einen Client-Server-Chat unter Verwendung von TCP/IP zu schreiben. Allerdings empfängt der Server (und genau genommen auch der Client, da die Codes größtenteils identisch sind) immer nur die erste versandte Nachricht. Alle weiteren Nachrichten, die ich verschicke, werden nicht empfangen. Was habe ich falsch gemacht?

    Hier der Code des Servers:


    VB.NET-Quellcode

    1. Imports System.Net
    2. Imports System.Net.Sockets
    3. Imports System.IO
    4. Class Form1
    5. Dim message As String = ""
    6. Dim listener As TcpListener
    7. Dim Client As TcpClient
    8. Dim stream As NetworkStream
    9. Dim reader As StreamReader
    10. Dim writer As StreamWriter
    11. Dim thread As Threading.Thread
    13. Delegate Sub chat_write_delegate()
    15. Private Sub button_connect_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles button_connect.Click
    16. thread = New Threading.Thread(AddressOf connect)
    17. thread.Start()
    18. rtxt_chat.Text = TimeOfDay & vbTab & "Connecting..." & vbCrLf
    19. End Sub
    21. Public Sub connect()
    22. listener = New TcpListener(IPAddress.Any, txt_port.Text)
    23. listener.Start()
    24. Client = listener.AcceptTcpClient
    25. stream = Client.GetStream
    26. writer = New StreamWriter(stream)
    27. reader = New StreamReader(stream)
    28. While Client.Connected = True
    29. While reader.Peek() > -1
    30. message = message & Convert.ToChar(reader.Read()).ToString
    31. If Not reader.Peek() > -1 Then
    32. MsgBox(message)
    33. Me.Invoke(New chat_write_delegate(AddressOf write_message))
    34. End If
    35. End While
    36. End While
    37. End Sub
    39. Sub write_message()
    40. rtxt_chat.Text = rtxt_chat.Text & message & vbCrLf
    41. message = ""
    42. End Sub
    44. Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles button_send.Click
    45. writer.Write(txt_send.Text)
    46. writer.Flush()
    47. txt_send.Text = ""
    48. End Sub
    49. End Class


    Greetingz

    Jakob

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

    Habe das Problem jetzt selbst gelöst. Der korrigierte Lesevorgang sieht so aus:

    [vb While Client.Connected = True
    message = message & reader.ReadLine.ToString
    Me.Invoke(New chat_write_delegate(AddressOf write_message))
    End While
    ][/vb]

Facebook
Telefonspende