TCP Server/Client disconnect Probleme

  • VB.NET

Es gibt 6 Antworten in diesem Thema. Der letzte Beitrag () ist von Dende().

    TCP Server/Client disconnect Probleme

    Hey Leute,

    ich habe ein Problem mit meinem TCP Chat nach 3 Tagen und viel gegoogle habe ich keine Lösung gefunden und hoffe jetzt das mir hier geholfen werden kann.

    Mein Problem besteht darin das der Server oder der Client probleme beim disconnecten hat, er sendet immer einen leeren Text mit dem Nicknamen davor, dazu erscheint noch eine Fehlermeldung im Server selbst.

    Bild1:
    Spoiler anzeigen




    Wenn ich beide disconnecte sendet er die ganze Zeit den Nicknamen...

    Bild2:
    Spoiler anzeigen




    Hier der Server:
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Imports System.Net.Sockets
    2. Imports System.IO
    3. Imports System.Net
    5. Module Module1
    7. Private mobjTCPServer As TcpListener
    8. Private mobjClient As New TcpClient
    9. Private mobjIpEndpoint As IPEndPoint = New IPEndPoint(IPAddress.Any, 8888) ' eingestellt ist port 8888
    10. Private mobjList As New List(Of clsConnection)
    11. Private mobjClientConnection As clsConnection
    12. Private mobjThreadToCloseServer As New Threading.Thread(AddressOf CloseServer)
    15. Sub Main()
    18. Try
    20. mobjThreadToCloseServer.Start()
    21. mobjTCPServer = New TcpListener(mobjIpEndpoint)
    22. mobjTCPServer.Start()
    25. Console.WriteLine("Server is running!")
    27. While True 'warten auf eine neue verbindung...
    29. mobjClient = mobjTCPServer.AcceptTcpClient
    31. Dim objConnect As New clsConnection(mobjClient.GetStream) ' und erstellen für die neue verbindung eine neue connection...
    33. objConnect.Stream = mobjClient.GetStream
    35. objConnect.StreamReader = New StreamReader(objConnect.Stream)
    36. objConnect.StreamWriter = New StreamWriter(objConnect.Stream)
    38. objConnect.Nick = objConnect.StreamReader.ReadLine 'Nickname wird übergeben
    40. mobjList.Add(objConnect) ' und fügen sie der liste der clients hinzu.
    42. Console.WriteLine(objConnect.Nick & " has joined.")
    44. For Each mobjClientConnection In mobjList ' an alle clients weitersenden.
    46. Try
    48. mobjClientConnection.StreamWriter.WriteLine(objConnect.Nick & " has joined :)")
    49. mobjClientConnection.StreamWriter.Flush()
    51. Catch ex As SocketException
    53. ' NOP
    55. Catch ex As Exception
    57. Console.WriteLine(ex.ToString)
    59. End Try
    61. Next
    63. Dim objThread As New Threading.Thread(AddressOf ListenToConnection)
    64. objThread.Start(objConnect)
    66. End While
    68. Catch ex As Exception
    70. Console.WriteLine(ex.ToString)
    72. End Try
    74. End Sub
    76. Private Sub ListenToConnection(ByVal con As Object)
    78. Dim objConnect As clsConnection = CType(con, clsConnection)
    80. Do
    82. Try
    84. Dim strTmp As String = objConnect.StreamReader.ReadLine ' warten, bis etwas empfangen wird...
    86. Console.WriteLine(objConnect.Nick & ": " & strTmp)
    88. For Each mobjClientConnection In mobjList ' an alle clients weitersenden.
    90. Try
    92. If mobjClient.Connected Then
    94. mobjClientConnection.StreamWriter.WriteLine(objConnect.Nick & ": " & strTmp)
    95. mobjClientConnection.StreamWriter.Flush()
    97. Else
    99. End If
    101. Catch ex As SocketException
    103. mobjClientConnection.StreamWriter.WriteLine(objConnect.Nick & " leaved the Chat :(")
    104. mobjClientConnection.StreamWriter.Flush()
    106. Catch ex As Exception
    108. Console.WriteLine(ex.ToString)
    110. End Try
    112. Next
    114. Catch
    116. 'mobjClientConnection.StreamWriter.WriteLine(objConnect.Nick & " leaved the Chat :(")
    118. mobjList.Remove(objConnect)
    119. Console.WriteLine(objConnect.Nick & " has exit.")
    121. Exit Do
    123. End Try
    125. Loop
    128. End Sub
    130. Private Sub CloseServer(ByVal con As Object)
    132. Do
    134. Dim strClosing As String
    135. Dim intCount As Int32
    137. Console.WriteLine("Pls type exit to close the Server")
    139. strClosing = Console.ReadLine()
    141. If strClosing = "exit" Then
    143. mobjTCPServer.Stop()
    145. End
    147. End If
    149. If strClosing = "test" Then
    151. For Each mobjClientConnection In mobjList
    153. intCount += 1
    155. Next
    157. Console.WriteLine(intCount & " Chatter online")
    158. intCount = 0
    160. End If
    162. Loop
    164. End Sub
    166. End Module
    168. #Region "clsConnection"
    170. Public Class clsConnection
    172. Private mobjStream As NetworkStream
    173. Private mobjStreamWriter As StreamWriter
    174. Private mobjStreamReader As StreamReader
    175. Private strNick As String
    177. Public Sub New(ByVal objStream As NetworkStream)
    179. mobjStream = objStream
    181. End Sub
    183. Public Property Stream() As NetworkStream
    185. Get
    187. Return mobjStream
    189. End Get
    191. Set(ByVal value As NetworkStream)
    193. mobjStream = value
    195. End Set
    197. End Property
    199. Public Property StreamWriter() As StreamWriter
    201. Get
    203. Return mobjStreamWriter
    205. End Get
    207. Set(ByVal value As StreamWriter)
    209. mobjStreamWriter = value
    211. End Set
    213. End Property
    215. Public Property StreamReader() As StreamReader
    217. Get
    219. Return mobjStreamReader
    221. End Get
    223. Set(ByVal value As StreamReader)
    225. mobjStreamReader = value
    227. End Set
    229. End Property
    231. Public Property Nick() As String
    233. Get
    235. Return strNick
    237. End Get
    239. Set(ByVal value As String)
    241. strNick = value
    243. End Set
    245. End Property
    247. End Class
    249. #End Region



    hier der Client:

    Spoiler anzeigen

    VB.NET-Quellcode

    1. Imports System.Net.Sockets
    2. Imports System.IO
    4. Public Class frmClient
    6. Private mobjStream As NetworkStream
    7. Private mobjStreamWriter As StreamWriter
    8. Private mobjStreamReader As StreamReader
    9. Private mobjClient As New TcpClient
    10. Private mobjThead As Threading.Thread
    11. Private Delegate Sub DAddItem(ByVal s As String)
    12. Private mobjNick As String = "unknown"
    14. Private Sub AddItem(ByVal strText As String)
    16. rtfChat.Text += strText & vbCrLf
    18. End Sub
    20. Private Sub Listen()
    22. While mobjClient.Connected
    24. If mobjClient.Connected Then
    26. Try
    28. Me.Invoke(New DAddItem(AddressOf AddItem), mobjStreamReader.ReadLine)
    30. Catch
    32. If Not mobjClient.Connected Then
    34. 'Message()
    36. If btnDisconnect.Enabled = True Then
    38. MessageBox.Show("Verbindung zum Server abgebrochen!", "ThiZ Chat", MessageBoxButtons.OK)
    40. End If
    42. Else
    44. End If
    46. End Try
    48. End If
    50. End While
    52. End Sub
    54. Private Sub frmClient_FormClosed(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed
    56. mobjStream.Close()
    57. mobjClient.Close()
    59. End Sub
    61. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    63. mobjNick = InputBox("Nickname: ", "Namen festlegen", "Chatter")
    65. End Sub
    67. Private Sub btnSend_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSend.Click
    68. Try
    70. If Not txtSend.Text = "" Then
    72. If mobjClient.Connected Then
    74. mobjStreamWriter.WriteLine(txtSend.Text)
    75. mobjStreamWriter.Flush()
    76. txtSend.Clear()
    78. Else
    80. Message()
    82. End If
    84. End If
    86. Catch ex As Exception
    88. HandleException(ex.ToString)
    90. End Try
    93. End Sub
    95. Private Sub txtSend_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles txtSend.KeyDown
    96. Try
    98. If e.KeyCode = Keys.Enter Then
    100. e.SuppressKeyPress = True
    101. btnSend_Click(sender, e)
    103. End If
    105. Catch ex As Exception
    107. HandleException(ex.ToString)
    109. End Try
    111. End Sub
    113. Private Sub btnConnect_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnConnect.Click
    116. Try
    118. btnConnect.Enabled = False
    119. btnDisconnect.Enabled = True
    121. If txtServerIP.Text = "" Then
    123. MsgBox("Keine IP eingetragen!", "ThiZ Chat", MessageBoxButtons.OK)
    125. Else
    127. mobjClient = New TcpClient
    128. mobjClient.Connect(txtServerIP.Text, 8888) ' hier die ip des servers eintragen.
    130. End If
    132. If mobjClient.Connected Then
    134. mobjStream = mobjClient.GetStream
    136. mobjStreamWriter = New StreamWriter(mobjStream)
    137. mobjStreamReader = New StreamReader(mobjStream)
    139. mobjStreamWriter.WriteLine(mobjNick)
    140. mobjStreamWriter.Flush()
    142. mobjThead = New Threading.Thread(AddressOf Listen)
    143. mobjThead.Start()
    145. Else
    147. Message()
    149. End If
    150. Catch ex As Exception
    152. HandleException(ex.ToString)
    153. btnConnect.Enabled = True
    155. End Try
    157. txtSend.Focus()
    159. End Sub
    161. Private Sub btnDisconnect_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDisconnect.Click
    163. Try
    165. btnDisconnect.Enabled = False
    166. btnConnect.Enabled = True
    168. mobjStream.Close()
    169. mobjClient.Close()
    171. Catch ex As Exception
    173. HandleException(ex.ToString)
    174. btnDisconnect.Enabled = True
    176. End Try
    178. End Sub
    180. Private Sub rtfChat_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles rtfChat.TextChanged
    182. rtfChat.SelectionStart = rtfChat.Text.Length
    183. rtfChat.ScrollToCaret()
    185. End Sub
    186. Private Sub Message()
    188. MessageBox.Show("Keine Verbindung zum Server", "ThiZ Chat", MessageBoxButtons.OK)
    190. End Sub
    192. Private Sub HandleException(ByVal e As String)
    194. MsgBox(e, MsgBoxStyle.Information, "Fehler")
    196. End Sub
    198. End Class



    Danke für eure Hilfe :)

    Mfg

    Dende()

    Den Fehler kennen wir bereits =)

    Ist immer im Multiserver. Wenn ich mich recht entsinne wird auf dem Server die TCP Verbindung nicht korrekt geschlossen, der (nicht vorhandene) Buffer gelesen, und dann gibts so einen Blödsinn.
    Also TCP Stream schließen und dann die Connection aus der List schmeißen.

    Gruß,
    Manawyrm

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

    THX Manawyrm für die schnelle Hilfe :)

    Das Problem auf Bild 2 hab ich jetzt gelöst mit einem einfachen

    Exit Do

    weil es sonst ne Endlosschleife war...
    Beim anderen bin ich noch bei, ich denke mein Problem ist auch noch das ich nicht so ganz raffe was genau da passiert, aber ich denke das bekomm ich noch hin


    Spoiler anzeigen

    VB.NET-Quellcode

    1. If mobjClient.Connected Then
    3. mobjClientConnection.StreamWriter.WriteLine(objConnect.Nick & ": " & strTmp)
    4. mobjClientConnection.StreamWriter.Flush()
    6. Else
    8. Exit Do
    10. End If




    Edit:

    Habe meine Probleme soweit behoben, allerdings habe ich dadurch wieder andere Fehler bekommen :D
    Wenn ich jetzt disconnecte zeigt er es richtig an, aber er sendet es den Clienten nur einmal bzw bei 3 Clienten sendet er es nur einem Clienten...
    Das ist echt zum Mäuse melken :/
    Spoiler anzeigen



    Neuer ServerQuelltext:
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Private Sub ListenToConnection(ByVal con As Object)
    3. Dim objConnect As clsConnection = CType(con, clsConnection)
    5. Do
    7. Try
    9. Dim strTmp As String = objConnect.StreamReader.ReadLine ' warten, bis etwas empfangen wird...
    11. '------------------------------------------------ ===== NEU ===== -----------------------------------------------------------
    13. If strTmp = Nothing Then
    15. mobjClientConnection.StreamWriter.WriteLine(objConnect.Nick & " disconnected")
    16. mobjClientConnection.StreamWriter.Flush()
    18. Exit Do
    20. '------------------------------------------------ ===== NEU ===== -----------------------------------------------------------
    22. End If
    24. Console.WriteLine(objConnect.Nick & ": " & strTmp)
    26. For Each mobjClientConnection In mobjList ' an alle clients weitersenden.
    28. Try
    31. If mobjClient.Connected Then
    34. mobjClientConnection.StreamWriter.WriteLine(objConnect.Nick & ": " & strTmp)
    35. mobjClientConnection.StreamWriter.Flush()
    37. Else
    39. Exit Do
    41. End If
    43. Catch ex As SocketException
    45. 'NOP
    47. Catch ex As Exception
    49. Console.WriteLine(ex.ToString)
    51. End Try
    53. Next
    55. Catch
    57. mobjList.Remove(objConnect)
    58. Console.WriteLine(objConnect.Nick & " has exit.")
    60. Exit Do
    62. End Try
    64. Loop
    67. mobjList.Remove(objConnect)
    68. Console.WriteLine(objConnect.Nick & " has exit.")
    70. End Sub



    Mfg
    Dende()
    :)

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

    VB.NET-Quellcode

    1. For Each mobjClientConnection In mobjList ' an alle clients weitersenden.
    3. Try
    6. If mobjClient.Connected Then
    9. mobjClientConnection.StreamWriter.WriteLine(objConnect.Nick & ": " & strTmp)
    10. mobjClientConnection.StreamWriter.Flush()
    12. Else
    14. Exit Do '<- MARKIERTE STELLE ^^
    16. End If
    18. Catch ex As SocketException
    20. 'NOP
    22. Catch ex As Exception
    24. Console.WriteLine(ex.ToString)
    26. End Try
    28. Next


    Das mit der Schleife macht er ja ... Nur das Problem ist die Markierte Stelle. Er hat den Client der die Verbindung getrennt hat noch in der Liste, und versucht an diesen zu senden. Schlägt fehl weil nicht mehr verbunden, und durch die abfrage If mobjClient.Connected Then beendet er den kompletten Thread.

    Hey Leute,

    THX für die Antworten :)

    Ich habe jetzt die Lösung dank euch und eines Arbeitskollgen

    Spoiler anzeigen

    VB.NET-Quellcode

    1. Private Sub ListenToConnection(ByVal objConnection As Object)
    3. Dim objConnect As clsConnection = CType(objConnection, clsConnection)
    4. Dim blnListen As Boolean = True ' <--- Neu
    6. Do
    8. Dim strMessage As String = objConnect.StreamReader.ReadLine ' warten, bis etwas empfangen wird...
    10. If strMessage = String.Empty Then
    12. strMessage = "disconnected"
    14. mobjList.Remove(objConnect)
    15. blnListen = False '<-- auf Flase
    17. End If
    19. Console.WriteLine(objConnect.Nick & ": " & strMessage)
    21. For Each mobjClientConnection In mobjList ' an alle clients weitersenden.
    23. Try
    25. If mobjClient.Connected Then
    27. mobjClientConnection.StreamWriter.WriteLine(objConnect.Nick & ": " & strMessage)
    28. mobjClientConnection.StreamWriter.Flush()
    30. Else
    32. blnListen = False '<---
    34. End If
    36. Catch ex As Exception
    38. Console.WriteLine(ex.ToString)
    40. End Try
    42. Next
    44. Loop While blnListen '<-- Hier die Whileschleife
    46. Console.WriteLine(objConnect.Nick & " has exit.")
    48. End Sub


    Exit Do wurde durch eine variable blnListen = true und einer Whileschleife ersetzt, dadurch wird die schleife nicht sofort abgebrochen und es kann an alle Clienten die Medlung gesendet werden :D

    Mfg
    Dende()
    :thumbsup:

Facebook
Telefonspende