Sub Process_Globals
Private bc As ByteConverter
Private GlobalBuffer(10000) As Byte
Private GlobalIndex As Int
Private ExpectedMessageSize As Int
End Sub
Sub AStream_NewData (Buffer() As Byte)
bc.ArrayCopy(Buffer, 0, GlobalBuffer, GlobalIndex, Buffer.Length)
GlobalIndex = GlobalIndex + Buffer.Length
If GlobalIndex >= ExpectedMessageSize Then
Dim msg(ExpectedMessageSize) As Byte
bc.ArrayCopy(GlobalBuffer, 0, msg, 0, ExpectedMessageSize)
MessageArrived(msg)
GlobalIndex = 0
End If
End Sub
Sub MessageArrived (msg() As Byte)
End Sub