delphi usb接口58小票打印机开钱箱的代码

展开全文

delphi usb接口58小票打印机开钱箱的代码 [问题点数：40分，结帖人hdc733]

: 关注; hdc733; hdc733; 本版等级：; 结帖率：100%

楼主发表于： 2015-07-20 20:05:26

如题。

如果大侠们找的是这个代码就不用贴出来了。
procedure OpenUSBMoneyBox;
var
prt: TPrinter;
esc: TOutBufPassThrough;
begin
try
prt := Printers.Printer;
prt.beginDoc;
esc.nDataLen := Length(c_OpenMoneyBoxCommand);
strpCopy(esc.sEscData, c_OpenMoneyBoxCommand);
windows.ExtEscape(prt.Handle, PASSTHROUGH, sizeOf(esc), @esc, 0, nil);
prt.endDoc;
except

end;
end;

我嫌它空走纸，有没有直接开钱箱不走纸的代码。请赐教！

对我有用[0] 丢个板砖[0] 引用 | 举报 | 管理

回复次数：6

关注 hdc733 hdc733 本版等级：	#1 得分：0 回复于： 2015-07-21 22:00:01 为什么没有人回复呢，是因为大侠高人都不在吗。看到帖子帮顶一下呀。嫌分低可追加。
	对我有用[0] 丢个板砖[0] 引用 \| 举报 \| 管理

: 关注; linghengmao; linghengmao; 本版等级：

#2 得分：20 回复于： 2015-08-07 15:38:09

var
  Handle: THandle;
  N: DWORD;
  DocInfo1: TDocInfo1;
  Device  : array[0..255] of char;
  Driver  : array[0..255] of char;
  Port    : array[0..255] of char;
  hMode   : Cardinal;
  S: string;
begin
   Printer.GetPrinter(Device,Driver,Port,hMode);
  if not OpenPrinter(@Device, Handle, nil) then
  begin

    Exit;
  end;
  with DocInfo1 do begin
    pDocName := PChar('test doc');
    pOutputFile := nil;
    pDataType := 'RAW';
  end;
  S:= AnsiString(CHR(27)+Chr(112)+CHR(0)+CHR(60)+CHR(255));
  try
    StartDocPrinter(Handle, 1, @DocInfo1);
    StartPagePrinter(Handle);
    WritePrinter(Handle, PChar(S), Length(S), N);
    EndPagePrinter(Handle);
    EndDocPrinter(Handle);

  finally
    ClosePrinter(Handle);
  end;
end;

对我有用[0] 丢个板砖[0] 引用 | 举报 | 管理

: 关注; ghs79; ghs79; 本版等级：

#3 得分：20 回复于： 2015-10-05 18:30:48

USB端口，可以当COM口操作的。直接用COM控件往端口写数据就行了。
我用的是SPcomm控件。
var
  tmpStr: string;
  esc: TOutBufPassThrough;
begin
  cm1.CommName := edt1.Text;
  cm1.StartComm;
  begin
    cm1.WriteCommData(PChar(tmpStr), Length(tmpStr));
    cm1.WriteCommData(#13#10, 2); //加了这行，才会打印
  end;
  Sleep(500);
  cm1.StopComm;
end;

对我有用[0] 丢个板砖[0] 引用 | 举报 | 管理

: 关注; ghs79; ghs79; 本版等级：

#4 得分：0 回复于： 2015-10-05 18:37:20

USB打印机的端口是类似这样的字符串
'\\?\USB#VID_0483&PID_5720#11101800002#{a5dcbf10-6530-11d2-901f-00c04fb951ed}'
参考 http://blog.csdn.net/ghs79/article/details/46543845