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.