Hilfe bei TCP-Server

  • VB.NET

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

    Hilfe bei TCP-Server

    Hallo,
    ich bräuchte etwas Hilfe..
    Ich möchte einen TCP-Server programmieren der entweder das Empfangene Telegramm wieder an den Client zurücksendet oder mit einem Telegramm antwortet, dass über Eingabelemente definiert wird.
    Ich habe mir etwas zusammengezimmert, das eine Clientanfrage annimmt und die gesendeten Daten liest.

    VB.NET-Quellcode

    1. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    2. tcpBg = New System.ComponentModel.BackgroundWorker
    3. 'Requires a routine that cancels background worker.
    4. tcpBg.WorkerSupportsCancellation = True
    5. 'ip is most likely from a Textbox.
    6. 'Dim adr As Net.IPAddress = Net.IPAddress.Parse("192.168.178.88")
    7. listener = New TcpListener(IPAddress.Any, 3333)
    9. tcpBg.RunWorkerAsync()
    10. End Sub
    12. Private Sub tcpBg_DoWork(ByVal sender As Object, ByVal e As DoWorkEventArgs) Handles tcpBg.DoWork
    13. listener.Start()
    14. Dim myNetworkStream As NetworkStream
    15. SetTextBoxWithInvoke(TextBox1, "wait")
    16. ' TextBox1.Text = "wait"
    17. While tcpBg.CancellationPending = False
    19. client = listener.AcceptTcpClient
    20. myNetworkStream = client.GetStream()
    21. Dim myBufferBytes(1024) As Byte
    22. myNetworkStream.Read(myBufferBytes, 0, 1024)
    23. SetTextBoxWithInvoke(TextBox1, myBufferBytes(0))
    24. ' .Text = String.Format("{0:X2} {1:X2}", myBufferBytes(0), myBufferBytes(1))
    25. 'Do something with your client.
    26. client.Close()
    27. End While
    28. End Sub
    31. Private Delegate Sub SetTextBoxDelegate(ByVal TB As TextBox, ByVal txt As String)
    33. Private Sub SetTextBoxWithInvoke(ByVal TB As TextBox, ByVal txt As String)
    34. If TB.InvokeRequired Then
    35. TB.Invoke(New SetTextBoxDelegate(AddressOf SetTextBoxWithInvoke), New Object() {TB, txt})
    36. Else
    37. TB.Text = txt
    38. End If
    39. End Sub


    Ich möchte allerdings nicht jedesmal die Verbindung neu aufbauen müssen, sondern der Server soll warten bis Daten
    eintreffen, antworten und wieder warten. Hat jemand ne Idee wie ich das anstellen kann?
    Weiterhin bräuchte ich noch ne Idee wie ich die Darstellung der empfangenen Bytes am besten mache. Ich würde gerne jedes Byte
    einzeln hexadezimal darstellen. Es werden zwar nur ca. 64 Byte sein, aber 64 Textboxen sind ja auch ne Hausnummer..
    Gibt es evtl. Elemente die dafür besser geeignet sind?
    Viele Grüße

    *Topic verschoben, Code-Tag eingefügt*

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Marcus Gräfe“ ()

    Haegar88 schrieb:

    Hat jemand ne Idee wie ich das anstellen kann?
    Ein Server wartet in einer Endlosschleife auf Anfragen.
    Clients melden sich an und wieder ab und werden vom Server bedient.
    Wenn sich der Server alle Clients merkt, kann er an alle oder einige davon Meldungen schicken.
    Sieh Dir mal Named Pipes an, da findest Du auch viele Beispiele im Netz:
    docs.microsoft.com/de-de/dotne…nterprocess-communication
    stackoverflow.com/questions/13806153/example-of-named-pipes
    csharp.hotexamples.com/de/exam…tream-class-examples.html
    Probiere alle Beispiele aus, verstehe sie und bau Dir dann eine Kombination, die Du verstehst.
    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!

    Haegar88 schrieb:

    Ich würde gerne jedes Byte einzeln hexadezimal darstellen. Es werden zwar nur ca. 64 Byte sein, aber 64 Textboxen sind ja auch ne Hausnummer.. Gibt es evtl. Elemente die dafür besser geeignet sind?
    Entweder Du fügst es dem TextBox-Text hinzu statt ihn immer zu überschreiben. Mach dazu aus TB.Text = txt -> TB.AppendText(txt). Oder Du nutzt keine TextBox, sondern eine ListBox und fügst die neuen Texte/Bytes der Liste an.
    btw: Den Delegate brauchst Du nicht.

    VB.NET-Quellcode

    1. Private Sub SetTextBoxText(TB As TextBox, txt As String)
    2. If TB.InvokeRequired Then TB.Invoke(Sub() SetTextBoxText(TB, txt)): Return
    4. TB.Text = txt
    5. End Sub

    Dieser Beitrag wurde bereits 5 mal editiert, zuletzt von „VaporiZed“, mal wieder aus Grammatikgründen.

    Aufgrund spontaner Selbsteintrübung sind all meine Glaskugeln beim Hersteller. Lasst mich daher bitte nicht den Spekulatiusbackmodus wechseln.

    @RodFromGermany Fällt mir gerade noch auf:
    Lass den BackgroundWorker weg, das geht mit "normalen" Threads bzw. Server-Client-Klassen.
    Gib Deinem Client eine eigene Klasse, die muss initial nur mit den Verbindungsdaten gefüttert werden und sendet dann auf Anforderung.
    Und:
    Wenn Du die Verbindung nach dem Senden schließt, kannst Du keine Nachrichten vom Server empfangen.
    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