Bibliothèque Bluetooth pour Windows

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

Bonjour,

Essayes de regarder par là.

Merci "TheFreeBerga" pour ce lien.

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

Cordialement.

Pierre

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

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

Code:

---

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

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

Citation:

---

Envoyé par anapurna

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

---

Certes. Voici ce que j'ai écrit :

Code:

---

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

Citation:

---

Envoyé par ChPr

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

---

Extrait d'un vieux winerror.h :

Code:

---

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

---

Citation:

---

Envoyé par ChPr

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.

Citation:

---

Envoyé par Jipété

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

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:

---

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

---

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

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:

---

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

Citation:

---

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)

Citation:

---

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.

Citation:

---

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:

---

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

Citation:

---

Envoyé par FChrisF

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

Citation:

---

Envoyé par FChrisF

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:

---

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.

Citation:

---

Envoyé par FChrisF

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

Citation:

---

Envoyé par TheFreeBerga

Bonjour,

Essayes de regarder par là.

---

Lien mort ...

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+

Citation:

---

Envoyé par 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+

---

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

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

Citation:

---

Envoyé par BeanzMaster

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

hello,

Citation:

---

Envoyé par BeanzMaster

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

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

Citation:

---

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

Citation:

---

Envoyé par jurassic pork

hello,


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

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.