RAD 10 蓝牙

http://docwiki.embarcadero.com/Libraries/Seattle/en/System.Bluetooth.TBluetoothLEManager.StartDiscovery

BluetoothLE Server

To create a server to expose or publish standard services:

Place a TBluetoothLE component in your project.
Use the GetGattServer method to publish Bluetooth Low Energy services.
Use the CreateService method from the TBluetoothGattServer class to create the service using the standard UUID.
Use the CreateCharacteristic method from the TBluetoothGattServer class to create the characteristics for the service using the standard UUIDs.
Use the AddService method to add the service to the Gatt server.
The OnCharacteristicReadRequest event handler fires when the server receives a reading request from the client device.
The OnCharacteristicWriteRequest event handler fires when the server receives a writing request from the client device.

The new ScannedAdvertiseData property of TBluetoothLEDevice allows you to access the data that a remote device advertises as an instance of TBluetoothLEAdvertiseData, so that you can easily read useful information, such as its manufacturer-specific information.
TBluetoothGattServer.AddService allows you to indicate whether you want the added service advertised (default) or not.
TBluetoothLEManager.StartDiscovery supports a new parameter, ForceConnect, to connect to all discovered remote devices to obtain a complete list of services that each remote device provides. This allows you to filter remote devices based on the services that they provide, regardless of whether they advertise them or not.
New TBluetoothUUIDHelper helper class to work with different formats of Bluetooth UUIDs.