MacOS/iOS: Nutzung von BluetoothLE mit Delphi 10.4.2

[philipp.hofmann]

Ich erzeuge zuerst das TBluetoothLE-Objekt

Delphi-Quellcode:

    ble:=TBluetoothLE.create(mainForm);
    ble.Enabled:=False;
    ble.OnCharacteristicRead:=BluetoothLECharacteristicRead;
    ble.OnCharacteristicWrite:=BluetoothLECharacteristicWrite;
    ble.OnDescriptorRead:=BluetoothLEDescriptorRead;
    ble.OnDisconnect:=BluetoothLEDisconnect;
    ble.OnDisconnectDevice:=BluetoothLEDisconnectDevice;
    ble.OnDiscoverLEDevice:=BluetoothLEDiscoverLEDevice;
    ble.OnServicesDiscovered:=BluetoothLEServicesDiscovered;

und sobald es gebraucht wird, frage ich zuerst TBluetoothLEManager.Current ab und danach setze "ble.Enabled := True".
Und genau dies läuft dann in der GetConnectionState-Methode in den Fehler, weil DoGetAdapter davor nie aufgerufen worden ist.
Ich könnte sicherlich den Code auch noch so anpassen, dass DoGetAdapter sicher davor aufgerufen wird, dies ist mir aber zu viel Interna.
Daher denke ich, dass mein Vorschlag passender ist, weil er einfach keinen bestimmten Aufruf-Flow voraussetzt.

Delphi-Quellcode:

function TMyBluetoothManager.enableLE():boolean;
var trainerF:TicTrainerF;
    osBLEManager:TBluetoothLEManager;
begin
  Result:=false;
  osBLEManager:=TBluetoothLEManager.Current;
  if (osBLEManager.connectionState=TBluetoothConnectionState.Disconnected) then
  begin
    mlog.connectionsInfo('You have to enabled Bluetooth first in OS!',true);
    exit;
  end;

  if (not ble.enabled) then
  begin
    while (not ble.Enabled) do
      ble.Enabled := True;
    Result:=true;
  end else
    Result:=true;
end;

Und ja, auch ich kann ein Lied von den Patches der Original-Klassen singen. Für Bluetooth patche ich immer die System.Win.BluetoothWinRT.pas, damit man nicht zuvor pairen muss (Code liegt EMBT schon seit rund 1,5 Jahren vor) und jetzt die kleine Anpassung in System.Mac-Bluetooth.pas. Dann noch ein Indy-Patch (welches in der Version auf dem GitHub schon integriert ist, aber nicht in der EMBT-Version), da sonst die Zeitumrechnung auf Android/iOS/MacOS falsch läuft, ein Patch in FMX-Platform.iOS.pas, damit man weiß, ob der DarkMode aktiviert ist und noch zwei Fixes in FMX.Controls.pas und FMX.Forms.pas, damit auf iOS weniger Exceptions fliegen. Und mit jeder neuen Delphi-Version prüfe ich minutiös, ob die Patches übernommen worden sind oder nicht. Bei Delphi 10.4.2 war dies bei 2 Patches der Fall.

[Rollo62]

Ja ist richtig, das Create sollte in OnGetAdapter liegen.

Trotzdem seltsam das es im Test auch so funktioniert hat, ohne alle Workarounds.
Ich habe auch nur Events gesetzt und .Enabled := True gesetzt, und danach DiscoverDevices aufgerufen.

Jetzt suche ich schon WARUM etwas geht, ist auch mal was Anderes
Es ist halt wie es ist, jetzt muss ich wieder weiter an Projekten arbeiten.

[philipp.hofmann]

Der Debugger müsste dir ja relativ einfach zeigen, von von wo der Aufruf von DoGetAdapter bei dir herkommt. Aber am Ende ist es egal.