DELPHI控制收钱箱的有关问题

2013-06-25

DELPHI控制收钱箱的问题我想控制USB小票打印机接的收钱箱，收钱箱是可以打开了，可每次打开收钱箱后，打印机

DELPHI控制收钱箱的问题
我想控制USB小票打印机接的收钱箱，收钱箱是可以打开了，可每次打开收钱箱后，打印机就会走2厘米左右的空白纸，大家有没有什么好的办法让它不走纸呢？先谢了！
打开收钱箱的代码如下：

var
  prt: TPrinter;
  esc: TOutBufPassThrough;
  sMoneyBoxOpenCommand: AnsiString;
begin
  try
    prt := Printers.Printer;
    prt.beginDoc;
    sMoneyBoxOpenCommand := AnsiString(CHR(27)+Chr(112)+CHR(0)+CHR(60)+CHR(255));
    esc.nDataLen := Length(sMoneyBoxOpenCommand);
    strpCopy(esc.sEscData, sMoneyBoxOpenCommand);
    Windows.ExtEscape(prt.Handle, PASSTHROUGH, sizeOf(esc), @esc, 0, nil);
    esc.nDataLen:= 0;
    prt.endDoc;
  except

  end;
end;

[解决办法]
【每次打开收钱箱后，打印机就会走2厘米左右的空白纸】
这个是钱箱的控制码决定的吧，要查它的手册

是通过打印口控制的？会不会是TPrinter自动多做了什么？
直接 write(stdprn,'对应的控制码');会怎样？

热点排行

.NET

DELPHI控制收钱箱的有关问题