Sub AudioStream_RecordBuffer(Data() As Byte)
Dim s As B4XSerializator
dim mdata as MyData
mdata.initialize
mdata.infostring = "TEST"
mdata.data = Data
Dim packet As UDPPacket
packet.Initialize(s.ConvertObjectToBytes(mdata), ip, port)
UDPSck.Send(packet)
End sub