private Sub usbWrite(Data() As Byte) As Boolean
If Not(mblnConnected) Then Return False
Dim ur As UsbRequest
ur.Initialize(musbDevCon, musbEpOut)
'request.Name = "Msg-Write"
'Try
ur.Queue(Data, Data.Length)
mintWriteQueueSize = mintWriteQueueSize + 1
'Log("USB queue size " & mintWriteQueueSize)
Return True
'Catch
' Log(LastException)
' usbCheckConnection
' Return False
'End Try
End Sub
public Sub Write(Data() As Byte) As Boolean
Return usbWrite(Data)
End Sub
Private Sub musbDevCon_NewData(Request As UsbRequest, InDirection As Boolean)
If musbDevCon = Null Then Return 'Might happen after connection is closed
If musbDevCon.IsInitialized = False Then Return 'Might happen after connection is closed
mlngLastActivity = DateTime.Now
If InDirection = False Then
musbDevCon.ContinueListening
mintWriteQueueSize = mintWriteQueueSize - 1
If mintWriteQueueSize < 0 Then mintWriteQueueSize = 0
mlngLastWriteQueueDecrement = DateTime.Now
'Log("USB queue size " & mintWriteQueueSize)
Return 'Don't handle OUT requests
End If
RaiseEventDelayed2("UsbDataReceived", Request.Buffer)
musbDevCon.ContinueListening
If Not(usbListen) Then 'Listen for a new incoming packet
usbCheckConnection
End If
End Sub
