Clientsname vom Server zurück geben

  • VB.NET
  • .NET (FX) 4.5–4.8

Es gibt 5 Antworten in diesem Thema. Der letzte Beitrag () ist von RodFromGermany.

    Clientsname vom Server zurück geben

    Hallo liebe Leute, könnt ihr mir sagen wie ich meinem Server sagen kann das er mir eine Liste zurück geben soll, mit denn Namen der Clients die dann in der ListBox des Clients angezeigt werden soll.?
    Der Code besteht teilweise aus einem anderen Tutorial von diesem Forum!

    Mein Server

    VB.NET-Quellcode

    1. Imports System.Net.Sockets
    2. Imports System.IO
    3. Imports System.Net
    5. ' TCP-MultiServer
    6. ' C 2009 - Vincent Casser
    8. Module Module1
    9. Private server As TcpListener
    10. Private client As New TcpClient
    11. Private ipendpoint As IPEndPoint = New IPEndPoint(IPAddress.Any, 8087) ' eingestellt ist port 8000. dieser muss ggf. freigegeben sein!
    12. Private list As New List(Of Connection)
    14. Private Structure Connection
    15. Dim stream As NetworkStream
    16. Dim streamw As StreamWriter
    17. Dim streamr As StreamReader
    18. Dim nick As String ' natürlich optional, aber für die identifikation des clients empfehlenswert.
    19. End Structure
    21. Private Sub SendToAllClients(ByVal s As String)
    22. For Each c As Connection In list ' an alle clients weitersenden.
    23. Try
    24. c.streamw.WriteLine(s)
    25. c.streamw.Flush()
    26. Catch
    27. End Try
    28. Next
    29. End Sub
    31. Sub Main()
    32. Console.WriteLine("Der Server läuft!")
    33. server = New TcpListener(ipendpoint)
    34. server.Start()
    36. While True ' wir warten auf eine neue verbindung...
    37. client = server.AcceptTcpClient
    39. Dim c As New Connection ' und erstellen für die neue verbindung eine neue connection...
    40. c.stream = client.GetStream
    41. c.streamr = New StreamReader(c.stream)
    42. c.streamw = New StreamWriter(c.stream)
    44. c.nick = c.streamr.ReadLine ' falls das mit dem nick nicht gewünscht, auch diese zeile entfernen.
    46. list.Add(c) ' und fügen sie der liste der clients hinzu.
    47. Console.WriteLine(c.nick & " ist beigetreten.")
    48. ' falls alle anderen das auch lesen sollen können, an alle clients weiterleiten. siehe SendToAllClients
    50. Dim t As New Threading.Thread(AddressOf ListenToConnection)
    51. t.Start(c)
    52. End While
    53. End Sub
    55. Private Sub ListenToConnection(ByVal con As Connection)
    56. Do
    57. Try
    58. Dim tmp As String = con.streamr.ReadLine ' warten, bis etwas empfangen wird...
    59. If tmp = "/test" Then
    60. MsgBox("Befehl erfolgreich")
    61. ElseIf tmp = "/listp" Then
    62. SendToAllClients(list.Last.ToString)
    63. End If
    64. Console.WriteLine(con.nick & ": " & tmp)
    65. SendToAllClients(con.nick & ": " & tmp) ' an alle clients weitersenden.
    67. Catch ' die aktuelle überwachte verbindung hat sich wohl verabschiedet.
    69. Console.WriteLine(con.nick & " has exit.")
    70. SendToAllClients(con.nick & "hat uns verlassen.")
    71. list.Remove(con)
    72. Exit Do
    73. End Try
    74. Loop
    75. End Sub
    76. End Module


    Und das mein Client(1textbox, 1 Button, 1ListBox(Wo die Clients gelistet werden solln), 1richttextbox)

    VB.NET-Quellcode

    1. Imports System.Net.Sockets
    2. Imports System.IO
    3. Imports System.Text.RegularExpressions
    5. Public Class Form1
    6. Private stream As NetworkStream
    7. Private streamw As StreamWriter
    8. Private streamr As StreamReader
    9. Private client As New TcpClient
    10. Private t As New Threading.Thread(AddressOf Listen)
    11. Private Delegate Sub DAddItem(ByVal s As String)
    12. Private nick As String = "unknown"
    14. Private Sub AddItem(ByVal s As String)
    15. rtb_chat.AppendText(String.Format("{0,10}", s) & vbCr)
    16. End Sub
    18. Private Sub Form1_Shown(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Shown
    19. Try
    20. client.Connect("127.0.0.1", 8087) ' hier die ip des servers eintragen.
    21. ' da dieser beim testen wohl lokal läuft, hier die loopback-ip 127.0.0.1.
    22. If client.Connected Then
    23. stream = client.GetStream
    24. streamw = New StreamWriter(stream)
    25. streamr = New StreamReader(stream)
    27. streamw.WriteLine(nick) ' das ist optional.
    28. streamw.Flush()
    30. t.Start()
    31. Else
    32. MessageBox.Show("Verbindung zum Server nicht möglich!")
    33. Application.Exit()
    34. End If
    35. Catch ex As Exception
    36. MessageBox.Show("Verbindung zum Server nicht möglich!")
    37. Application.Exit()
    38. End Try
    39. End Sub
    41. Private Sub Listen()
    42. While client.Connected
    43. Try
    44. Me.Invoke(New DAddItem(AddressOf AddMessage), streamr.ReadLine)
    45. 'Me.Invoke(New AddMessage(streamr.ReadLine))
    46. Catch
    47. MessageBox.Show("Verbindung zum Server nicht möglich!")
    48. Application.Exit()
    49. End Try
    50. End While
    51. End Sub
    53. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    54. nick = My.Settings.benutzername
    55. End Sub
    57. Private Sub AddMessage(ByVal msg As String)
    58. rtb_chat.AppendText(msg & vbCrLf)
    59. End Sub
    61. Private Sub btn_sendmessage_Click(sender As Object, e As EventArgs) Handles btn_sendmessage.Click
    62. streamw.WriteLine(txt_sendmessagebox.Text)
    63. streamw.Flush()
    64. txt_sendmessagebox.Clear()
    65. End Sub

    Definiere

    Lord_Else schrieb:

    Namen der Clients
    In jedem Falle solltest Du mit Else oder Continue Do arbeiten.
    Im Client-Thread musst Du bei Application.Exit() danach ein Return einbauen, damit der Thread ordentlich beendet wird.
    Und: Machst Du Option Strict On.
    Meinst Du beim Server dies (Nur der Frager bekommt eine Antwort):
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Private Sub ListenToConnection(o As Object)
    2. Dim con As Connection = DirectCast(o, Connection)
    3. Do
    4. Try
    5. Dim tmp As String = con.streamr.ReadLine ' warten, bis etwas empfangen wird...
    6. If tmp = "/test" Then
    7. MsgBox("Befehl erfolgreich")
    8. ElseIf tmp = "/listp" Then
    9. For Each c As Connection In list ' an alle clients weitersenden.
    10. Try
    11. con.streamw.WriteLine("Info:" & c.nick) ' Hier die Info reinschreiben
    12. con.streamw.Flush()
    13. Catch
    14. End Try
    15. Next
    16. 'SendToAllClients(list.Last.nick)
    17. Else
    18. Console.WriteLine(con.nick & ": " & tmp)
    19. SendToAllClients(con.nick & ": " & tmp) ' an alle clients weitersenden.
    20. End If
    22. Catch ' die aktuelle überwachte verbindung hat sich wohl verabschiedet.
    24. Console.WriteLine(con.nick & " has exit.")
    25. SendToAllClients(con.nick & "hat uns verlassen.")
    26. list.Remove(con)
    27. Exit Do
    28. End Try
    29. Loop
    30. End Sub
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    Lord_Else schrieb:

    und nicht an alle.
    steht in meinem Post.
    Wohin die Ergebnisse ausgegeben werden, musst Du halt organisieren.
    Sinnvoll wäre da noch eine END_OF_TRANSMISSION-Kennung, dass der Client weiß, dass die Übertragung zu Ende ist.
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    Lord_Else schrieb:

    zurückgeben
    Du musst Dir mit For Each einen Übertragungsstring aufbauen, der nach jedem Einzelnamen ein Trennzeichen hat.
    Nach dem letzten Namen machst Du

    RodFromGermany schrieb:

    eine END_OF_TRANSMISSION-Kennung
    rein. Das ganze musst Du auf Client-Seite natürlich entsprechend auswerten.
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

Facebook
Telefonspende