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

[hdc733]

如题。

如果大侠们找的是这个代码就不用贴出来了。
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;

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

[hdc733]

为什么没有人回复呢，是因为大侠高人都不在吗。 看到帖子帮顶一下呀。嫌分低可追加。

[linghengmao]

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;

[ghs79]

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;

[ghs79]

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

[tcmakebest]

走纸不是要定位到裁切的位置么, 打印纸上没图案吗

[hdc733]

Ok，代码暂时还没试，但对大侠的仗义相助表示。先结贴。