Italian Bluetooth inviare un byte... Aiuto!

[Luciano Veneziano]

SAlve a tutti vorrei inviare un signolo byte ad un device.
Il problema è che vengono inviati byte aggiuntivi che impediscono la comunicazione.
Qualcuno può aiutarmi con uno scampolo di codice?
Grazie a tutti

 

[Star-Dust]

Ben tornato Luciano,

Stai usando l'invio con il prefix per caso? Forse sarà quello, nel caso manda lo steaming senza prefix

 

[Luciano Veneziano]

Ti ringrazio di avermi risposto.
Non ho idea, come faccio a vederlo?

 

[Star-Dust]

Hai inizializzato usando InitializePrefix ?

 

[Luciano Veneziano]

Si, non è codice scritto da me

Sub AfterSuccessfulConnection
If AStream.IsInitialized Then AStream.Close
'prefix mode! Change to non-prefix mode if communicating with non-B4X device.
AStream.InitializePrefix(serial.InputStream, False, serial.OutputStream, "astream")
ConnectionState = True
B4XPages.ShowPage("Chat Page")
End Sub

 

[Star-Dust]

Si, non è codice scritto da me

Sub AfterSuccessfulConnection
If AStream.IsInitialized Then AStream.Close
'prefix mode! Change to non-prefix mode if communicating with non-B4X device.
AStream.InitializePrefix(serial.InputStream, False, serial.OutputStream, "astream")
ConnectionState = True
B4XPages.ShowPage("Chat Page")
End Sub

usa

Astream.Initialize( serial.InputStream, serial.OutputStream, "astream")

Quel codice invia degli byte di prefisso per indicare la lunghezza di dati trasmessi ... ma a te non serve

 

[Luciano Veneziano]

Ti ringrazio.
Va bene anche per B4A?
A buon rendere.

 

[Luciano Veneziano]

Poi basta questo?

Public Sub SendBytes(Data() As Byte)
AStream.Write(Data)
End Sub

 

[Luciano Veneziano]

questo chiama giusto ... credo.
B4XPages.MainPage.sendBytes(Array As Byte (5))

 

[Star-Dust]

SI è lo stesso tu tutte le piattaforme e basta quello. Provalo

 

[Luciano Veneziano]

SI è lo stesso tu tutte le piattaforme e basta quello. Provalo

Grazie ha funzionato.