Chat TcpChat Fehler

  • VB.NET
  • .NET (FX) 4.5–4.8

Es gibt 4 Antworten in diesem Thema. Der letzte Beitrag () ist von ​Thunderbolt.

    Chat TcpChat Fehler

    Ich habe einen TcpChat erstellt mit dem folgendem Code:

    VB.NET-Quellcode

    1. Imports System.Net.Sockets
    2. Imports System.Threading
    3. Imports System.IO
    5. Public Class Form1
    7. Dim Listener As New TcpListener(55555)
    8. Dim client As TcpClient
    9. Dim message As String
    11. Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
    12. client = New TcpClient(TextBox4.Text, 55555)
    13. Dim writer As New StreamWriter(client.GetStream())
    15. writer.Write(sendchat)
    16. chatbox.AppendText(Format(Now, "[dd.MM.yyyy | hh:mm:ss] ") & "Du: " & vbNewLine & sendchat.Text & vbCrLf)
    17. sendchat.Text = ""
    19. writer.Flush()
    20. End Sub
    22. Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
    23. If Listener.Pending = True Then
    24. message = ""
    25. client = Listener.AcceptTcpClient
    26. Dim reader As New StreamReader(client.GetStream())
    27. While reader.Peek > -1
    28. message = message + Convert.ToChar(reader.Read()).ToString
    29. End While
    30. chatbox.AppendText(Format(Now, "[dd.MM.yyyy | hh:mm:ss] ") & "Benutzer: " & vbNewLine & message & vbCrLf)
    31. Else : End If
    32. End Sub
    34. Private Sub listening()
    35. Listener.start()
    36. End Sub
    39. Private Sub Form1_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing
    40. Listener.Stop()
    41. Application.Exit()
    42. End Sub
    46. Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    47. Dim listthread As New Thread(New ThreadStart(AddressOf listening))
    48. listthread.Start()
    49. End Sub



    Das selbstgesendete wird richtig angezeigt, jedoch was ein anderer Sendet wird wie folgt angezeigt:

    [19.10.2014 | 01:50:16] Benutzer:
    System.Windows.Forms.RichTextBox, Text: Test-Text


    Wie kann man das "System.Windows.Forms.RichTextBox, Text: " entfernen?

    Ich gehe mal davon aus, dass das bei Option Strict On gar nicht kompiliert hätte, sondern dich gleich mit der Nase darauf gestoßen hätte.

    Edit:
    Hab gerade nachgeschaut.
    Write hat eine Überladung vom Typ Object, die automatisch Object.ToString verwendet.
    Ganz schön blöde.
    --
    If Not Program.isWorking Then Code.Debug Else Code.DoNotTouch
    --

    petaod schrieb:

    Ganz schön blöde.
    Deswegen bietet es sich an, eine Protokoll-DLL zu erstellen (oder vorhandene zu verwenden), die dann ausschließlich Text als Nachricht akzeptieren. Außerdem wird dadurch der Code übersichtlicher, da man Kommunikation und GUI nicht in einer Datei behandelt. @kingsunil2000
    Mit freundlichen Grüßen,
    Thunderbolt

Facebook