Problème de bluetooth

Version imprimable

25/09/2022, 10h17
Gouyon

Problème de bluetooth

Bonjour à tous

Voilà j'ai une application FMX de jeu et je voudrais qu'elle puisse communiquer en bluetooth pour que chaque joueur puisse jouer sur son appareil contre l'autre.
Du coup je me suis basé sur l'excellent tutoriel de lightmaker (le source sur github)

Mais la découverte des appareils ne fonctionne pas.

J'ai:
-un téléphone android avec le bluetooth activé
-un PC sous windows 10 avec le bluetooth activé

Le programme fonctionne sur le PC et il n'arrive pas à découvrir le téléphone.

Du coup je suis allé sur paramètres Appareil Bluetooth et autres sur le PC et j'ai lancé l'ajout d'appareil et là windows a bien vu le téléphone

Quelqu'un a t'il une idée de pourquoi ça détecte sous windows et pas sous delphi?

J'utilise RAD Studio 11 Version 28.0.46141.0937
25/09/2022, 12h40
pprem

Hello.

Normalement en version 11.x ça devrait passer si Windows voit correctement les appareils disque les composants Bluetooth et librairies sous-jacentes ont été corrigés des quelques bugs qui trainaient.

Passes-tu par le BLE ou Bluetooth directement ? Quels composants ?

As-tu tenté en AppTethering pour voir si ça passe ?

Il y a quelques exemples de jeux qui l'utilisaient pour montrer la faisabilité de la chose. Leurs sources sont dans Github et sur https://github.com/Embarcadero/DelphiArcadeGames (mais je ne sais pas si c'était la version complète ou la version sans les smartphones en tant que télécommande, à vérifier dans le dépôt).

Je suis en bluetooth classique et voici les composants que j'utilise.

Code:

1
2
3
4
5
 
FBluetoothManager : TBluetoothManager;
    FBluetoothDevicesList : TBluetoothDeviceList;
    FAppareilsAssocies : TBluetoothDeviceList;
    FAdapter : TBluetoothAdapter;

La fonction qui lance la découverte

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
procedure TForm1.BtnDecouverteClick(Sender: TObject);
begin
  ComboBox1.Clear;
  AniIndicator1.Visible:=True;
  AniIndicator1.Enabled:=True;
 
  if FBluetoothManager.ConnectionState=TBluetoothConnectionState.Connected then
  begin
    FBluetoothManager.StartDiscovery(120000);
  end else
  begin
    Memo1.Lines.Add('Votre Bluetooth n''est pas activé');
  end;
end;

La fonction de fin de découverte

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
 
Procedure Tform1.FinDecouverteAppareils (Const Sender : TObject; Const Adevices : TBluetoothDeviceList);
begin
TThread.Synchronize(nil, procedure
  Var I : Integer ;
  begin
    AniIndicator1.Visible:=False;
    AniIndicator1.Enabled:=False;
    FBluetoothDevicesList:=ADevices;
 
    if FBluetoothDevicesList.Count>0 then
    begin
      Memo1.Lines.Add('Nbre d''appareils trouvés : ' + IntToStr(FBluetoothDevicesList.Count));
      for I := 0 to FBluetoothDevicesList.Count-1 do
      begin
        ComboBox1.Items.Add(FBluetoothDevicesList.Items[I].DeviceName);
      end;
      ComboBox1.ItemIndex:=0;
    end else
    begin
      Memo1.Lines.Add('Nbre d''appareils trouvés : 0');
    end;
  end);
end;

Et l'initialisiation des composants qui se fait au moment de l'affichage de la fenêtre

Code:

1
2
3
4
5
6
7
 
procedure TForm1.FormShow(Sender: TObject);
begin
   FBluetoothManager:=TBluetoothManager.Current;
   FBluetoothManager.OnDiscoveryEnd:=FinDecouverteAppareils;
   FAdapter:=FBluetoothManager.CurrentAdapter;
end;

03/10/2022, 11h38
Gouyon

Petite précision.
D'après l'auteur du tutoriel certaines versions de Windows n'autoriseraient la découverte des appareils que via les paramètres. :aie:
Merci Bill :calim2:
03/10/2022, 14h49
pprem

En fait ça dépend aussi de la puce Bluetooth physique, mais clairement c'est pas une techno viable sur le PC de madame Michu sans test préalable. :(
03/10/2022, 15h01
Gouyon

Citation:

Envoyé par pprem

En fait ça dépend aussi de la puce Bluetooth physique, mais clairement c'est pas une techno viable sur le PC de madame Michu sans test préalable. :(

Ah.. je savais bien que je n'aurais pas du acheter ce PC sois disant dernier cri à madame Michu :mouarf:

Plus sérieusement j'ai testé d'autres PC (que celui de madame Michu :D) et ça n'a pas vraiment mieux fonctionné. Et si ça dépend effectivement de la puce bluethooth mon téléphone n'a pas spécialement le dernier cri :(

En conclusion c'est assez aléatoire comme système de communication.
03/10/2022, 18h02
pprem

en fait, en ordinateur physique, les seuls à avoir un truc qui tient réellement la route reste Apple puisqu'ils se servent du Bluetooth pour tous leurs périphériques et certains trucs liés aux smartphones/tablettes, donc eux s'assurent que tout roule. Sur PC, c'est la foire aux composants cheap, puisque la plupart des utilisateurs s'en servent juste pour une enceinte ou une manette sans fil.
04/10/2022, 08h51
SergioMaster

Citation:

Envoyé par Gouyon

En conclusion c'est assez aléatoire comme système de communication.

"Chu pas Mme Michu" mais je confirme le bluetooh et moi, on est en guerre depuis le début :aie:.
Sur un même appareil, des fois, c'est bon, d'autres fois non :mur:
Cela étant, tel Rocky Bat le Boa, je ne suis pas remonté sur le ring depuis la version Tokyo
06/01/2023, 10h30
JP CASSOU

Bluetooth = crappy technology

Citation:

Envoyé par pprem

En fait ça dépend aussi de la puce Bluetooth physique, mais clairement c'est pas une techno viable sur le PC de madame Michu sans test préalable. :(

Bluetooth = crappy technology. Point barre
06/01/2023, 11h29
pprem

Citation:

Envoyé par SergioMaster

Cela étant, tel Rocky Bat le Boa, je ne suis pas remonté sur le ring depuis la version Tokyo

dommage parce qu'il y a eu plein de tickets clôturés concernant le BT en 11.x (des correctifs, des améliorations et des mises à jour), mais n'ai pas non plus joué avec pour le moment, faudrait trouver ~~de la motivation~~ du temps pour ça :mrgreen:
06/01/2023, 11h30
pprem

Citation:

Envoyé par JP CASSOU

Bluetooth = crappy technology. Point barre

sauf quand on est une enceinte connectée (quoique c'est du BT classic) ou une Magic mouse à 79 euros sur un Mac
06/01/2023, 12h01
SergioMaster

Citation:

Envoyé par pprem

dommage parce qu'il y a eu plein de tickets clôturés concernant le BT en 11.x, faudrait trouver ~~de la motivation~~ du temps pour ça :mrgreen:

Pas bien de me relancer comme ça :mouarf: