Discussion :

[Gouyon]

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

[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).

[Gouyon]

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

Code :

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

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

La fonction qui lance la découverte

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
 
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 :

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
 
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 :

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

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

[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.
Merci Bill

[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.

[Gouyon]

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

Plus sérieusement j'ai testé d'autres PC (que celui de madame Michu ) 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.

[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.

[SergioMaster]

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 .
Sur un même appareil, des fois, c'est bon, d'autres fois non
Cela étant, tel Rocky Bat le Boa, je ne suis pas remonté sur le ring depuis la version Tokyo

[JP CASSOU]

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

[pprem]

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

[pprem]

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

[SergioMaster]

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

Pas bien de me relancer comme ça