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.

[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