delphi的App蓝牙打印 支持自定义格式 2021-02-24 17:31:27

// 蓝牙打印单元

//初始化蓝牙设备

// 得到蓝牙设备

// 释放被关闭

// 开启蓝牙

// 选择连接的设备

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;


文件列表 大小
BluePrint
__history
BluePrint.pas.~111~ 6.97KB
BluePrint.pas.~112~ 7.04KB
BluePrint.pas.~113~ 7.26KB
BluePrint.pas.~114~ 7.43KB
BluePrint.pas.~115~ 7.60KB
BluePrint.pas.~116~ 7.63KB
BluePrint.pas.~117~ 7.63KB
BluePrint.pas.~118~ 7.70KB
BluePrint.pas.~119~ 7.71KB
BluePrint.pas.~120~ 7.72KB
BluetoothPrint.pas.~100~ 9.56KB
BluetoothPrint.pas.~101~ 9.58KB
BluetoothPrint.pas.~92~ 9.82KB
BluetoothPrint.pas.~93~ 9.81KB
BluetoothPrint.pas.~94~ 9.85KB
BluetoothPrint.pas.~95~ 9.86KB
BluetoothPrint.pas.~96~ 9.87KB
BluetoothPrint.pas.~97~ 9.93KB
BluetoothPrint.pas.~98~ 9.93KB
BluetoothPrint.pas.~99~ 9.71KB
CalcExpress.pas.~71~ 41.69KB
CalcExpress.pas.~72~ 41.72KB
CalcExpress.pas.~73~ 41.76KB
CalcExpress.pas.~74~ 41.80KB
CalcExpress.pas.~75~ 41.87KB
CalcExpress.pas.~76~ 41.74KB
CalcExpress.pas.~77~ 41.82KB
CalcExpress.pas.~78~ 41.99KB
CalcExpress.pas.~79~ 42.00KB
CalcExpress.pas.~80~ 42.00KB
CommandPrintFunc.pas.~197~ 20.59KB
CommandPrintFunc.pas.~198~ 20.51KB
CommandPrintFunc.pas.~199~ 20.54KB
CommandPrintFunc.pas.~200~ 20.59KB
CommandPrintFunc.pas.~201~ 20.61KB
CommandPrintFunc.pas.~202~ 20.61KB
CommandPrintFunc.pas.~203~ 20.61KB
CommandPrintFunc.pas.~204~ 20.60KB
CommandPrintFunc.pas.~205~ 20.60KB
CommandPrintFunc.pas.~206~ 20.60KB
FrmBPrint.fmx.~1~ 3.85KB
FrmBPrint.fmx.~2~ 3.85KB
FrmBPrint.fmx.~3~ 3.81KB
FrmBPrint.fmx.~4~ 3.81KB
FrmBPrint.fmx.~5~ 3.81KB
FrmBPrint.fmx.~6~ 3.78KB
FrmBPrint.fmx.~7~ 3.79KB
FrmBPrint.fmx.~8~ 3.82KB
FrmBPrint.pas.~46~ 4.04KB
FrmBPrint.pas.~47~ 4.15KB
FrmBPrint.pas.~48~ 4.16KB
FrmBPrint.pas.~49~ 4.20KB
FrmBPrint.pas.~50~ 4.20KB
FrmBPrint.pas.~51~ 4.20KB
FrmBPrint.pas.~52~ 4.36KB
FrmBPrint.pas.~53~ 4.40KB
FrmBPrint.pas.~54~ 4.44KB
FrmBPrint.pas.~55~ 3.92KB
__recovery
BluetoothPrint.pas 9.56KB
CalcExpress.pas 42.00KB
CommandPrintFunc.dcu 4.23KB
CommandPrintFunc.pas 20.60KB
CommandPrintFunc.~pas 2.08KB

文件下载