Sending Extended ASCII characters via Bluetooth Serial Port

[remtronics]

Hi - I am trying to send a set of extended characters via Bluetooth to a PC.
If I send anything above 127 - two bytes of information are received instead of one byte.

i.e. if I send Chr(48) I get 30 @ the PC. However if I send Chr(149) I get C3 and 95.
TextWriter1.Write(Chr(48) & Chr(149))

Is there a workaround for this??:

Thanks

 

[Erel]

You are using the wrong encoding. A simple solution is to send the byte directly with OutputStream.WriteBytes.

 

[remtronics]

Hi - this still doesn't work -
Here is the example code

Dim mybuff() As Byte
Dim str As String
Dim os1 As OutputStream
str = (48)
mybuff= str.GetBytes("UTF8")
os1=Serial1.OutputStream
os1.WriteBytes(mybuff,0,mybuff.Length)
os1.Flush

 

[mrossen]

Hi,

Try to use this encoding instead of the UTF8

mybuff= str.GetBytes("ISO-8859-1")

Mogens