MacOS/iOS: Nutzung von BluetoothLE mit Delphi 10.4.2

[philipp.hofmann]

Hi,

ich bin heute mal dazu gekommen mir anzuschauen, warum BluetoothLE seit Delphi 10.4.2 nicht mehr mit MacOS und iOS läuft.
Wenn ich es richtig sehe, ist es ein einfacher Fehler in System.Mac.Bluetooth:

Der falsche Code sieht folgendermaßen aus:

Delphi-Quellcode:

function TMacBluetoothLEManager.GetConnectionState: TBluetoothConnectionState;
var
  LTotal: Single;
  LMacBluetoothLEAdapter: TMacBluetoothLEAdapter;
begin
  LMacBluetoothLEAdapter := TMacBluetoothLEAdapter(FAdapter);

Die letzte Zeile ist anzupassen, da man sonst den Adapter nicht auf enabled setzen kann:

Delphi-Quellcode:

function TMacBluetoothLEManager.GetConnectionState: TBluetoothConnectionState;
var
  LTotal: Single;
  LMacBluetoothLEAdapter: TMacBluetoothLEAdapter;
begin
  LMacBluetoothLEAdapter := (doGetAdapter() as TMacBluetoothLEAdapter);

Ich jetzt auch dokumentiert in https://quality.embarcadero.com/browse/RSP-33267.

Grüße, Philipp