delphi TBluetoothLE

delphi TBluetoothLE、TBluetoothLEManager

1、搜索设备

BluetoothLE1.DiscoverDevices(4000);

触发事件

BluetoothLE1EndDiscoverDevices 发现蓝牙设备

2、搜索服务

BluetoothLE1.DiscoverServices(FCurrentDevice)

BluetoothLE1EndDiscoverServices  发现蓝牙设备的服务

3、发送数据

BluetoothLE1.WriteCharacteristic(TBluetoothLEDevice ADevice,TBluetoothGattCharacteristic ACharacteristic);

BluetoothLE1.SubscribeToCharacteristic(FBLEDevice, FHRMeasurementGattCharact);

4、接受数据

procedure BluetoothLE1CharacteristicRead(const Sender: TObject; const ACharacteristic: TBluetoothGattCharacteristic;
AGattStatus: TBluetoothGattStatus);