Asynchroner Multi Client Server, wie entferne ich clients richtig?

  • VB.NET

Es gibt 3 Antworten in diesem Thema. Der letzte Beitrag () ist von ErfinderDesRades.

    Asynchroner Multi Client Server, wie entferne ich clients richtig?

    Hallo Leute :)
    Ich probiere einen zuverlässigen stabilen Multi Client Server zu bauen allerdings harkt es an einer stelle. Durch das Socket ordentlich die listview id abrufen und so ein Client entfernen. Der Source code den ich poste funktioniert allerdings bin ich mit einer stelle ganz und gar nicht zufrieden diese habe ich markiert.


    Wäre toll wenn ihr mir helfen könntet

    Source code :

    VB.NET-Quellcode

    1. Dim serverSocket As Socket
    2. Dim clientSocket As Socket
    3. Dim byteData(1023) As Byte
    5. ''
    6. '' Custom Functions
    7. ''
    9. Private Sub refreshClient(ByVal client As Socket)
    10. Send("|getinfo|", client)
    11. End Sub
    13. ''
    14. '' Custom Functions end
    15. ''
    17. Private Sub beginAccept()
    18. serverSocket = New Socket(AddressFamily.InterNetwork, SocketType.Stream, ProtocolType.Tcp)
    19. Dim IpEndPoint As IPEndPoint = New IPEndPoint(IPAddress.Any, 33724)
    20. serverSocket.Bind(IpEndPoint)
    21. serverSocket.Listen(5)
    22. serverSocket.BeginAccept(New AsyncCallback(AddressOf OnAccept), Nothing)
    23. End Sub
    25. Private Sub OnAccept(ByVal ar As IAsyncResult)
    26. clientSocket = serverSocket.EndAccept(ar)
    27. serverSocket.BeginAccept(New AsyncCallback(AddressOf OnAccept), Nothing)
    28. clientSocket.BeginReceive(byteData, 0, byteData.Length, SocketFlags.None, _
    29. New AsyncCallback(AddressOf OnRecieve), clientSocket)
    30. AddClient(clientSocket)
    31. End Sub
    33. Delegate Sub _AddClient(ByVal client As Socket)
    34. Private Sub AddClient(ByVal client As Socket)
    35. If InvokeRequired Then
    36. Invoke(New _AddClient(AddressOf AddClient), client)
    37. Exit Sub
    38. End If
    39. '' IP Splitten
    40. Dim clientIP() As String = client.LocalEndPoint.ToString.Split(":")
    41. '' Items definieren
    42. Dim items(2) As String
    43. items(0) = clientIP(0)
    44. items(1) = "loading"
    45. items(2) = clientIP(1)
    47. Dim lvi As New ListViewItem(items)
    48. lvi.Tag = client
    49. lv_clients.Items.Add(lvi)
    52. End Sub
    54. Private Sub Send(ByVal msg As String, ByVal client As Socket)
    55. Try
    56. Dim sendBytes As Byte() = System.Text.ASCIIEncoding.ASCII.GetBytes(msg)
    57. client.BeginSend(sendBytes, 0, sendBytes.Length, SocketFlags.None, New AsyncCallback(AddressOf OnSend), client)
    58. Catch ex As Exception
    59. lv_clients.SelectedItems(0).Remove()
    60. End Try
    61. End Sub
    63. Private Sub OnSend(ByVal ar As IAsyncResult)
    64. Dim client As Socket = ar.AsyncState
    65. client.EndSend(ar)
    66. End Sub
    68. Delegate Sub _OnRecieve(ByVal ar As IAsyncResult)
    69. Private Sub OnRecieve(ByVal ar As IAsyncResult)
    70. If InvokeRequired Then
    71. Invoke(New _OnRecieve(AddressOf OnRecieve), ar)
    72. Exit Sub
    73. End If
    74. Dim client As Socket = ar.AsyncState
    75. Try
    76. client.EndReceive(ar)
    77. Dim bytesRec As Byte() = byteData
    78. Dim message As String = System.Text.ASCIIEncoding.ASCII.GetString(bytesRec)
    79. Read(message)
    80. clientSocket.BeginReceive(byteData, 0, byteData.Length, SocketFlags.None, _
    81. New AsyncCallback(AddressOf OnRecieve), clientSocket)
    82. Catch ex As Exception
    84. '' HIER
    85. ' An dieser stelle harkt es
    86. ' Ich kriegs nicht hin ohne eine For schleife die alle einträge prüft
    87. ''' HIER
    89. Dim activeSocket As Socket
    90. For i As Integer = 0 To lv_clients.Items.Count - 1
    91. activeSocket = lv_clients.Items(i).Tag
    92. If activeSocket.Handle = client.Handle Then
    93. lv_clients.Items(i).Remove()
    94. End If
    95. Next
    97. '' bis hier
    99. End Try
    100. End Sub
    102. Delegate Sub _Read(ByVal msg As String)
    103. Private Sub Read(ByVal msg As String)
    104. If InvokeRequired Then
    105. Invoke(New _Read(AddressOf Read), msg)
    106. Exit Sub
    107. End If
    108. Dim cmd() As String = msg.Split("|")
    109. Select Case cmd(1)
    110. Case "info"
    111. '' Empfange benutzerinfos
    112. MsgBox(cmd(2))
    113. End Select
    114. End Sub
    116. ''
    117. '' Client / Server Section ends
    118. ''
    120. End Class



    PS : Wenn ich den Beitrag mit Chrome abschicke macht er keine absätze

    Nudelkuchen schrieb:

    PS : Wenn ich den Beitrag mit Chrome abschicke macht er keine absätze

    ich denke ja, es liegt nicht an Chrome, sondern dass du den falschen Editor der Forum-Software benutzst.
    Bitte VB-Tag benutzen - aber richtig

    Kannst du mal ein Screenshot anhengen, wie diesen hier (wie das geht, gugge Anleitung DateiAnhänge)?
    Bilder

    • Shots07.Png

      72,12 kB, 848×621, 124 mal angesehen

    naja - das Problem liegt tiefer: du trennst nicht Gui von Daten.

    Bei nem ordentlichen AnwendungsDesign hätte man Datensätze, und eine Liste von Datensätzen, wo man total einfach adden und removen kann.

    Aber deine "Datensätze" sind gewissermaßen die ListViewItem, und ein Teil der Daten-Properties steht in den SubItems, ein anderer Teil (der Socket) ist mittels Tag drangepatcht.

    Da ist die Such-Schleife doch nichtmal verkehrt, wenn man so verfahren will.

    Du kannst auch spasseshalber mal VersuchsChat angugge - da gibts im Server-Objekt eine List(Of Client).

    Allerdings das Server-Form zeigt diese Clients nicht an (was prinzipiell kein Problem wäre)