使用Delphi 10.3 (FireMonkey) 检查蓝牙适配器状态

在开发基于物联网(IoT)的跨平台应用时，检查蓝牙适配器是否启用对于确保应用正常运行至关重要。以下是如何使用Delphi 10.3 (FireMonkey) 检查Android和iOS设备上的蓝牙适配器状态的方法。

实现方法

利用System.Bluetooth单元中的TBluetoothLEManager和TBluetoothLEAdapter来获取当前蓝牙适配器的状态。以下是核心代码示例：

uses
  System.Bluetooth;

function IsBluetoothLEAdapterEnabled: Boolean;
var
  manager: TBluetoothLEManager;
  adapter: TBluetoothLEAdapter;
begin
  Result := False;
  
  // 创建蓝牙管理实例
  try
    manager := TBluetoothLEManager.Current;
  except
    Exit;
  end;

  // 获取当前蓝牙适配器
  try
    adapter := manager.CurrentAdapter;
  except
    Exit;
  end;

  // 检查蓝牙适配器状态
  try
    if adapter.State = TBluetoothAdapterState.On then
    begin
      // 蓝牙适配器已启用
      Result := True;
    end;
  except
    Exit;
  end;
end;

// 在应用程序中调用此函数
procedure CheckBluetoothStatus;
begin
  if IsBluetoothLEAdapterEnabled then
    ShowMessage('蓝牙适配器已启用')
  else
    ShowMessage('蓝牙适配器未启用');
end;

在Delphi 10.3 中，通过创建蓝牙管理器实例并获取当前蓝牙适配器的状态，以判断蓝牙适配器是否已经启用。该方法适用于Android和iOS平台，提供了一种简便的方式来实现跨平台蓝牙状态检测功能。根据需要，你可以在应用启动或特定操作时调用CheckBluetoothStatus过程来提示用户蓝牙适配器的状态。