use more inherit features

Pilz.Networking/ConnectionManagerBase.vb

@@ -1,4 +1,5 @@
 Imports System.IO
+Imports System.Net
 Imports Newtonsoft.Json.Linq
 
 Public MustInherit Class ConnectionManagerBase
@@ -29,7 +30,7 @@ Public MustInherit Class ConnectionManagerBase
 
     Public MustOverride Sub Start()
     Public MustOverride Sub [Stop]()
-    Public MustOverride Sub Send(empfängerIP As String, cmd As String, content As Object)
+    Protected MustOverride Sub SendData(endPoint As IPEndPoint, data As Byte())
 
     Public Overridable Sub Send(empfängerIP As String, cmd As String)
         Send(empfängerIP, cmd, String.Empty)
@@ -39,10 +40,25 @@ Public MustInherit Class ConnectionManagerBase
         Send(empfängerIP, cmd, CObj(info))
     End Sub
 
-    Protected Sub RaiseRetriveData(senderIP As String, cmd As String, content As Object)
+    Private Sub RaiseRetriveData(senderIP As String, cmd As String, content As Object)
         RaiseEvent RetriveData(Me, senderIP, cmd, content)
     End Sub
 
+    Protected Sub ProcessRetrivedData(senderIP As String, buf As Byte())
+        Dim contentstring As String = Text.Encoding.Default.GetString(buf)
+        Dim content As Object = Nothing
+        Dim cmd As String = String.Empty
+
+        Try
+            Dim res = DecodeFromBytes(buf)
+            cmd = res.cmd
+            content = res.content
+        Catch ex As Exception
+        End Try
+
+        RaiseRetriveData(senderIP, cmd, content)
+    End Sub
+
     Protected Shared Function EncodeToBytes(cmd As String, content As Object, useAssemblyQualifiedName As Boolean) As Byte()
         Dim ms As New MemoryStream()
         Dim bw As New BinaryWriter(ms)
@@ -82,4 +98,11 @@ Public MustInherit Class ConnectionManagerBase
         Return (cmd, content)
     End Function
 
+    Public Sub Send(empfängerIP As String, cmd As String, content As Object)
+        Dim ep As New IPEndPoint(GetIPFromHost(empfängerIP).MapToIPv4, Port)
+        Dim buf As Byte() = EncodeToBytes(cmd, content, UseAssemblyQualifiedName)
+
+        SendData(ep, buf)
+    End Sub
+
 End Class