Delphi Usb 钱箱

[qq_30153625]

麻烦高手给个，Usb打印机下，可以开钱箱的代码，不甚感激，结贴给100分

[缘中人]

有官方说明书没有

[QiwenS]

USB的小票机 只能通过打印机驱动本身来控制开钱箱 要驱动支持才行 一般的收银软件都没法通过USB打印机控制钱箱 只能通过串口 或者并口打印机来控制钱箱 百度答案

[linghengmao]

如果是串口或并口打印机，貌似不用安装打印机的驱动，但USB口的打印机，要安装驱动才可以的。

[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'; {关键，数据类型必须是RAW，这样打印机通过驱动程序才能识别ZPL语言} 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; 前提是要将打印机设为默认打印机

[孤独de猫]

你要看看这个USB钱箱 的SDK