Bluetooth LE Leica Disto

[MeGe]

Hallo zusammen,

ich habe hier ein Leica Disto Distanzmessgerät, welches ich über Bluetooth LE
versuche zu verbinden.

Ich verwende Delphi Tokyo 10.2. und nutze dabei die Komponente TBluetoothLE,
das ganze unter Windows 10.

Über das Event OnDiscoverLEDevice ermittle ich die Geräte.
Hier werden mir allerdings nur die Geräte angezeigt, die gekoppelt sind, die
Geräte die verbunden sind, ignoriert er.


Die Codebeispiele vom Embarcadero den BLEScanner, ExplorerDevicesLe etc..
habe ich schon getestet, mit dem selben Resultat.

Habt ihr eine Vermutung.

Freundliche Grüße und ein schöne Wochenende

Gerd

[DP-Maintenance]

Dieses Thema wurde am "18. Jan 2019, 15:45 Uhr" von "Luckie" aus dem Forum "Neuen Beitrag zur Code-Library hinzufügen" in das Forum "Programmieren allgemein" verschoben.

[philipp.hofmann]

Hi,

das ist leider tatsächlich so. Da hat Emba eine Windows-Funktion, die vor gut 18 Monaten verbaut wurde (nämlich, dass man nicht mehr pairen muss), noch nicht eingebaut und mittlerweile speichert Windows das Pairing nicht mehr, d.h. Du musst nach jedem Windows-Start neu pairen.

In Summe bedeutet dies hart formuliert: Delphi unterstützt von Hause aus kein Bluetooth-LE mehr unter Windows und es geht nur noch mit iOS und Android (mit MacOS gibt es auch x-Einschränkungen, wo die TBluetoothLE-Implementierung nicht funktioniert).

Du kannst für den Support-Issue, den es dafür schon gibt voten (Emba sieht es als Feature an, ich als Bug):
https://quality.embarcadero.com/browse/RSP-21711

Ich bin daher auf die recht teure ip*Works-Variante der Bluetooth-Implementierung umgestiegen, welche aber an sich deutlich hakeliger ist, als TBluetoothLE, aber wenigstens ohne Pairing funktioniert.

Grüße, Philipp

[MEissing]

Jain.

Ohne Pairing geht es auch mit den WinRT APIs (die 10.3 Rio als Pascal Header mitbringt)

[philipp.hofmann]

Zitat:

Zitat von MEissing (Beitrag 1423562)

Jain.

Ohne Pairing geht es auch mit den WinRT APIs (die 10.3 Rio als Pascal Header mitbringt)

Meinst Du die Beacon-Implementierung? Habe ich mir nur kurz angeschaut und jetzt adhoc keine Schreibmöglichkeit gefunden, sondern nur Auslesen. Damit würde es mir nichts bringen.
Oder kann man beides kombinieren, damit sich TBluetoothLE auch wieder unter Windows nutzen lässt?

[MEissing]

Nicht die Komponente benutzen, sondern die WinRT API.

[Rollo62]

Das ist wohl leider so. Win10 muss gepairt werden.
Android und ios macos funktionieren ohne.

Edit
Jetzt erst sehe ich alle Beiträge, es scheint manchmal zu hakeln am Tablet.
Also das wurde schon besprochen, sorry.

[MeGe]

Hallo,

das Supportteam vom Emba, hat mir auch den Tipp mit WinRT gegeben.


An dieser Stelle, vielen Dank für eure Info.


Gruß Gerd

[rabatscher]

Hey!

Ich bin gerade in dasselbe Problem geschlittert - diesmal mit dem Herzratenprofil...
Eine Lösung war für mich die Klassen in System.Win.BluetoothWinRT zu erweitern um
die Pairingproblematik zu umgehen. Dabei habe ich das Service/Characteristics/Profiles discovery
auf die Async API von WinRT umgestellt. Es ist zwar nicht ganz asynchron aber es funzt soweit...

Wäre jemand an dem "Patch" für Delphi 10.3 interssiert?

[philipp.hofmann]

Ja, an dem Patch wäre ich interessiert. Ich nutze auch die TBluetoothLE-Implementierung und zwinge aktuell die Kunden dazu die Devices vorab im OS zu pairen. Wen ich darauf verzichten könnte, würde ich dies gerne tun.