'Event raised from Java:
Private Sub LibDC_Read(Userdata As Long, Data() As Byte, Size As Int, Actual() As Int) As ResumableSub
Dim bc As ByteConverter
Dim actsize As Int = 0
Do Until BytesBuilder.Length > ReadIdx
Sleep(100)
Loop
If ReadIdx + Size < BytesBuilder.Length Then
actsize = Size
Else
actsize = BytesBuilder.Length - ReadIdx
End If
Dim TempArr(actsize) As Byte = BytesBuilder.SubArray2(ReadIdx, ReadIdx + actsize)
bc.ArrayCopy(TempArr, 0, Data, 0, actsize)
Actual(0) = actsize
ReadIdx = ReadIdx + actsize
Return LibDC.DC_STATUS_SUCCESS
End Sub
'Raised from USBSerial library
Private Sub USBSerial_DataAvailable(Buffer() As Byte)
BytesBuilder.Append(Buffer)
End Sub