Delphi 与低功耗蓝牙：发现设备

Question

我正在使用低功耗蓝牙启动一个应用程序，在 Delphi 10.2 Tokyo 和 Windows 10 中为 Android 开发。

我在 TForm 中创建了一个包含 TButton 和 TBluetoothLE 对象的新项目。 TButton OnClick 事件仅包含以下代码：

BluetoothLE1.Enabled: = True;
BluetoothLE1.DiscoverDevices(2000);

在我的第一次测试中有两个问题：

问题 1) 运行应用程序（使用 F9）并执行BluetoothLE1.DiscoverDevices(2000); 时，如果没有运行上述 OnClick 两次，则找不到 BLE 设备（但附近有 BLE 设备正在运行且可用在我看来，我可以使用另一个应用程序找到）。即使我更改了 TimeOut 值（正负），如果 BluetoothLE1.DiscoverDevices 仅运行一次，也找不到设备。

问题 2) 当应用程序关闭时（使用 F9 运行并执行 DiscoverDevices 后），出现Invalid Pointer Operation。 Embarcadero BluetoothLE 示例也会出现此错误。使用Shift+Ctrl+F9 运行应用程序不会出错。

有解决这些问题的方法吗？怎么样？

Answer 1

在 Windows 平台上运行您的应用程序时，您只能找到配对的 BLE 设备。 Delphi蓝牙实现中有很多错误。我不了解 Android 部分，但对于 Windows，您需要默认 Delphi 以外的其他解决方案。