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 通�^窗口句柄或窗口标题得到进程句柄

Delphi downloadtomemory

Delphi dpr文件误删怎么办

Delphi textfile utf8编码读写

Delphi获取ie浏览器url地址

Delphi简单读取网上的文本文件

Delphi 简单播放mp3

Delphi 远程屏幕抓取的源代码

Delphi 用wininet 单元实现 post提交数据

Delphi xe8中的正则表达式提取日语（平假名，片假名，汉字）

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

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