TCP Server Client

  • VB.NET

Es gibt 11 Antworten in diesem Thema. Der letzte Beitrag () ist von franky0815.

    TCP Server Client

    Moin Moin,

    ich benötige mal Hilfe

    als Anfänger versuche ich über das Netzwerk eine Art Ampelsteuerung zu erstellen Frei / Besetzt. Ich habe vier TextBoxen und möchte das jeder Client eine TextBox ansteuert. Es wäre super wenn mir einer eine Tipp geben könnte wie ich das lösen kann.
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Public Class frmServer
    3. Inherits Form
    5. Private tcpListener As TcpListener
    7. Private listenThread As Thread
    9. Private connectedClients As String 'Integer = 0
    11. Private Delegate Sub WriteMessageDelegate(ByVal msg As String)
    13. Public Sub New()
    15. InitializeComponent()
    17. Server()
    19. End Sub
    21. Private Sub Server()
    23. Me.tcpListener = New TcpListener(IPAddress.Any, 5000)
    25. Me.listenThread = New Thread(New ThreadStart(AddressOf listenforclients))
    27. Me.listenThread.Start()
    29. End Sub
    31. Private Sub listenforclients()
    33. Me.tcpListener.Start()
    35. Do
    37. Dim client As TcpClient = Me.tcpListener.AcceptTcpClient
    39. 'Dim Client = tcpListener.AcceptTcpClient
    41. Dim clientthread As New Thread(New ParameterizedThreadStart(AddressOf HandleClientComm))
    43. clientthread.Start(client)
    45. 　
    47. 'MsgBox(CType(client.Client.RemoteEndPoint, IPEndPoint).Address().ToString())
    49. connectedClients = (CType(client.Client.RemoteEndPoint, IPEndPoint).Address().ToString())
    51. Loop
    53. End Sub
    55. Private Sub HandleClientComm(ByVal client As Object)
    57. Dim tcpClient As TcpClient = DirectCast(client, TcpClient)
    59. Dim clientStream As NetworkStream = tcpClient.GetStream()
    61. Dim message(4095) As Byte
    63. Dim bytesRead As Integer
    65. Do
    67. bytesRead = 0
    69. Try
    71. bytesRead = clientStream.Read(message, 0, 4096)
    73. Catch
    75. Exit Do
    77. End Try
    79. If bytesRead = 0 Then
    81. connectedClients -= 1
    83. Exit Do
    85. End If
    87. Dim encoder As New ASCIIEncoding
    89. Dim msg As String = encoder.GetString(message, 0, bytesRead)
    91. WriteMessage(msg)
    93. Loop
    95. tcpClient.Close()
    97. End Sub
    99. 　
    101. Private Sub WriteMessage(ByVal msg)
    103. If rtbBuero1.InvokeRequired() Then
    105. Dim d As New WriteMessageDelegate(AddressOf WriteMessage)
    107. rtbBuero1.Invoke(d, New Object() {msg})
    109. Else
    111. rtbBuero1.Text = ""
    113. rtbBuero1.AppendText(msg)
    115. End If
    117. End Sub
    119. Private Sub frmServer_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    121. End Sub
    123. Private Sub TableLayoutPanel1_Paint(sender As Object, e As PaintEventArgs) Handles TableLayoutPanel1.Paint
    125. End Sub


    Verschoben. Code in Spoiler verpackt. ~Thunderbolt

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

    Du musst dir jetzt überlegen wie sich jeder Client seinen alias mitschicken kann, über welchen du dann später die Clients seperat behandeln kannst.
    • Du könntest eine 10byte lange Kennung von jedem Client mitschicken.
    • Jeder Client muss sich erst am Server registrieren (z.B. erst Connecten dann Daten schicken).
    Du musst auch bisschen mehr sagen was du genau vorhast?

    Sind die TextBoxen bei jedem Client zu sehn oder nur auf dem Server?

    die Client Ip habe ich ja!

    ich dachte ich könnte es darüber lösen.
    das finde ich gut >>>>Jeder Client muss sich erst am Server registrieren (z.B. erst Connecten dann Daten schicken).
    Wie bekomme ich das hin?

    Ich versuche noch mal zu erklären was ich möchte: ich habe 4 PC jeder meldet sich an dem Server mit einer festen IP an soweit funktioniert es. In meinem Server Formular habe ich 4 Textboxen jeder Client soll in eine TextBox den Status ob frei oder besetzt ist reinschreiben. im Augenblick ist ja beim Server nur eine rtbbox bei write message drin die kann ich mit allen Clints steuern aber ich weiß nicht wie ich das auf "rtbox2" und "rtbox3" machen soll.
    Hier noch mal den Code vom Client

    VB.NET-Quellcode

    1. ublic Class AmpelClient
    4. Private client As New TcpClient()
    6. Private serverEndPoint As New IPEndPoint(IPAddress.Parse("192.168.2.1"), 5000) ' (IPAddress.Parse("192.168.2.1"), 5000)
    8. Public Sub New()
    10. Try
    12. InitializeComponent()
    14. client.Connect(serverEndPoint)
    16. Catch ex As Exception
    18. 　
    20. MsgBox(ex.ToString)
    22. End Try
    24. 　
    26. End Sub
    28. 　
    30. Private Sub sendmessage(ByVal msg As String)
    32. 　
    34. Dim clientstream As networkstream = client.getstream()
    36. Dim encoder As New asciiencoding()
    38. Dim buffer() As Byte = encoder.GetBytes(msg)
    40. clientstream.write(buffer, 0, buffer.length)
    42. clientstream.Flush()
    44. End Sub
    46. 　
    48. Private Sub btnNB_Click(sender As Object, e As EventArgs) Handles btnNB.Click
    50. sendmessage("nicht besetzt")
    52. btnStatus.BackColor = Color.White
    54. End Sub
    56. Private Sub btnStatus_Click(sender As Object, e As EventArgs) Handles btnStatus.Click
    58. If btnStatus.BackColor = Color.Red Then
    60. sendmessage("FREI")
    62. btnStatus.BackColor = Color.GreenYellow
    64. btnStatus.Text = "FREI"
    66. Else
    68. btnStatus.BackColor = Color.Red
    70. sendmessage("BESETZT")
    72. btnStatus.Text = "BESETZT"
    74. End If
    76. End Sub
    78. End Class

    Und wo is jetzt dein Problem?

    Du erstellst am Server ne List(of Clients) wo der Alias und die IP des Clients drinsteht. (Hierfür muss natürlich der Client beim anmelden einen Alias mitschicken (z.B. die ersten 10Byte))

    Beim anmelden wird gecheckt welches die nächste Freie TextBox is (musst dir halt überlegen wie du das handeln willst (z.B. ein Boolean textbox1Frei etc.) und die wird dann auf den Client registriert. Wenn der Client nun sein Status ändert brauchst du nur abfragen welches die TextBox is (geht ja über den Alias ganz simpel) und den Status aktualisieren.

    ...
    Fertig :)

    Danke erst mal für die Antwort, so richtig verstehe ich das nicht, wie gesagt ich fange erst mit VB an.
    Ich werde morgen mal versuchen ob ich etwas hinbekomme. Hast du vielleicht ein Beispiel um den Alias mit zu senden und wie ich eine liste der Clients erstelle.

    Soweit ich es gerade mitverfolge habe, könnte dir vielleicht Regex (Regular Expressions) weiter helfen.

    VB.NET-Quellcode

    1. ​
    2. Dim GetStream As String = "<127.0.0.1>Frei"
    3. Dim RX_m As Match = Regex.Match(GetStream, "<(.+?)>(.+?)", RegexOptions.IgnoreCase)
    4. If RX_m.Success Then
    5. Dim ip As String = RX_m.Groups(1).ToString()
    6. Dim Status As String = RX_m.Groups(2).ToString()
    7. Else
    8. End If

    • Der String GetStream steht, für die Nachricht vom Clienten. Was du nun beim Clienten verändern sollst, wäre, dass du denn Benutzernamen (oder was auch immer) mit verschickst.
    • Regex kann ansich nicht, wissen, was du möchtest, sondern er brauch einen Pattern. Der Pattern bei String GetStream sieht so aus <(.+?)>(.+?) nartürlich könntest du, dass noch verbessern indem du, einen bestimmten Pattern für die IP nimmst und einen Bestimmten Pattern für denn Status, aber es würde für dein Wunsch reichen.
    • Falls, der Match erfolgreich war, fragst du so gesagt "denn Regex nach Gruppen nach". Eine Gruppe erstellt man mit ()
    • ​So würde es dann aussehen:
    1. Groups(1) = 127.0.0.1
    2. Groups(2) = Frei
    ​Viel Glück. :thumbsup: ​

    Moin Moin,

    vielen Dank für die Antworten, ich werde mich heute mit den Vorschlägen mal beschäftigen und vielleicht finde ich den richtigen weg:)
    Die Clients melden sich alle mit ihrer Ip am Server an, die Steuerung der 1. rtbbox funktioniert auch allerdings steuern alle die rtbbox1

    VB.NET-Quellcode

    1. Private Sub WriteMessage(ByVal msg)
    3. If rtbBuero1.InvokeRequired() And connectedClients = "192.168.2.2" Then
    5. Dim d As New WriteMessageDelegate(AddressOf WriteMessage)
    7. rtbBuero1.Invoke(d, New Object() {msg})
    9. Else
    11. rtbBuero1.Text = ""
    13. rtbBuero1.AppendText(msg)
    15. End If
    17. If rtbBuero2.InvokeRequired() And connectedClients = "192.168.2.1" Then
    19. Dim d As New WriteMessageDelegate(AddressOf WriteMessage)
    21. rtbBuero2.Invoke(d, New Object() {msg})
    23. Else
    25. rtbBuero2.Text = ""
    27. rtbBuero2.AppendText(msg)
    29. End If
    31. End Sub


    das funktioniert so nicht! Hier muss ich irgendwie umbauen damit ich die Zuordnung bekomme, ich habe keine Ahnung wie ich das machen soll.

    Dieser Beitrag wurde bereits 4 mal editiert, zuletzt von „franky0815“ ()

    Lass die Clients doch den Büronamen mitsenden.

    Zum Beispiel b1:besetzt bzw. b1:nbesetzt.
    Im Server kannst du dann den Text am : splitten und anhand der Büronummer der jeweiligen Textbox zuweisen.

    VB.NET-Quellcode

    1. Dim Identifier As String = "Dein Empfanger String hier".Split(":"c)(0)
    2. Select Case Identifier
    3. Case "b1"
    4. 'alles für Textbox 1
    5. Case "b2"
    6. 'alles für Textbox 2
    7. 'usw.
    8. End Select

Facebook
Telefonspende