Public BLEbuffer() As Byte ' gets updated on receiving data stream on socket
Private server As ServerSocket
' initialize in AppStart
server.Initialize(51042, "server")
server.Listen
Sub server_NewConnection (Successful As Boolean, NewSocket As Socket)
If Successful Then
astream.Initialize(NewSocket.InputStream, NewSocket.OutputStream, "astream")
End If
server.Listen
End Sub
Sub astream_NewData (Buffer() As Byte)
BLEbuffer = Buffer ' update BLE receive buffer
count_adverts = count_adverts + 1
Log($"Adv.Received: ${count_adverts} @ $Time{DateTime.Now} , ${BytesToString(Buffer, 0, Buffer.Length, "utf8")} "$)
isReceiving = True ' just got data from streamer
End Sub
' Example: need to kill the server if exit the app, etc
Public Sub Kill_Server
server.Close
ProcessKill("your_beacon_rx.exe") ' the name of the C# produced executable
End Sub