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?
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
-
- Sub XY()
- Dim TestSocket As New System.Net.Sockets.TcpClient()
- TestSocket.Connect("127.0.0.1", 1111)
- 'Stream aufsetzen
- Dim NetworkstreamSocket As NetworkStream = TestSocket.GetStream()
- If NetworkstreamSocket.CanWrite And NetworkstreamSocket.CanRead Then
- 'Irgendeine Aktion
- Else
- MsgBox("Fehler!")
- NetworkstreamSocket.Close()
- Exit Sub
- End If
- 'Daten senden
- Dim DatenSenden As Byte() = Encoding.GetEncoding(1252).GetBytes("irgendwelche Befehle" & vbCrLf)
- NetworkstreamSocket.Write(DatenSenden, 0, DatenSenden.Length)
- 'Daten empfangen
- NetworkstreamSocket.ReadTimeout = 10000 'Timeout Verbindungssocket
- Dim ReceiveBytesVb(TestSocket.ReceiveBufferSize) As Byte
- NetworkstreamSocket.Read(ReceiveBytesVb, 0, CInt(TestSocket.ReceiveBufferSize))
- 'Daten ausgeben
- Dim ReturnDataVb As String = Encoding.GetEncoding(1252).GetString(ReceiveBytesVb)
- RichTextBox1.Text = ReturnDataVb
- End Sub