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 TFrmCollectionOrder.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;