Chat zeigt nur letztes Zeichen an

  • VB.NET

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

    Chat zeigt nur letztes Zeichen an

    hoi, hab leider nix gefunden was mir bei meinem prob weiterhilft

    also ich hab nen kleinen chat geschrieben, funktioniert alles so weit gut, bis auf die tatsache dass von der empfangenen nachricht nur das letzte zeichen ausgegeben wird

    bsp: ich sende "hallo" und ausgegeben wird beim empfänger "o"


    Quellcode

    1. Imports System.Threading
    2. Imports System.IO
    3. Imports System.Net.Sockets
    5. Public Class Form1
    6. Dim listener As New TcpListener(5555)
    7. Dim client As TcpClient
    8. Dim message As String = Nothing
    10. Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
    11. listener.Stop()
    12. End Sub
    15. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    16. Dim listthread As New Thread(New ThreadStart(AddressOf listening))
    17. listthread.Start()
    18. End Sub
    19. Private Sub listening()
    20. listener.Start()
    21. End Sub
    23. Private Sub cmd_senden_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmd_senden.Click
    24. client = New TcpClient(txt_ip.Text, 5555)
    25. Dim writer As New StreamWriter(client.GetStream())
    26. writer.Write(txt_senden.Text)
    27. writer.Flush()
    29. End Sub
    31. Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
    32. If listener.Pending = True Then
    33. message = Nothing
    34. client = listener.AcceptTcpClient()
    35. Dim reader As New StreamReader(client.GetStream())
    37. While reader.Peek > -1
    38. Dim message1 As String
    39. message1 = Convert.ToChar(reader.Read())
    40. message = message1
    42. End While
    44. txt_empfangen.Text = txt_empfangen.Text & message
    50. End If
    51. End Sub
    52. End Class


    hoffe ihr könnt mir bei meinem prob weiterhelfen, danke im voraus :)

    danke hat sich erledigt xD

    hab das abgeändert :) jetzt gehts

    Quellcode

    1. Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
    2. If listener.Pending = True Then
    3. message = ""
    4. client = listener.AcceptTcpClient()
    5. Dim reader As New StreamReader(client.GetStream())
    7. While reader.Peek > -1
    8. Dim message1 As String
    9. message1 = Convert.ToChar(reader.Read())
    10. message = message1
    11. txt_empfangen.Text = txt_empfangen.Text & message
    12. End While
    13. End If
    16. End Sub

Facebook
Telefonspende