Discussion :

[ChPr]

Bonjour à toutes et à tous,

Je cherche une bibliothèque qui peut exploiter un dongle BlueTooth connecté sur un port USB. Je n'en ai trouvé qu"une mais elle ne fonctionne qu'avec Linux.

En existe-t-il une pour Windows ?

Merci pour vos informations.

Cordialement.

Pierre

[TheFreeBerga]

Bonjour,

Essayes de regarder par là.

[ChPr]

Merci "TheFreeBerga" pour ce lien.

Pour autant, sans exemple, ça va être dur.

Cordialement.

Pierre

[anapurna]

salut

en regardant les source tu te fais vite une idée

tu as deux helper => il servent à surcharger une class sans tout réécrire
en l’occurrence TIdStackWindows et TIdSocketHandle

et une class qui se nomme TIdBluetoothClient
je vois pas bien le problème ... il a créé un class en se basant sur les composants INDY
tu dois utiliser le client


PS : sinon tu as les info dans le MSDN

[ChPr]

Dans le source que j'ai téléchargé, il y a ces deux fonctions :

Code :

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

1
2
    function BindBT(ASocket: TIdStackSocketHandle; const AIP: string; aRaiseException: boolean): Integer;
    function AcceptBT(ASocket: TIdStackSocketHandle; const AIP: string; aRaiseException: boolean): THandle;

Elles font appel à une constante AIP. Qu'est-ce ? et quelle valeur y donner ?

Cordialement.

Pierre

[anapurna]

salut

elle ne font pas appel a une constant
const dans les paramètre de fonction correspond à la façon dont le compilateur va pouvoir optimiser le code

dans ton cas il demande un simple chaîne de caractère

[ChPr]

... dans ton cas il demande un simple chaîne de caractère

Certes. Voici ce que j'ai écrit :

Code :

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

1
2
3
4
5
6
7
8
procedure TForm1.Button1Click(Sender: TObject);
var
  zz: TIdStackWindows;
begin
  zz:= TIdStackWindows.Create;
  zz.NewBTSocketHandle(True);
  zz.Bind(1, 'Je mets quoi ici ?', 1);
end;

Mais quoi que je mette, je me fait jeter. Apparemment, il est attendu une valeur du type suivant :

A.B.C.D où A, B, C, D sont des entiers. Cela ressemble à une adresse de réseau. J'ai mis l'adresse de mon PC et j'obtiens l'erreur 10038.

Que doit donc représenter A.B.C.D ?

Cordialement.

Pierre

[Jipété]

J'ai mis l'adresse de mon PC et j'obtiens l'erreur 10038.

Extrait d'un vieux winerror.h :

Code :

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

1
2
3
4
5
6
7
8
//
// MessageId: WSAENOTSOCK
//
// MessageText:
//
//  An operation was attempted on something that is not a socket.
//
#define WSAENOTSOCK                      10038L

Que doit donc représenter A.B.C.D ?

Je ne sais pas encore : l'adresse source ? L'adresse destination ?

Mais surtout, à cause du message de l'erreur 10038, est-ce que la socket a été créée avant d'appeler la fonction ?

Je pense qu'il faudrait s'inspirer de l'établissement d'une connexion classique (genre par câble), et juste adapter le mode de transport.

[ChPr]

... Je pense qu'il faudrait s'inspirer de l'établissement d'une connexion classique (genre par câble), et juste adapter le mode de transport.

C'est là que le bât blesse, je n'ai aucune connaissance dans ce type de connexion.

Cordialement.

Pierre

[FChrisF]

A priori, c'est l'adresse Bluetooth (https://msdn.microsoft.com/en-us/library/cc510863.aspx) qui est attendue, à savoir 6 octets en hexadecimal.

Dans votre cas, 12 caractères hexa donc. Extrait de IdBluetooth.pas:

Code :

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

sin.btAddr         := StrToInt64('$' + AIP);

Quelque chose du genre: ' 001060AA36F8'. Cf. ce lien par exemple: http://fr.codecorp.com/find-bdaddr.php

[ChPr]

Merci FchrisF pour ces liens, j'ai trouvé l'adresse de ma connexion BT.

Pour autant, tout cela reste inextricable.

La fonction "Bind" attend un AIP formé de quatre champs alphanumériques mais "décimaux" et non pas "hexadécimaux" et compte tenu de ceci :

Code :

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

1
2
3
4
5
A Bluetooth–enabled device address is a unique, 48–bit address containing the following three fields:
 
    LAP field: lower part of the address containing 24 bits.
    UAP field: upper part of the address containing 8 bits.
    NAP field: non–significant part of the address containing 16 bits.

format qui ne représente que trois champs, je ne vois pas comment établir un lien entre ces deux formats.

La fonction "AcceptBT", quand à elle, si elle demande le paramètre AIP, elle ne s'en sert pas. Par contre comme la fonction "Bind, il lui faut un paramètre "ASocket: TIdStackSocketHandle" que j'ai fixé a priori à 1 et c'est sur cette valeur qu'elle me renvoie une erreur 10038.

Bref, je tourne en rond. Je ne vois absolument pas comment me servir de ces fonctions.

Merci de votre aide.

Cordialement.

Pierre

[FChrisF]

La fonction "Bind" attend un AIP formé de quatre champs alphanumériques mais "décimaux" et non pas "hexadécimaux"

Désolé, je ne comprends pas à quoi correspondent votre référence à ces "quatre champs alphanumériques". D'après ce que je vois, ce sont plutôt des caractères hexadécimaux qui sont attendus (ce n'est pas une véritable "adresse IP" pour le Bluetooth). D'où le caractère '$' dans la conversion: "sin.btAddr := StrToInt64('$' + AIP);"

Mais je peux me tromper, car je n'ai jeté qu'un coup d’œil très rapide.

Exemple pour '001060AA36F8':

- LAP field: lower part of the address containing 24 bits: AA36F8
- UAP field: upper part of the address containing 8 bits: 60
- NAP field: non–significant part of the address containing 16 bits: 0010

(OUI = UAP + NAP = 001060)

La fonction "AcceptBT", quand à elle, si elle demande le paramètre AIP, elle ne s'en sert pas.

C'est pour un "serveur", qui doit donc accepter n'importe quel client.

Par contre comme la fonction "Bind, il lui faut un paramètre "ASocket: TIdStackSocketHandle" que j'ai fixé a priori à 1 et c'est sur cette valeur qu'elle me renvoie une erreur 10038.

A priori, cette valeur est le handle retourné lors de la création. Par exemple, en reprenant votre code:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
procedure TForm1.Button1Click(Sender: TObject);
var
  zz: TIdStackWindows;
      SocketHandle: THandle;
      RetCode: Integer;
begin
  zz := TIdStackWindows.Create;
  SocketHandle := zz.NewBTSocketHandle(True);
  RetCode := zz.BindBT(SocketHandle, '001060AA36F8', False);  // Remplacer '001060AA36F8' par l'adresse Bluetooth
  ShowMessage('Code retour = ' + IntToStr(RetCode));
  zz.Free;
end;

PS. Code non testé.

D'ailleurs, je pense qu'il faudrait plutôt utiliser les classes de "plus haut niveau" (comme TIdBluetoothClient par exemple).

[ChPr]

Désolé, je ne comprends pas à quoi correspondent votre référence à ces "quatre champs alphanumériques". D'après ce que je vois, ce sont plutôt des caractères hexadécimaux qui sont attendus (ce n'est pas une véritable "adresse IP" pour le Bluetooth). D'où le caractère '$' dans la conversion: "sin.btAddr := StrToInt64('$' + AIP);" ...

C'est moi qui me suis trompé. J'ai utilisé par erreur la fonction "bind" (qui est une fonction appelée dans la hiérarchie) au lieu de la fonction "BindBT".

La fonction "AcceptBT", quand à elle, si elle demande le paramètre AIP, elle ne s'en sert pas.

C'est pour un "serveur", qui doit donc accepter n'importe quel client. ...

Ok.

Voyant mes erreurs, j'en suis arrivé au code que vous me proposez.

Mais le code de retour est -1. C'est-à-dire que dans la fonction BindBT, si on met le boolean à True, le code interne à cette fonction :

Code :

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

1
2
  if aRaiseException then
    CheckForSocketError(Result);

renvoie une erreur 10022 (argument invalide), ce qui montre qu'il y a quand même problème.

Bon, je dois encore faire des erreurs. L'adresse BT que j'avais mise était celle du BlueTooth du PC. Je l'ai remplacée par celle d'un petit GPS Bluetooth que j'ai et le code de retour est cette fois "0" et le clignotant de mon GPS m'indique qu'une communication est établie.

... D'ailleurs, je pense qu'il faudrait plutôt utiliser les classes de "plus haut niveau" (comme TIdBluetoothClient par exemple). ...

Oui, je vais voir ça.

Cordialement.

Pierre

[JP CASSOU]

Bonjour,

Essayes de regarder par là.

Lien mort ...

[BeanzMaster]

Salut JP as tu essayé ça : https://wiki.freepascal.org/Bluetooth ?
Tu peux regarder ici aussi https://forum.lazarus.freepascal.org...?topic=52840.0 et je suis tombé là-dessus aussi https://github.com/btframework/WCL-Lazarus-Demos (https://www.btframework.com/wcl_lazarus.htm)

A+

[JP CASSOU]

Salut JP as tu essayé ça : https://wiki.freepascal.org/Bluetooth ?
Tu peux regarder ici aussi https://forum.lazarus.freepascal.org...?topic=52840.0 et je suis tombé là-dessus aussi https://github.com/btframework/WCL-Lazarus-Demos (https://www.btframework.com/wcl_lazarus.htm)

A+

J'ai vu:
Bluetooth: Linux only
Composants WCL Bluetooth: proprio, payant et hors de prix. Pour Windows only

[BeanzMaster]

Hello avec les composants TLazSerial de notre ami JurrasicPork cela semble possible. Si il passe par là, il pourrait confirmer

[JP CASSOU]

Hello avec les composants TLazSerial de notre ami JurrasicPork cela semble possible. Si il passe par là, il pourrait confirmer

Protocole BLE GATT, différent du port série émulé rfcomm

[jurassic pork]

hello,

Hello avec les composants TLazSerial de notre ami JurrasicPork cela semble possible. Si il passe par là, il pourrait confirmer

je passe par là . TLazserial ne traite que les protocoles série mais pas les autres types de protocole Bluetooth

Par contre pour utiliser le bluetooth BLE il y a une possibilité avec Lazarus --> Lazarus4Python (interfaçage python - lazarus) et le module python Bleak :

Bleak is a GATT client software, capable of connecting to BLE devices acting as GATT servers. It is designed to provide a asynchronous, cross-platform Python API to connect and communicate with e.g. sensors.Features
Supports Windows 10, version 16299 (Fall Creators Update) or greater
Supports Linux distributions with BlueZ >= 5.43
OS X/macOS support via Core Bluetooth API, from at least OS X version 10.11
Android backend compatible with python-for-android
Bleak supports reading, writing and getting notifications from GATT servers, as well as a function for discovering BLE devices.

Ami calmant, J.P

[JP CASSOU]

hello,


je passe par là . TLazserial ne traite que les protocoles série mais pas les autres types de protocole Bluetooth

Par contre pour utiliser le bluetooth BLE il y a une possibilité avec Lazarus --> Lazarus4Python (interfaçage python - lazarus) et le module python Bleak :


Ami calmant, J.P

J'ai essayé avec Bleak, mais j'ai une erreur incompréhensible +++ (une histoire de module introuvable malgré installation correcte). Je passe maintenant par les libs Windows.