delphi - 在 Delphi 中将数据发送到 USB 打印机

Question

如何使用 Delphi 向 USB 端口中连接的打印机发送文本命令？

我有一台 Zebra TLP2844 打印机，并想对其进行直接通信。

Answer 1

您使用 WinAPI 函数Escape，将其作为Printer.Canvas.Handle第一个参数和参数传递。PASSTHROUGHnEscape

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在使用此功能之前调用，以准备打印机驱动程序以接收内容。