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;