ESC/POS 命令应答答案

【问题标题】：ESC/POS Command AnswerESC/POS 命令应答
【发布时间】：2015-05-15 12:40:55
【问题描述】：

早上好，

我正在开发一个自助服务终端应用程序。在该应用程序中，我需要使用ESC/POS 协议向打印机发送一些命令。

我有一些命令可以提供有关打印机的信息（打印机状态、纸张结束状态）。对于发送命令，我使用this function，但我还需要阅读打印机回复。我该怎么做？（打印机以USB 模式连接）。

我正在delphi xe2上开发

谢谢

【问题讨论】：

【解决方案1】：

该示例假设您的字符串类型很简单，例如shortstring。尝试将s 声明为shortstring。它不能与widestring 或unicode 一起使用。

【讨论】：

程序戳记（s：短字符串）；类型 TPassThroughData = 记录 nLen：整数；数据：字节数组[0 .. 255]；结尾; var PTBlock: TPassThroughData; PTReply: TPassThroughData;开始打印机.BeginDoc; PTBlock.nLen := 长度； StrPCopy(@PTBlock.Data, s); Escape(Printer.Handle, PASSTHROUGH, 0, @PTBlock, @PTReply);打印机.EndDoc;结尾;有所改变，但没有任何改变......

【解决方案2】：

您是否检查过 USB 连接是否产生了新的串行端口？

如果设备管理器中显示一个新的串口，我可以帮助你发送带有Delphi Comport组件的ESC命令。

但是如果没有显示串口，我不知道如何控制热敏打印机。

【讨论】：