German Bluetooth SPP im binären Fomat

cubetennis

Member
Licensed User
Longtime User
Hallo,

wollte über Bluetooth ein paar Bytes im binären Format mit folgenden Codes versenden.

Dim text1 As String
Dim TextWriter1 As TextWriter
Dim Serial1 As Serial

Serial1.Initialize("Serial1")
TextWriter1.Initialize(Serial1.OutputStream)
text1 = Chr(0x7F)
TextWriter1.Write(text1)
TextWriter1.Flush

Beim 0x7F wird 0x7F gesendet. Ist OK
Beim 0x80 werden dann aber 0xC2 0x80 gesendet. Warum ?
Beim 0xDD werden dann aber 0xC3 0x9D gesendet. Warum ?

Wie kann ich ihm beibringen, dass beim 0x80 bzw. 0xDD auch nur 0x80 bzw. 0xDD gesendet wird ?
Danke schon mal
 

cubetennis

Member
Licensed User
Longtime User
Habe selber raus gefunden, so geht es mit dem Senden ....

Dim Serial1 As Serial
Dim ASS As AsyncStreams
Dim data(16) As Byte
Dim msg As String

ASS.Initialize(Serial1.InputStream,Serial1.OutputStream,"BT")
msg = "007F80DD"
data = Conv.HexToBytes(msg)
ASS.Write2(data,0,4)
 

MaFu

Well-Known Member
Licensed User
Longtime User
In Deinem vorherigen Versuch speicherst Du die Zeichen ja erst in einem String ab. Daher werden vermutlich die Zeichen als UTF-8 übertragen. Das erste Zeichen hat 0x7F (=127), somit als ein Byte. Die beiden Anderen sind größer als 127 und werden demnach als Zwei-Byte Zeichen übertragen.
 
Top