I have the code shown below. It listens for incoming serial data but will also send a request to the device when this is working.
When this gets to this point --> Log ("******** ASTREAM 1 ****************") - it crashes - prior to that is all fine and connection is established.
I don't need the PREFIX version of AsyncStreams for this purpose - and it will send one character ("?") to request and get a value back from the device.
the abridged unfiltered log is below the code.
Any ideas on a solution?
There again, maybe this is not the way to read/write to a "raw" serially connected device.
?️?️
When this gets to this point --> Log ("******** ASTREAM 1 ****************") - it crashes - prior to that is all fine and connection is established.
I don't need the PREFIX version of AsyncStreams for this purpose - and it will send one character ("?") to request and get a value back from the device.
the abridged unfiltered log is below the code.
Any ideas on a solution?
There again, maybe this is not the way to read/write to a "raw" serially connected device.
?️?️
AsyncStreams initialisation error:
Private Sub btnReadSerialData_Click
Private labelNAME As String
Private labelMAC As String
clv.Clear
Log ("****** Pressed serial button *******")
'' read serial data from here......
''''' serial.Connect("50:65:83:6F:92:15")
Log ("******** SERIAL ****************")
Log (" Serial initialised")
Log (serial.IsInitialized)
''''
serial.Listen
labelNAME = ConnectedName
labelMAC = ConnectedMAC
Label3.text = labelNAME & " " & labelMAC
Log ("************************")
''' Found: device-1.0,50:65:83:6F:92:15, RSSI = -42, (MyMap) {1=[B@30e2fe5, -1=[B@fc05aba, 9=[B@6677d6b, 18=[B@e0930c8, 10=[B@976e561, 2=[B@b896886, 0=[B@4fe8547}
' If AStreams.IsInitialized Then AStreams.Close
' 'prefix mode! Change to non-prefix mode if communicating with non-B4X device.
' AStream.InitializePrefix(serial.InputStream, False, serial.OutputStream, "astreams")
''''
Log ("************************")
Log ("*** GET THE PAIRED DEVICE ***")
ToastMessageShow (" GET THE PAIRED DEVICE ", True)
whosisthere
Log ("************************")
' Log ("******* Phone *****************")
' Log(serial.Address)
' Log (serial.Name)
' Log ("************************")
' buffer = "?"
''''get stuff from raingauge-1.0 now
Log ("******** ASTREAM 1 ****************")
'
AStreams.Initialize(serial.InputStream, serial.OutputStream, "AStreams")
' AStream.Write(buffer.GetBytes("utf8"))
' AStreams.Close
Log ("******** ASTREAM 2 ****************")
Disconnect
End Sub
