Delphi安卓平台下USB热敏打印机打印小票代码

在Delphi安卓平台下，可以使用Android的USB主机模式API来连接USB热敏打印机进行打印。以下是一个示例代码：

procedure TForm1.Button1Click(Sender: TObject);
var
  manager: JUsbManager;
  deviceList: JHashMap;
  deviceIterator: JIterator;
  device: JUsbDevice;
  intf: JUsbInterface;
  ep: JUsbEndpoint;
  conn: JUsbDeviceConnection;
  buffer: TJavaArray<Byte>;
  printerCmd: AnsiString;
begin
  // 获取USB设备列表
  manager := TJUsbManager.Wrap(TAndroidHelper.Context.getSystemService(TJContext.JavaClass.USB_SERVICE));
  deviceList := manager.getDeviceList;

  // 遍历设备列表
  deviceIterator := deviceList.values.iterator;
  while deviceIterator.hasNext do
  begin
    device := TJUsbDevice.Wrap(deviceIterator.next);
    if device.getVendorId = VENDOR_ID then // VENDOR_ID是热敏打印机的厂商ID
    begin
      // 打开设备
      conn := manager.openDevice(device);
      if Assigned(conn) then
      begin
        // 打印小票
        intf := device.getInterface(0);
        ep := intf.getEndpoint(0);
        conn.claimInterface(intf, True);
        try
          // 设置打印机参数
          printerCmd := #27#64; // 初始化打印机
          printerCmd := printerCmd + #27#33#0; // 设置字符大小为标准
          printerCmd := printerCmd + #27#100#4; // 打印并换行
          printerCmd := printerCmd + #27#109; // 切纸
          buffer := TJavaArray<Byte>.Create(TEncoding.UTF8.GetBytes(printerCmd));
          conn.bulkTransfer(ep, buffer, Length(buffer), 5000);
        finally
          // 关闭设备
          conn.releaseInterface(intf);
          conn.close;
        end;
      end;
    end;
  end;
end;

需要注意的是，此代码仅供参考，实际使用时需要根据具体的热敏打印机型号和接口进行调整。