Chat Server schließt beim beenden des Clients. (Trennungsfehler?)

  • VB.NET

Es gibt 14 Antworten in diesem Thema. Der letzte Beitrag () ist von XaioXiin.

    Chat Server schließt beim beenden des Clients. (Trennungsfehler?)

    Guten Tag,

    Ich habe ein Chat Porgramm erstellt und dieses funktioniert auch, jedoch hängt sich der Server beim verlassen des Clients auf!
    Dieser Fehler erscheint dann:






    Das ist der Client Code :

    VB.NET-Quellcode

    1. Imports System.Net.Sockets
    2. Imports System.Text
    3. Public Class Form1
    4. Dim clientSocket As New System.Net.Sockets.TcpClient()
    5. Dim serverStream As NetworkStream
    6. Dim readData As String
    7. Dim infiniteCounter As Integer
    9. Private Sub Button1_Click(ByVal sender As System.Object, _
    10. ByVal e As System.EventArgs) Handles Button1.Click
    11. Dim outStream As Byte() = _
    12. System.Text.Encoding.ASCII.GetBytes(TextBox2.Text + "$")
    13. serverStream.Write(outStream, 0, outStream.Length)
    14. serverStream.Flush()
    15. TextBox2.Text = ""
    17. End Sub
    19. Private Sub msg()
    20. If Me.InvokeRequired Then
    21. Me.Invoke(New MethodInvoker(AddressOf msg))
    22. Else
    23. TextBox1.Text = TextBox1.Text + Environment.NewLine + " >> " + readData
    24. End If
    25. End Sub
    27. Private Sub Button2_Click(ByVal sender As System.Object, _
    28. ByVal e As System.EventArgs)
    29. Me.Visible = False
    30. End Sub
    32. Private Sub getMessage()
    33. For infiniteCounter = 1 To 2
    34. infiniteCounter = 1
    35. serverStream = clientSocket.GetStream()
    36. Dim buffSize As Integer
    37. Dim inStream(10024) As Byte
    38. buffSize = clientSocket.ReceiveBufferSize
    39. serverStream.Read(inStream, 0, buffSize)
    40. Dim returndata As String = _
    41. System.Text.Encoding.ASCII.GetString(inStream)
    42. readData = "" + returndata
    43. msg()
    44. Next
    45. End Sub
    47. Private Sub Form1_Enter(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Enter
    49. End Sub
    51. Private Sub Form1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Me.KeyPress
    53. End Sub
    55. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    56. ControlBox = False
    57. textbox516.Text = Form2.textbox515.Text
    58. readData = "Mit Server verbunden."
    59. msg()
    60. clientSocket.Connect("192.168.192.40", 22045)
    61. 'Label1.Text = "Client Socket Program - Server Connected ..."
    62. serverStream = clientSocket.GetStream()
    64. Dim outStream As Byte() = _
    65. System.Text.Encoding.ASCII.GetBytes(textbox516.Text + "$")
    66. serverStream.Write(outStream, 0, outStream.Length)
    67. serverStream.Flush()
    69. Dim ctThread As Threading.Thread = New Threading.Thread(AddressOf getMessage)
    70. ctThread.Start()
    71. End Sub
    73. Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
    74. Me.Close()
    76. End Sub
    78. Private Sub TextBox3_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)
    81. End Sub
    82. End Class


    Und dies ist der Server Code :

    VB.NET-Quellcode

    1. Imports System.Net.Sockets
    2. Imports System.Text
    3. Module Servermodul
    4. Dim clientsList As New Hashtable
    5. Sub Main()
    6. Dim serverSocket As New TcpListener(22045)
    7. Dim clientSocket As TcpClient
    8. Dim infiniteCounter As Integer
    9. Dim counter As Integer
    11. serverSocket.Start()
    12. msg("#########################################")
    13. msg("# Server gestartet. Willkommen #")
    14. msg("# Chatroom ist jetzt geoeffnet #")
    15. msg("#########################################")
    17. counter = 0
    18. infiniteCounter = 0
    19. For infiniteCounter = 1 To 2
    20. infiniteCounter = 1
    21. counter += 1
    22. clientSocket = serverSocket.AcceptTcpClient()
    24. Dim bytesFrom(10024) As Byte
    25. Dim dataFromClient As String
    27. Dim networkStream As NetworkStream = _
    28. clientSocket.GetStream()
    29. networkStream.Read(bytesFrom, 0, CInt(clientSocket.ReceiveBufferSize))
    30. dataFromClient = System.Text.Encoding.ASCII.GetString(bytesFrom)
    31. dataFromClient = _
    32. dataFromClient.Substring(0, dataFromClient.IndexOf("$"))
    34. clientsList(dataFromClient) = clientSocket
    36. broadcast(dataFromClient + " hat den Chat betreten! ", dataFromClient, False)
    38. msg(dataFromClient + " hat den Chat betreten! ")
    39. Dim client As New handleClinet
    40. client.startClient(clientSocket, dataFromClient, clientsList)
    41. Next
    43. clientSocket.Close()
    44. serverSocket.Stop()
    45. msg("exit")
    46. Console.ReadLine()
    48. End Sub
    50. Sub msg(ByVal mesg As String)
    51. mesg.Trim()
    52. Console.WriteLine(" Console: " + mesg)
    53. End Sub
    54. Private Sub broadcast(ByVal msg As String, _
    55. ByVal uName As String, ByVal flag As Boolean)
    56. Dim Item As DictionaryEntry
    57. For Each Item In clientsList
    58. Dim broadcastSocket As TcpClient
    59. broadcastSocket = CType(Item.Value, TcpClient)
    60. Dim broadcastStream As NetworkStream = _
    61. broadcastSocket.GetStream()
    62. Dim broadcastBytes As [Byte]()
    64. If flag = True Then
    65. broadcastBytes = Encoding.ASCII.GetBytes(uName + " : " + msg)
    66. Else
    67. broadcastBytes = Encoding.ASCII.GetBytes(msg)
    68. End If
    70. broadcastStream.Write(broadcastBytes, 0, broadcastBytes.Length)
    71. broadcastStream.Flush()
    72. Next
    73. End Sub
    75. Public Class handleClinet
    76. Dim clientSocket As TcpClient
    77. Dim clNo As String
    78. Dim clientsList As Hashtable
    80. Public Sub startClient(ByVal inClientSocket As TcpClient, _
    81. ByVal clineNo As String, ByVal cList As Hashtable)
    82. Me.clientSocket = inClientSocket
    83. Me.clNo = clineNo
    84. Me.clientsList = cList
    85. Dim ctThread As Threading.Thread = New Threading.Thread(AddressOf doChat)
    86. ctThread.Start()
    87. End Sub
    89. Private Sub doChat()
    90. Dim infiniteCounter As Integer
    91. Dim requestCount As Integer
    92. Dim bytesFrom(10024) As Byte
    93. Dim dataFromClient As String
    94. Dim sendBytes As [Byte]()
    95. Dim serverResponse As String
    96. Dim rCount As String
    97. requestCount = 0
    98. For infiniteCounter = 1 To 2
    99. infiniteCounter = 1
    100. Try
    101. requestCount = requestCount + 1
    102. Dim networkStream As NetworkStream = _
    103. clientSocket.GetStream()
    104. networkStream.Read(bytesFrom, 0, CInt(clientSocket.ReceiveBufferSize))
    105. dataFromClient = System.Text.Encoding.ASCII.GetString(bytesFrom)
    106. dataFromClient = _
    107. dataFromClient.Substring(0, dataFromClient.IndexOf("$"))
    108. msg("From client - " + clNo + " : " + dataFromClient)
    109. rCount = Convert.ToString(requestCount)
    111. broadcast(dataFromClient, clNo, True)
    112. Catch ex As Exception
    113. MsgBox(ex.ToString)
    114. End Try
    115. Next
    116. End Sub
    118. End Class
    119. End Module




    Ich hoffe mir kann jemand helfen, denn ich weiß absolut nicht wie ich dies beheben kann. :(

    Ich habe dies nun genau so eingetragen, doch der Server stürzt wie folgt mit der selben fehlermeldung ab, ich habe beim Client dies eingetragen :

    VB.NET-Quellcode

    1. Private Sub Form1_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing
    2. serverStream.Close()
    3. End Sub

    Nachdem, immernoch das selbe :

    VB.NET-Quellcode

    1. Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
    2. serverStream.Close()
    3. clientSocket.Close()
    5. End Sub

    Eigentlich müsste das ganze funktionieren. Das hat es zumindest bei mir immer.
    Versuch das mal, ansonsten weiß ich leider nicht weiter:

    VB.NET-Quellcode

    1. serverStream.Flush()
    2. serverStream.Close()
    3. clientSocket.Close()


    RushDen schrieb:

    Wenn du ein Try catch drumrum gebaut hast, dann stürzt der Server normalerweise nicht ab sondern läuft nach der Exception weiter?

    Das wäre aber auch keine Lösung.


    Achja und ich hätte da noch zwei kleine Codeverbesserungen.
    Nutze Anstatt TextBox2.Text = "" lieber TextBox2.Clear()
    Und Anstatt: TextBox1.Text = TextBox1.Text + Environment.NewLine + " >> " + readData besser TextBox1.Text += Environment.NewLine + " >> " + readData

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

    Das hier ist beim Server :




    Ist das relevant?

    Betroffen ist das makierte rote:

    VB.NET-Quellcode

    1. Imports System.Net.Sockets
    2. Imports System.Text
    3. Module Servermodul
    4. Dim clientsList As New Hashtable
    5. Sub Main()
    6. Dim serverSocket As New TcpListener(22045)
    7. Dim clientSocket As TcpClient
    8. Dim infiniteCounter As Integer
    9. Dim counter As Integer
    11. serverSocket.Start()
    12. msg("#########################################")
    13. msg("# Server gestartet. Willkommen #")
    14. msg("# Chatroom ist jetzt geoeffnet #")
    15. msg("#########################################")
    17. counter = 0
    18. infiniteCounter = 0
    19. For infiniteCounter = 1 To 2
    20. infiniteCounter = 1
    21. counter += 1
    22. clientSocket = serverSocket.AcceptTcpClient()
    24. Dim bytesFrom(10024) As Byte
    25. Dim dataFromClient As String
    27. Dim networkStream As NetworkStream = _
    28. clientSocket.GetStream()
    29. networkStream.Read(bytesFrom, 0, CInt(clientSocket.ReceiveBufferSize))
    30. dataFromClient = System.Text.Encoding.ASCII.GetString(bytesFrom)
    31. dataFromClient = _
    32. dataFromClient.Substring(0, dataFromClient.IndexOf("$"))
    34. clientsList(dataFromClient) = clientSocket
    36. broadcast(dataFromClient + " hat den Chat betreten! ", dataFromClient, False)
    38. msg(dataFromClient + " hat den Chat betreten! ")
    39. Dim client As New handleClinet
    40. client.startClient(clientSocket, dataFromClient, clientsList)
    41. Next
    43. [color=#FF0000]clientSocket.Close()[/color] <-------------------------------- HIER DAS
    44. serverSocket.Stop()
    45. msg("exit")
    46. Console.ReadLine()
    48. End Sub