// 蓝牙打印单元

//初始化蓝牙设备

// 得到蓝牙设备

// 释放被关闭

// 开启蓝牙

// 选择连接的设备

function TBluePrinterManager.BluetoothInit(ForceList:Boolean): Boolean;  //初始化蓝牙设备
begin
  try
    Result:=False;
    if FBluetoothManager =nil then
    begin
      {$IFDEF IOS}
      FBluetoothManager := TBluetoothLEManager.Current;
      {$ELSE}
      FBluetoothManager := TBluetoothManager.Current;
      {$ENDIF}
    end;
  except
    on E: Exception do
    begin
      ShowMessage('获取蓝牙管理器失败: '+E.Message);
      Exit;
    end;
  end;

  if (FPairedDeviceListCount=-1) or ForceList then
  begin
    if GetPairedDeviceList then
    begin
      if FPairedDeviceListCount<1 then ShowMessage('没有配对的蓝牙设备!');
      Result:=True;
    end;
  end else
    Result:=True;
end;