Fehler bei TCP/IP Chat

  • VB.NET

Es gibt 2 Antworten in diesem Thema. Der letzte Beitrag () ist von Alarm.

    Fehler bei TCP/IP Chat

    Hallo ich habe ein Problem mit ein TCP/IP Chat.
    Ich wollte als Test mir eine Nachricht schreiben aber da kommt immer folgende Fehlermeldung, es müsste eigentlich gehen. Bitte helft mir ich habe es schon mit anderen Ports versucht aber da kam das gleiche. Muss ich was am Code was ändern oder muss ich an meinen Computer was umstellen. Und es liegt nicht an der falschen IP Adresse.


    Fehlermeldung:

    VB.NET-Quellcode

    1. Ein Verbindungsversuch ist fehlgeschlagen, da die Gegenstelle nach einer
    2. bestimmten Zeitspanne nicht richtig reagiert hat, oder die hergestellte Verbindung
    3. war fehlerhaft, da der verbundene Host nicht reagiert hat ???.??.??.???:44444

    Hier ist der Code vom Chat:

    VB.NET-Quellcode

    1. Imports System.Net.Sockets
    2. Imports System.Threading
    3. Imports System.IO
    5. Public Class Form1
    6. Dim listener As New TcpListener(44444)
    7. Dim client As TcpClient
    8. Dim message As String = ""
    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
    14. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    15. Dim listthread As New Thread(New ThreadStart(AddressOf listening))
    16. listthread.Start()
    17. End Sub
    18. Private Sub listening()
    19. listener.Start()
    20. End Sub
    22. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    23. client = New TcpClient(TextBox1.Text, 44444)
    24. Dim writer As New StreamWriter(Client.GetStream())
    26. writer.Write(TextBox2.Text)
    27. writer.Flush()
    28. End Sub
    30. Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
    31. If listener.Pending = True Then
    32. message = ""
    33. Client = listener.AcceptTcpClient()
    35. Dim reader As New StreamReader(client.GetStream())
    36. While reader.Peek > -1
    37. message = message + Convert.ToChar(reader.Read()).ToString
    38. End While
    39. Else : End If
    41. TextBox3.Text = TextBox3.Text & Message & vbCrLf
    42. End Sub
    43. End Class

    Sry, ich weiss zwar nicht wo Du diesen Code her hast, aber Du solltest ihn vollkommen überarbeiten:

    - Timer für Empfang von TCP-Messages unsinnig, arbeite mit AcceptTcpClient auf einem separaten Thread
    - Writer / Reader werden nach Verwendung geclosed und nicht immer neuer aufgemacht
    - der StreamReader hat eine ReadToEnd Methode
    - Fehler ist nicht nachzuverfolgen weil weder Code-Zeile angegeben noch Textbox1, Textbox2 Inhalt klar

    Als Beispiel für die Überarbeitung nimm Kevin's Multiserver (TCP) Code

Facebook
Telefonspende