Partage de technologie

한어Русский языкEnglishFrançaisIndonesianSanskrit日本語DeutschPortuguêsΕλληνικάespañolItalianoSuomalainenLatina

concept

Pour le développement BLE dans Delphi, faites glisser un TBlueToothLe sur l'interface et utilisez ce contrôle pour développer BLE, par exemple en connectant un bracelet Bluetooth.

Il existe un programme BLEScanner dans la démo fournie avec Delphi, qui peut être utilisé comme point de départ pour le développement.

question

Si le programme ci-dessus est exécuté sous Windows, après l'analyse du périphérique, si la souris clique sur un périphérique, l'interface peut se bloquer et le programme ne répondra pas. En regardant la zone de gestion des tâches, il est vrai que le programme ne répond pas et est tombé en panne.

Analyse des causes

Cliquez sur la souris pour analyser les services de l'appareil sélectionné. Ensuite, lorsque les services du périphérique sont découverts, l'événement OnServicesDiscovered de TBluetoothLE est déclenché. Dans ce cas, plusieurs services de l'appareil sont lus en boucle, puis pour un certain service, son nom de personnage est lu en boucle. Le crash est l'endroit où la boucle lit Character.

Pourquoi il s'est écrasé, je ne sais pas. Mais j'ai trouvé une solution, le code est le suivant :

procedure TForm6.BluetoothLE1ServicesDiscovered(const Sender: TObject; const AServiceList: TBluetoothGattServiceList);
var
  ServiceIndex: Integer;
  Service: TBluetoothGattService;
  CharacteristicIndex: Integer;
  Characteristic: TBluetoothGattCharacteristic;
begin
  //以下代码如果不包到 TTask.Run 里面（原本的代码没有），在 WINDOWS 底下，执行到 for 
  //CharacteristicIndex := 0 to Service.Characteristics.Count 会界面冻结，而且单步跟踪也停止 
  //了，没有往下执行。
  TTask.Run(  
  procedure
  var
    ServiceIndex: Integer;
    CharacteristicIndex: Integer;
  begin
    if AServiceList.Count > 0 then
    begin
      for ServiceIndex := 0 to AServiceList.Count - 1 do
      begin
        Service := AServiceList[ServiceIndex];
 
        TThread.Synchronize(nil,
          procedure
          begin
            Listbox2.Items.Add((ServiceIndex + 1).ToString + ' - ' + Service.UUIDName + ' - ' + Service.UUID.ToString);
          end
        );
 
 
        //以下代码会导致死机，如果断点跟踪，直接就是停在 for 这一行，不会继续往下执行。
        for CharacteristicIndex := 0 to Service.Characteristics.Count - 1 do
        begin
          Characteristic := Service.Characteristics[CharacteristicIndex];
 
          TThread.Synchronize(nil,
            procedure
            begin
              Listbox2.Items.Add('    - ' + Characteristic.UUIDName + ' - ' + Characteristic.UUID.ToString);
            end
          );
 
        end;
 
      end;
    end
    else
      TThread.Synchronize(nil,
        procedure
        begin
          Listbox2.Items.Add('- Access not allowed or no service available');
        end
      );
 
  end
  );
 
  //Listbox1.Enabled := True;
end;

Explication du code

Dans le code ci-dessus, TTask.Run a été ajouté par moi. TThread.Synchronize a également été ajouté par moi. Supprimez TTask.Run et TThread.Synchronize et le code restant est le code original de la démo fournie avec Delphi.

Tout d’abord, placez le code original dans TTask.Run, ce qui signifie placer ces codes dans un thread pour exécution. Au lieu de laisser le thread qui a initialement déclenché l'événement OnServicesDiscovered s'exécuter. Raison possible : le thread qui a déclenché OnServicesDiscovered ne peut pas effectuer trop de tâches fastidieuses.

Le code est exécuté dans le thread. Lorsque vous devez écrire des données dans le contrôle d'interface, telles que du code Listbox2.Items.Add, vous devez effectuer une synchronisation des threads. Ajoutez donc TThread.Synchronize.

mon environnement de développement

Dans différents environnements, les phénomènes peuvent être différents. Voici donc mon environnement de développement :

Édition communautaire Delphi 11 ;

Windows 11 Édition Familiale ;

Le programme cible à compiler et à exécuter est la version Win32.

Il n'y a aucun test pour savoir si cette démo aura les problèmes ci-dessus sous Android. Mais je crois que sous Android, il vaudra mieux ajouter TTask.Run.

Emplacement du programme de démonstration

La Démo mentionnée ici, après avoir installé Delphi, s'il est installé par défaut, le programme Démo est :

C:UsersPublicDocumentsEmbarcaderoStudio22.0SamplesObject PascalExemples multi-appareilsCapteurs et services d'appareilsBluetoothBLEScanner

en conclusion

Il n'y a aucun problème à utiliser Delphi pour développer des programmes BLE, comme créer une application de bracelet. Il convient toutefois de noter que dans de nombreux événements du contrôle TBluetoothLE, il est préférable de ne pas exécuter trop de code. S'il existe une logique métier complexe, il est préférable de l'exécuter dans un thread séparé. Dans la méthode événementielle, démarrez simplement le thread correspondant.

Pour Delphi, le nouveau TTask.Run nous permet de lancer beaucoup de code dans l'exécution du thread. La méthode d'écriture de code est beaucoup plus simple qu'auparavant lorsque nous devions créer une classe de thread.