Discussion :

[Albertus14]

Bonjour, je fais une application android bluetooth sur delphi et j'aimerais savoir comment gérer la réception de données. J'ai une fonction le permettant mais il faut que je la lance avec un boutton pour recevoir les données. Quelqu'un aurait une solution? Voilà l'annexe bluetooth.

[Ph. B.]

Bonjour,

Bonjour, je fais une application android bluetooth sur delphi...

Quelle Version de Delphi ?
Quel protocole Bluetooth ? Classique ? "Low Energy" ?

[Albertus14]

J'utilise Delphi XE8 et niveau bluetooth, j'utilise le classique. Tout le code bluetooth est dans le fichier joint dans le premier message. La réception fonctionne bien quand je l'active mais j'aimerai quel s'active et quel affiche des quel reçois quelque chose

[Ph. B.]

J'utilise Delphi XE8 et niveau bluetooth, j'utilise le classique. Tout le code bluetooth est dans le fichier joint dans le premier message. La réception fonctionne bien quand je l'active mais j'aimerai quel s'active et quel affiche des quel reçois quelque chose

Le composant TBluetoothSocket n'est pas doté d’évènement du style OnReceive ou OnSent. Donc AMHA, il faut gérer les échanges dans un thread secondaire synchronisé avec le thread principal...

[Albertus14]

Pour moi, un thread, c'est une interruption, comment ça marche avec la méthode receive d'un bluetooth?

[Ph. B.]

Pour moi, un thread, c'est une interruption, comment ça marche avec la méthode receive d'un bluetooth?

Principe à affiner : un thread pour une connexion qui se charge des envois et réceptions et notifie via les évènements le thread principal dès qu'une action est faite...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
  TBluetoothThreadReceiveDataEvent = procedure(Sender: TObject; const nPair: Integer; const Data: String) of object;
  TBluetoothThreadDataSentEvent = procedure(Sender: TObject; const nPair: Integer; const Result: Boolean) of object;
 
  TBluetoothThread = class(TThread)
  private
    // De quoi gérer le bluetooth
    // ...
    FOnReceiveData: TBluetoothThreadReceiveDataEvent;
    FOnDataSent: TBluetoothThreadDataSentEvent;
    // ...
  public
    // ...
    property OnReceiveData: TBluetoothThreadReceiveDataEvent read FOnReceiveData write FOnReceiveData;
    property OnReceivedata: TBluetoothThreadDataSentEvent read FOnDataSent write FOnDataSent;
    // ...
  end;