AsyncStreams vs InputStream

Erel said:

You should go with AsyncStreams. If possible use prefix mode.
Are you sure that messages arrive in the wrong order? It shouldn't happen unless the Activity is paused.

Click to expand...

Sub AStreams_NewData (Buffer() As Byte)


        msg = msg & BytesToString(Buffer, 0, Buffer.Length, "UTF8")
   msg = msg.Replace(Chr(13), Chr(10))

   'LAST CHAR THEN RESET
   If msg.EndsWith(">") Then       
      Log("AStream_NewData: " & msg)
      blnReadySend = True            'ELM IDLE STATE INDICATOR
      Timer_Timeout.Enabled = False      'RESET TIMEOUT
   Else If msg.Contains(">") Then
      Log("AStream_NewData: Bad Data " & msg)
      blnReadySend = True
      Timer_Timeout.Enabled = False
      msg = ""
   End If

End Sub

briant1972 said:

I had trouble with data getting chopped up using astreams. I wasn't sure which device was the problem, but I ended up adding a timer that was started when the new data event was raised, the timer was set to go off after a time delay which was the best I could do to make sure that data was done. Then, every time the new data even was raised, the timer was reset and the data was stacked until there wasn't data long enough for the timer timed out, then the data was assumed done and then parsed. Works great. The timer didn't need to run very long either since it turned out that the pauses in the data was less than 200ms.

Sub AStreams_NewData (Buffer() As Byte)
Timer1.Enabled = False
Timer1.Enabled = True
msg = msg & BytesToString(Buffer, 0, Buffer.Length, "UTF8")

End Sub

Sub Timer1_Tick
Parse_Stream
End Sub

Click to expand...

priusfan said:

here is the way I do it (and it works well);
I use a stringbuffer named response because it is much more efficient than playing with plain string.

B4X:

Sub AStreams_NewData (Buffer() As Byte)
   ' this event is activated when we receive data
   ' we will do something only after receiving a ">" 
   ' that means the answer is complete 
    Dim rsp As String
    rsp = BytesToString(Buffer, 0, Buffer.Length, "UTF8")
   response.append(rsp)
   Ready_ForNext = rsp.EndsWith(">") 
   If Ready_ForNext Then
      decode(response)
      response.Initialize
      send_nextcmd   
   End If
End Sub

BTW, I use a good quality BT dongle, because the chinese clones are slow and not regular...

Click to expand...