delphi IOS BLE 代理

代理方法

centralManagerDidUpdateState:

peripheralManagerDidUpdateState:代理方法。

centralManager:willRestoreState

peripheralManager:willRestoreState:代理方法

- (void)centralManager:(CBCentralManager *)central willRestoreState:(NSDictionary *)state
{
NSArray *peripherals = state[CBCentralManagerRestoredStatePeripheralsKey];

// TODO: ...
}

D:\Program Files (x86)\Embarcadero\Studio\17.0\source\rtl\net\System.Mac.Bluetooth.pas
D:\Program Files (x86)\Embarcadero\Studio\17.0\source\rtl\osx\Macapi.Bluetooth.pas

\17.0\source\rtl\net\System.Mac.Bluetooth.pas(3481):
procedure centralManagerDidUpdateState(central: CBCentralManager); cdecl;
[MethodName('centralManager:willRestoreState:')]

procedure TInternalBluetoothLEManager.centralManagerDidUpdateState(central: CBCentralManager);

delphi在

System.Mac.Bluetooth.pas

实现了centralManagerDidUpdateState方法

procedure TInternalBluetoothLEManager.centralManagerDidUpdateState(central: CBCentralManager);
begin
if (central.state = CBCentralManagerStatePoweredOn) and FWaitingToDiscover then
begin
FWaitingToDiscover := False;
central.scanForPeripheralsWithServices(FFilterUUIDList, FScanOptions);
end;
end;

delphi也实现了 initWithDelegate方法

procedure TInternalBluetoothLEManager.centralManagerWillRestoreState(central: CBCentralManager; dict: NSDictionary);
begin

end;