B4J Question Append CRLF to Buffer

[Declan]

I have the following code that communicates with an Arduino device through the Serial port:

Sub btnSend_Click
    If astream.IsInitialized = False Then Return
    If EditText1.Text.Length > 0 Then
        Dim buffer() As Byte
        buffer = EditText1.Text.GetBytes("UTF8")
        buffer = buffer
        astream.Write(buffer)
        EditText1.SelectAll
        Log("Sending: " & EditText1.Text)
    End If
End Sub

This is taken from the exaample:

jSerial library

The jSerial library allows you to open and communicate with other devices through the computer COM ports. It can also be used to communicate with Bluetooth devices over a virtual com port. (jBluetooth library is now available: https://www.b4x.com/android/forum/threads/jbluetooth-library.60184/)...

www.b4x.com

How do I append a CRLF to the Buffer?
I send a text string "AT$I=10", now I must also send a CLF

 

[tzfpg]

 Dim b() As Byte
 Dim s as String = "asdfghqwe" & CRLF
 b = s.GetBytes("UTF8")

you can try the code but I don't know work or not.

 

[Declan]

Thanks, works.
However, I get the data as follows:

0
1
F
B
9
9
8
C

I should receive:
01FB998C

 

[Erel]

Best solution is to use B4RSerializator + AsyncStreams in prefix mode: https://www.b4x.com/android/forum/t...ceive-objects-instead-of-bytes.72404/#content

Otherwise, it is your responsibility to collect or split the messages yourself.

 

[Declan]

Many thanks, works perfectly