TCP-Sockets

‹

TCP-Socketprogrammierung

Sockets werden für Verbindung über Netzwerk verwendet. Socketverbindungen sind plattformunabhängig und können mit Sockets anderer Programmiersprachen kommunizieren.

Vorbereitung

Zuerst müssen die Sockets- und die IO-Namespace importiert werden.
Hieraus werden der Writer, Reader und der TcpClient erstellt.
Der TcpClient ist für den Verbindungsauf- und abbau zuständig, wobei der StreamWriter zum Versenden der Daten und der StreamReader für den Empfang der Daten zuständig ist.

Imports System.Net.Sockets
Imports System.IO

Public Class tcp
  Public Writer
  Public Reader
  Private sock As New TcpClient
  Const port = 3218
  Const serverIP = "XXX.XXX.XXX.XXX"
  Private Message as String = ""

  Sub New()
    Try
      sock.Connect(serverIP, port)
      Writer = New StreamWriter(sock.GetStream())
      Reader = New StreamReader(sock.GetStream())
    Catch ex As Exception
      MsgBox("Die Verbindung zum Server wurde unterbrochen!")
    End Try
  End Sub

Senden

Um eine Nachricht zu senden wird das StreamWriter-Objekt genutzt. Mit der Methode Write() wird in den bereits übergebenen Stream des Sockets TcpClient geschrieben.
Mit FLush() wird der Writer wieder geleert.

Public Sub send(msg As String)
  Try
    Writer.Write(msg & Writer.Newline)
    Writer.Flush()
  Catch ex As Exception
    MsgBox(ex.Message)
  End Try
End Sub

Empfangen

Um Daten zu empfangen wird von mir in diesem Fall ein BackgroundWorker genutzt. Der BackgroundWorker eignet sich hierfür, da er asynchron ausgeführt werden kann.
Demnach kann allerdings auch ein zweiter Thread erstellt werden, der die Daten empfangen soll.
Der BackgroundWorker kann einfach von der Toolbox auf den Designer gezogen werden. In DoWork() wird immer eine Zeile des Reader-Objektes in einen String geschrieben in dem die empfangenen Daten stehen. Sobald die DoWork-Methode durchlaufen wurde, wird die RunWorkerCompleted Sub aufgerufen, in welcher die empfangenen Daten verarbeitet werden können. Am Ende dieser Sub wird der Worker wieder asynchron gestartet.

Public Sub receiver_DoWork(sender As Object, e As System.ComponentModel.DoWorkEventArgs) Handles receiver.DoWork
  Try
    Message = tcp.Reader.ReadLine() 'Lese eine Zeile der empfangenen Daten ein
    If Message = Nothing Then 'Um Fhler zu vermeiden wird wenn nichts empfangen wird ein leerer String geschrieben
      Message = ""
    End If
  Catch n As NullReferenceException 'tue nichts wenn eine NullReferenceException geworfen wird
  Catch io As IO.IOException
    MsgBox("Die Verbindung zum Server wurde verloren!" & vbCrLf & "Programm wird geschlossen...", MsgBoxStyle.OkOnly, "Beende" & vbCrLf & io.ToString)
    Application.Exit() 'Die Anwendung wird geschlossen
  Catch ex As Exception
    MsgBox(ex.ToString)
  End Try
End Sub

Private Sub receiver_RunWorkerCompleted(sender As Object, e As System.ComponentModel.RunWorkerCompletedEventArgs) Handles receiver.RunWorkerCompleted
  'Verwerte die empfangenen Daten aus der Variable Message
  MsgBox(Message)
  '...
  Message = "" 'Setze Variable Message zurück
  receiver.RunWorkerAsync() 'Führe den Worker wieder aus
End Sub