delphi 小票打印开钱箱 自动切纸指令

本文整理自网络，侵删。

 
//小票
const

  // ESC指令 开钱箱
  sMoneyBoxOpenCommand= CHR(27) + CHR(112) + CHR(0) + CHR(17) + CHR(8);
  // ESC指令 自动切纸
  c_cut_paper = CHR(29) + CHR(86) + CHR(66) + CHR(0);

USB打印机开钱箱
type
  TOutBufPassThrough = record   // 用于USB接口打印机开钱箱
  // 调用windows.extEscape可以直接用extEscape(handle, PASSTHROUGH, sizeOf(outBuf), @outBuf, 0, nil)向设备发送esc命令
    nDataLen: word;
    sEscData: array [0 .. 1024] of AnsiChar;
  end;

procedure Tform1.OpenUSBMoneyBox;
var
  prt: TPrinter;
  esc: TOutBufPassThrough;
  sMoneyBoxOpenCommand: AnsiString;
begin
  try
    prt := Printers.Printer;
    prt.beginDoc;
    sMoneyBoxOpenCommand := AnsiString(const_OpenMoneyBoxCommand);
    esc.nDataLen := Length(sMoneyBoxOpenCommand);
    strpCopy(esc.sEscData, sMoneyBoxOpenCommand);
    Windows.ExtEscape(prt.Handle, PASSTHROUGH, sizeOf(esc), @esc, 0, nil);
    // PASSTHROUGH：允许程序直接发送数据到设备
    prt.endDoc;
  except

  end;
end;

分类: Api
 

相关阅读 >>

Delphi idhttp读取网页重定向

Delphi 反转内存的函数

Delphi 获取系统mydocuments文件夹路径

Delphi10.x dpr文件

Delphi滚动标题栏文字

Delphi 读取图像文件base64编码加载到image组件显示图片

Delphi 根据关键字取关键词以后的字符串

Delphi 下载并显示网上的图片

Delphi 10.4 freeandnil 问题

Delphi idhttp1post上传图片

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » delphi 小票打印开钱箱 自动切纸指令