ESC/POS Ответ команды

Доброе утро,ESC/POS Ответ команды

Я разрабатываю приложение для киоска. В этом приложении мне нужно отправить некоторые команды на принтер с протоколом ESC/POS.

У меня есть некоторые команды, которые дают мне информацию о принтере (состояние принтера, состояние конца бумаги). Для отправки команды я использую this function, но мне также нужно прочитать ответ принтера. Как я могу это сделать? (Принтер подключен в режиме USB).

Я разрабатываю на Delphi XE2

Благодарности

источник

2015-05-15 dvdan

Похоже, что последний параметр [Escape] (https://msdn.microsoft.com/en-us/library/windows/desktop/dd162701%28v=vs.85%29.aspx) должен быть указателем на структура данных (нуль в связанном примере) для получения вывода. –

@TOndrej спасибо, но я не так структурирован в delphi lpvOutData .. Я пробовал как TPassThroughData примера, но без успеха. – dvdan

Добро пожаловать. Структура, вероятно, зависит от принтера и должна быть описана в ее документации. –

пример предполагает, что ваш тип строка просто, такие как shortstring. Попробуйте объявить s как shortstring. Он не может работать с widestring или unicode.

источник

2015-05-15 14:36:01

процедура stampa (s: shortstring); тип TPassThroughData = запись nLen: целое; Данные: массив [0 .. 255] байта; конец; var PTBlock: TPassThroughData; PTReply: TPassThroughData; начало Printer.BeginDoc; PTBlock.nLen: = Длина (ы); StrPCopy (@ PTBlock.Data, s); Escape (Printer.Handle, PASSTHROUGH, 0, @PTBlock, @PTReply); Printer.EndDoc; конец; Что-то изменилось, но ничего не изменилось ... – dvdan

ESC/POS Ответ команды

ответ

Смежные вопросы