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;

[Albertus14]

Dans le btconfig, est ce que la fonction que j'ai refaite receive est correcte? Je les refaites de la même façon que pour le SendData?

[Albertus14]

Voiçi ma fonction directement :

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
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
// nPair : Paired Device List No
function TBTMethod.Receivedata( nPair:integer) : String ;
var
  ToReceive: TBytes;
  StrReceive : String;
  LDevice: TBluetoothDevice;
begin
  result := '';
  if ManagerConnected then
  try
    if (FSocket = nil) or ( ItemIndex <> nPair ) then
    begin
      if nPair > -1 then
      begin
        //-----------Pour la connexion
        LDevice := FPairedDevices[ nPair ] as TBluetoothDevice;
        FSocket := LDevice.CreateClientSocket( StringToGUID( FServiceGUID ), False);
        //-----------Pour la connexion
        if FSocket <> nil then
        begin
          ItemIndex := nPair;
          FSocket.Connect;
 
          ToReceive := FSocket.ReceiveData;;  //TBytes
          StrReceive := TEncoding.UTF8.GetString(ToReceive);
          result := StrReceive;                                    //Probleme renvoie un 3??????? en plus
        end
        else
          ShowMessage('Out of time -15s-Sorry-');
      end
      else
        ShowMessage('No paired device selected');
    end
 
    else
    begin
      ToReceive := FSocket.ReceiveData;;  // FSocket.ReceiveData
      StrReceive := TEncoding.UTF8.GetString(ToReceive);
      result := StrReceive;
    end;
 
  except
      on E : Exception do
      begin
        ShowMessage(E.Message);
        FreeAndNil(FSocket);
      end;
    end;
end;
//-------------------------------------------------------------------------------------

Elle ne me semble pas correcte, mais je ne vois pas le problème, peut être est ce que je déclare de nouveau les sockets pour la réception.
Merci,

[Albertus14]

Bonjour, j'ai réussi à faire ce que je voulais en reprenant l'exemple donné dans les samples mobiles bluetooth de delphi. Le problème qui se présente à moi maintenant est que pour que l'application puisse recevoir des informations par bluetooth, il faut suivre une procédure précise qui est : Créer le serveur de réception "Create text service", puis là est le problème, c'est que le client "émetteur" doit se connecter au serveur de réception mais mon émetteur est ici une arduino bluetooth avec un module HC06. Donc comment l'arduino peut elle se connecter à l'application. Je ne sais pas si quelqu'un aurait une explication .. Merci