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

发布时间：2020-12-15 09:32:17 所属栏目：大数据来源：网络整理

导读：如何使用Delphi将文本命令发送到连接在USB端口的打印机？我有一台Zebra TLP2844打印机,想要编程与它直接通信. 解决方法使用WinAPI函数 Escape ,将Printer.Canvas.Handle作为第一个参数传递给它,将PASSTHROUGH作为nEscape参数传递给它. var YourCommand: St

如何使用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以准备打印机驱动程序以接收内容.

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!