85 lines
2.5 KiB
VB.net
85 lines
2.5 KiB
VB.net
Imports System.IO
|
|
Imports Newtonsoft.Json.Linq
|
|
|
|
Public MustInherit Class ConnectionManagerBase
|
|
|
|
Private listening As Boolean = False
|
|
|
|
Public ReadOnly Property Port As Integer
|
|
|
|
Public Event RetriveData(manager As ConnectionManagerBase, senderIP As String, cmd As String, content As Object)
|
|
|
|
Public Property IsListening As Boolean
|
|
Get
|
|
Return listening
|
|
End Get
|
|
Protected Set(value As Boolean)
|
|
listening = value
|
|
End Set
|
|
End Property
|
|
|
|
Public Sub New(port As Integer)
|
|
Me.Port = port
|
|
End Sub
|
|
|
|
Protected Overrides Sub Finalize()
|
|
[Stop]()
|
|
End Sub
|
|
|
|
Public MustOverride Sub Start()
|
|
Public MustOverride Sub [Stop]()
|
|
Public MustOverride Sub Send(empfängerIP As String, cmd As String, content As Object)
|
|
|
|
Public Overridable Sub Send(empfängerIP As String, cmd As String)
|
|
Send(empfängerIP, cmd, String.Empty)
|
|
End Sub
|
|
|
|
Public Overridable Sub Send(empfängerIP As String, cmd As String, info As String)
|
|
Send(empfängerIP, cmd, CObj(info))
|
|
End Sub
|
|
|
|
Protected Sub RaiseRetriveData(senderIP As String, cmd As String, content As Object)
|
|
RaiseEvent RetriveData(Me, senderIP, cmd, content)
|
|
End Sub
|
|
|
|
Protected Shared Function EncodeToBytes(cmd As String, content As Object) As Byte()
|
|
Dim ms As New MemoryStream()
|
|
Dim bw As New BinaryWriter(ms)
|
|
Dim obj As New JObject
|
|
|
|
'Write header
|
|
obj("Cmd") = cmd
|
|
obj("ContentType") = content?.GetType?.ToString
|
|
|
|
'Content
|
|
obj("Content") = JToken.FromObject(content)
|
|
|
|
'Write Json to MemoryStream
|
|
bw.Write(Text.Encoding.Default.GetBytes(obj.ToString))
|
|
|
|
'Get Buffer Bytes
|
|
Dim buf As Byte() = ms.ToArray
|
|
ms.Close()
|
|
|
|
Return buf
|
|
End Function
|
|
|
|
Protected Shared Function DecodeFromBytes(buf As Byte()) As (cmd As String, content As Object)
|
|
Dim contentstring As String = Text.Encoding.Default.GetString(buf)
|
|
Dim content As Object = Nothing
|
|
Dim contentobj As JObject = JObject.Parse(contentstring)
|
|
|
|
Dim cmd As String = contentobj("Cmd")
|
|
Dim contenttypestring As String = contentobj("ContentType")
|
|
Dim contentlinq As JToken = contentobj("Content")
|
|
|
|
If Not String.IsNullOrEmpty(contenttypestring) Then
|
|
Dim contenttype As Type = Type.GetType(contenttypestring)
|
|
content = contentlinq.ToObject(contenttype)
|
|
End If
|
|
|
|
Return (cmd, content)
|
|
End Function
|
|
|
|
End Class
|