Dauerhaft über TCP-Socket Daten empfangen

  • VB.NET
  • .NET (FX) 4.0

Es gibt 12 Antworten in diesem Thema. Der letzte Beitrag () ist von Lt.Winters.

    Dauerhaft über TCP-Socket Daten empfangen

    Hallo zusammen,

    ich baue eine TCP-Client Verbindung zu einem Server auf und schicke diesem über einen NetworkStream einfache Befehle. Nun kann ich auch Befehle empfangen indem ich direkt nach dem Senden mir den ankommenden String ausgeben lasse. ABER wie kann ich dauerhaft Zeichen empfangen und diese in einer RTB anzeigen lassen?

    VB.NET-Quellcode

    1. ​
    2. Sub XY()
    4. Dim TestSocket As New System.Net.Sockets.TcpClient()
    5. TestSocket.Connect("127.0.0.1", 1111)
    7. 'Stream aufsetzen
    8. Dim NetworkstreamSocket As NetworkStream = TestSocket.GetStream()
    10. If NetworkstreamSocket.CanWrite And NetworkstreamSocket.CanRead Then
    11. 'Irgendeine Aktion
    12. Else
    13. MsgBox("Fehler!")
    14. NetworkstreamSocket.Close()
    15. Exit Sub
    16. End If
    18. 'Daten senden
    19. Dim DatenSenden As Byte() = Encoding.GetEncoding(1252).GetBytes("irgendwelche Befehle" & vbCrLf)
    20. NetworkstreamSocket.Write(DatenSenden, 0, DatenSenden.Length)
    22. 'Daten empfangen
    23. NetworkstreamSocket.ReadTimeout = 10000 'Timeout Verbindungssocket
    25. Dim ReceiveBytesVb(TestSocket.ReceiveBufferSize) As Byte
    26. NetworkstreamSocket.Read(ReceiveBytesVb, 0, CInt(TestSocket.ReceiveBufferSize))
    28. 'Daten ausgeben
    29. Dim ReturnDataVb As String = Encoding.GetEncoding(1252).GetString(ReceiveBytesVb)
    30. RichTextBox1.Text = ReturnDataVb
    31. End Sub

    Warum dauerhaft?
    Ist doch nur unnötige Netzwerkauslastung?!
    Irgendwas wird ja bestimmt auf einer Seite gemacht bzw geändert.
    Hier kann man auf Events bauen und dann nur die Daten auslesen, senden wenn sich was ändert.

    Schau dir den Versuchschat von EDR mal und dann siehst du wie es funktionieren würde. Du kannst auch einfach den Stream inner Schleife abhören und warten bis ein Befehl ankommt. Natürlich in einen anderen Thread auslagern.

    Danke den Versuchschat werde ich mir mal ansehen.

    Das mit der Schleife habe ich probiert, allerdings hängt sich dann meine Form auf, was wohl daran liegt, dass ich es nicht ausgelagert habe :/ Da muss ich dann erstmal schauen wie das geht.

    Edit:
    Jetzt muss ich nochmal nerven. Also das mit dem Versuchschat habe ich mir angesehen, aber ehrlich gesagt überhaupt nicht verstanden. EDR sagt ja auch in OOP muss man dafür fit sein, was ich nicht bin :D

    So daher möchte ich gerne die Schleifenlösung verwenden. Da das, wie bereits geschrieben, nicht ohne Multithreading geht, habe ich mich damit etwas näher beschäftigt. Allerdings funktioniert die Lösung nicht so richtig.

    Sry ich weiß leider nicht, warum er den Code so verrutscht :/

    VB.NET-Quellcode

    1. DimSocket As New System.Net.Sockets.TcpClient()
    2. Dim ThreadTcpDatenLesen As New System.Threading.Thread(AddressOf TcpDatenLesen)
    4. Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
    5. 'Connect-Button
    6. Socket.Connect(IP, Port)
    7. End Sub
    9. Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
    10. 'Disconnect-Button
    11. Socket.Close()
    12. End Sub
    14. Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    15. 'Text-Befehle senden
    17. Try
    18. Dim NetworkstreamSocket As NetworkStream = Socket.GetStream()
    20. 'Daten senden
    21. Dim Befehl As String = TextBox1.Text
    22. Dim Senden As Byte() = Encoding.GetEncoding(1252).GetBytes(Befehl & vbCrLf)
    23. NetworkstreamSocket.Write(Senden, 0, Senden.Length)
    25. ThreadTcpDatenLesen.Start()
    26. End Sub
    28. Sub TcpDatenLesen()
    30. Try
    31. Dim NetworkstreamSocket As NetworkStream = Socket.GetStream()
    33. 'Daten empfangen
    34. NetworkstreamSocket.ReadTimeout = 10000 'Timeout Verbindungssocket
    36. Dim ReceiveBytesVb(Socket.ReceiveBufferSize) As Byte
    37. NetworkstreamSocket.Read(ReceiveBytesVb, 0, CInt(Socket.ReceiveBufferSize))
    39. 'Daten ausgeben
    40. Dim i As Integer = Socket.ReceiveBufferSize
    41. Dim Test As String = Encoding.GetEncoding(1252).GetString(ReceiveBytesVb)
    42. While (i > 0)
    43. RichTextBox1.AppendText(Test) 'Status anzeigen
    44. Me.Refresh()
    45. RichTextBox1.ScrollToCaret()
    46. End While
    47. Catch ex As Exception
    48. End Try
    49. End Sub



    Posts zusammengefügt
    -Artentus

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

    Lt.Winters schrieb:

    in OOP muss man dafür fit sein, was ich nicht bin
    Das sind aber sehr schlechte Vorraussetzungen. Bitte dieses Buch lesen (hingegen das Galileio-Openbook ist Mist).
    Mit freundlichen Grüßen,
    Thunderbolt

    ​Thunderbolt schrieb:

    ]Das sind aber sehr schlechte Vorraussetzungen. Bitte dieses Buch lesen (hingegen das Galileio-Openbook ist Mist).


    Was heißt denn hier schlechte Vorraussetzungen? Ich finde das immer so herrlich hier. Jeder fängt doch mal klein an oder etwas nicht? Wusstet ihr direkt von Geburt an alles und konntet godlike in vb.net programmieren? Ich denke nicht ;)

    So genug OT und zurück zum Thema:

    Ich habe mittels Delegate und Invoke einen Thread erstellt, in welchem folgende Abfrage Schleife läuft. Nur ein Problem ergibt sich leider nicht, die Schleife läuft ewig weiter, auch wenn die ReceiveBufferSize = 0 ist.

    VB.NET-Quellcode

    1. ​
    2. Sub TcpDatenLesen()
    3. Try
    4. NetworkstreamSocket = Socket.GetStream
    5. 'Daten empfangen
    6. NetworkstreamSocket.ReadTimeout = 10000 'Timeout Verbindungssocket
    7. Dim ReceiveBytesVb(Socket.ReceiveBufferSize) As Byte
    8. NetworkstreamSocket.Read(ReceiveBytesVb, 0, CInt(Socket.ReceiveBufferSize))
    9. 'Daten ausgeben
    10. Dim ReturnData As String = Encoding.GetEncoding(1252).GetString(ReceiveBytesVb)
    11. Dim i As Integer = Socket.ReceiveBufferSize
    12. While (i > 0)
    13. Dim Test As String = Encoding.GetEncoding(1252).GetString(ReceiveBytesVb)
    14. Dim SendObject As Object
    15. SendObject = Test
    16. Me.Invoke(New TcpDatenLesenCallback(AddressOf ApplyValues), SendObject)
    17. Thread.Sleep(100)
    18. End While
    19. Catch ex As Exception
    20. End Try

    Lt.Winters schrieb:

    Wusstet ihr direkt von Geburt an alles und konntet godlike in vb.net programmieren? Ich denke nicht ;)
    Nein. Dafür haben wir solche Bücher gelesen. OOP sollte man beherrschen...
    Mit freundlichen Grüßen,
    Thunderbolt

    So, nun bin ich am PC und muss nicht von Mobiltelefon posten :D

    Lt.Winters schrieb:

    die Schleife läuft ewig weiter, auch wenn die ReceiveBufferSize = 0
    Sicher? Normalerweise ist ein Buffer immer gleich groß. Was willst du da erreichen? Ich sehe da nur, dass du immer wieder die selbe Bytesequenz in einen String umwandelst und an eine Methode weitergibst. Warum eigentlich das? Das ist auch in einer Zeile möglich...

    VB.NET-Quellcode

    1. Dim Test As String = Encoding.GetEncoding(1252).GetString(ReceiveBytesVb)
    2. Dim SendObject As Object
    3. SendObject = Test
    4. Me.Invoke(New TcpDatenLesenCallback(AddressOf ApplyValues), SendObject)

    Übrigens: Du weist i nie einen neuen Wert zu, d. h., dass wenn die Schleife einmal gestartet wurde, wird sie ewig weiterlaufen.
    Und auch noch lesenswert: TryCatch ist ein heißes Eisen
    Eventuell solltest du dein Try-Catch spezialisieren.
    Mit freundlichen Grüßen,
    Thunderbolt