如何使用 Delphi 向 USB 端口中连接的打印机发送文本命令?
我有一台 Zebra TLP2844 打印机,并想对其进行直接通信。
如何使用 Delphi 向 USB 端口中连接的打印机发送文本命令?
我有一台 Zebra TLP2844 打印机,并想对其进行直接通信。
您使用 WinAPI 函数Escape
,将其作为Printer.Canvas.Handle
第一个参数和参数传递。PASSTHROUGH
nEscape
var
YourCommand: String;
begin
YourComamnd := 'Your command here';
if Escape(Printer.Canvas.Handle,
PASSTHROUGH,
Length(YourCommand),
PChar(YourCommand),
nil) <> 0 then
// Handle return value (listed in docs link above)
else
// send next command
Escape
在Windows
单元中定义。请注意,您必须Printer.StartPage
在使用此功能之前调用,以准备打印机驱动程序以接收内容。