Threadbasierter Multiserver, wie realisiere ich das

  • VB.NET

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

    Threadbasierter Multiserver, wie realisiere ich das

    Hallo an alle,

    Ich habe folgendes Problem, ich möchte eine Anwendung (Windows Form) erstellen, die für jede Clientverbindung einen Thread erstellt, jedoch habe ich da das Problem, mit dem Anfang. der Konstruktion...

    Ich habe mir bereits Das Tutorial "MultiServer (TCP)" durchgelesen und angeschaut, das ist das was ich brauche, aber wie spreche ich da eine bestimmete verbindung an? Denn in dem Tutorial wird an alle gesendet, aber nicht wie man jetzt nur zb "User 6" einen text sendet!



    :(

    Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „MrTweek“ ()

    Ich hab mich auch mal damit befasst, aber nicht wirklich viel zeit und hab dann aufgehört...
    Vielleicht machst du dir einfach ma ne eigene Klasse "User" oder so, wo die ganzen connection datas drinne sind, vielleicht noich der name oder so,

    war vielleicht nicht wirklich viel hilfe aber schau dir doch ma irgendwo gameserver tut'S an, fals es sowas gibt, da die ja auch so funktionieren...

    Soweit habe ich es hinbekommen, habe den MUltiserver etwas abgeändert, aber es will irgendwie net, wenn jemand verbindet wird es nicht in der Listview liste angezeigt... aber per putty kommt korrekt die ausgabe des gesendeten clients als antwort vom Server...




    VB.NET-Quellcode

    1. Imports System
    2. Imports System.Net
    3. Imports System.IO
    4. Imports System.Net.Sockets
    5. Imports System.Threading
    6. Imports System.Text
    8. Module Server
    9. Dim WithEvents Listener As TcpListener
    10. Dim Client As New TcpClientDim connections As New List(Of Connection)
    11. Dim Listener_thread As New Thread(AddressOf Listening)Dim ip As New IPEndPoint(IPAddress.Any, 2380)
    13. Public Structure Connection
    14. Dim stream As NetworkStream
    15. Dim writer As StreamWriter
    16. Dim reader As StreamReader
    17. Dim remote_ip As String
    18. Dim con_id As Integer
    19. End Structure
    20. Private Function _get_remote_ip(ByVal input As String)
    21. Dim end_of_raddress, raddress_length As Integer
    22. Dim rabsender As String
    23. end_of_raddress = InStr(1, input, ":", 1) 'position bis ";" ermitteln
    24. raddress_length = end_of_raddress - 1 ' Position des ";" abziehn
    25. rabsender = Mid(input, 1, raddress_length) 'extrahiere den AbsenderReturn rabsender
    26. End Function
    27. Public Sub Start()
    28. Try
    29. Listener_thread.Start()
    30. Catch ex As Exception
    31. End Try
    32. End Sub
    33. Private Sub ListenToConnection(ByVal con As Connection)
    34. Do
    35. Try
    36. Dim tmp As String = con.reader.ReadLine ' warten, bis etwas empfangen wird...
    37. SendToAllClients(con.con_id & "(" & con.remote_ip & "): " & tmp) ' an alle clients weitersenden.
    38. Catch ' die aktuelle überwachte verbindung hat sich wohl verabschiedet.
    39. connections.Remove(con)
    40. Exit Do
    41. End Try
    42. Loop
    43. End Sub
    44. 　
    45. 　Private Sub Listening()
    46. Dim c_id, c_name, c_user, c_os, c_rip, c_acthwnd, c_status As String
    47. Try
    48. Listener = New TcpListener(ip)
    49. Listener.Start()
    51. While True ' wir warten auf eine neue verbindung...
    52. Client = Listener.AcceptTcpClient
    53. Dim c As New Connection ' und erstellen für die neue verbindung eine neue connection...
    54. c.stream = Client.GetStreamc.reader = New StreamReader(c.stream)
    55. c.writer = New StreamWriter(c.stream)
    56. c.remote_ip = _get_remote_ip(Client.Client.RemoteEndPoint.ToString)
    57. c_rip = c.remote_ip
    58. c.con_id = connections.Count
    59. c_id = c.con_id.ToString
    60. c_name = "Client" & c.con_id.ToString
    61. c_user = "Unbekannt"
    62. c_status = "Unbekannt"
    64. main.Invoke(New main.delegated_Add_list_entry(AddressOf main._Add_list_entry), c_id, c_name, c_user, c.remote_ip, c_status)
    65. 　
    66. connections.Add(c) ' und fügen sie der liste der clients hinzu
    67. Dim reader_thread As New Thread(AddressOf ListenToConnection)
    68. reader_thread.Start(c)
    69. End While
    71. Catch ex As Exception
    72. End Try
    74. End Sub
    75. Public Sub SendToClient(ByVal c As Connection, ByVal data As String)
    76. Try
    77. c.writer.WriteLine(data)
    78. c.writer.Flush()
    79. Catch ex As Exception
    80. End Try
    81. End SubPrivate Sub SendToAllClients(ByVal s As String)
    82. For Each c As Connection In connections ' an alle clients weitersenden.
    83. Try
    84. c.writer.WriteLine(s)
    85. c.writer.Flush()
    86. Catch
    87. End Try
    88. Next
    89. End Sub
    90. Public Sub Stop_Server()
    91. Try
    92. Listener.Stop()
    93. Client.Close()
    94. Listener_thread.Abort()
    95. Catch ex As Exception
    96. End Try
    97. End Sub
    98. End Module

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

    Hier sind meine Drei Sub's für das Senden Von Nachrichten in Folgenden Methoden:

    1. An Alle. Ist ja bereits bekannt.

    2. An Alle auser Einen bestimmten

    3. Nur an einen Bestimmten.

    VB.NET-Quellcode

    1. ' An Alle User Senden! (Nachricht = S)
    2. Private Sub SendToAllClients(ByVal s As String)
    3. For Each c As Connection In list
    4. 'An Jede Verbindung in Connection senden.
    5. Try
    6. c.streamw.WriteLine(s)
    7. c.streamw.Flush()
    8. Catch
    9. End Try
    11. Next
    12. End Sub
    14. ' An Alle User Senden Auser vom Ausgehenden! (Nachricht = s,Nick) ' Nick = User der Die Nachricht NICHT erhalten soll.
    15. Private Sub SendToAllClientsWithoutSender(ByVal s As String, ByVal NichtZu As String)
    16. For Each c As Connection In list
    17. If Not c.nick = Nick Then 'Sollte der Connection Nick nicht der Übergebene sein Sende die Nachricht an Ihn
    18. Try
    19. c.streamw.WriteLine(s)
    20. c.streamw.Flush()
    21. Catch
    22. End Try
    23. End If
    25. Next
    26. End Sub
    28. ' An einen User Senden (Nachricht= S,Nick) ' Nick = Name des Users der Die Nachricht erhalten soll.
    29. Private Sub SendtoClient(ByVal s As String, ByVal Nick As String)
    30. For Each Connection In list
    31. Try
    32. If Connection.nick = Nick Then
    33. 'Sollte der Connection Name der Gleiche wie der Übergebene sein Sende die nachricht an Ihn
    34. Connection.streamw.WriteLine(s)
    35. Connection.streamw.Flush()
    36. End If
    39. Catch
    40. End Try
    41. Next
    42. End Sub


    Diesen Code verwende ich bei meinem TCP Server Projekt.. Sollte eig alles Funktionieren mit dem TPC server aus dem TuT.

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

    Ja das senden funktioniert ja, aber es werden keine clients in der liste angezeigt, wenn einer verbindet dann ist die trotzdem leer...

    EDIT:
    Ich habe das Problem gefunden, es wurde ein Invoke benötigt :)

    VB.NET-Quellcode

    1. Private Sub Listening()
    2. Dim c_id, c_name, c_user, c_os, c_rip, c_acthwnd, c_status As String
    3. Try
    4. Listener = New TcpListener(ip)
    5. Listener.Start()
    7. While True
    8. Client = Listener.AcceptTcpClient
    10. Dim c As New Connection
    11. Dim cname As String = "Client_" & c.con_id.ToString
    13. c.stream = Client.GetStream
    14. c.reader = New StreamReader(c.stream)
    15. c.writer = New StreamWriter(c.stream)
    16. c.remote_ip = _get_remote_ip(Client.Client.RemoteEndPoint.ToString)
    17. c_rip = c.remote_ip
    18. c.con_id = connections.Count
    19. c_id = c.con_id.ToString
    20. c_name = "Client" & c.con_id.ToString
    21. c_user = "Unbekannt"
    22. c_status = "Unbekannt"
    24. If ListView.InvokeRequired Then
    25. Me.Invoke(New delegated_Add_list_entry(AddressOf _Add_list_entry), c_id, c_name)
    26. Else
    27. _Add_list_entry(c_id, c_name)
    28. End If
    30. connections.Add(c) ' und fügen sie der liste der clients hinzu
    31. Dim reader_thread As New Thread(AddressOf ListenToConnection)
    32. reader_thread.Start(c)
    33. End While
    34. Catch ex As Exception
    35. End Try
    37. End Sub

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

Facebook
Telefonspende