Управление термотрансферным принтером Domino V-series из Delphi

Domino V-series - термотрансферные принтеры Domino V-series предназначены для печати на пленочных материалах.

В данной статье будет описана программа и модуль для работы с принтером Domino V-series по сети Ethernet. Спецификации протокола связи взяты из этой инструкции. С помощью разработанного мной модуля можно выполнить любую функцию из представленной инструкции, но в результате получается не обработанный текстовый ответ устройства, что демонстрируется в тестовой программе. А также есть набор функций обработка, которых реализована полностью

RequestStatus – получении общей информации о принтере и его состоянии;
PrintDesign – печать дизайна из указанного файла;
CancelPrint – отмена печати;
FillSerialVar – установка значения в последовательную переменную;
PollSerialVar – получение значения последовательной переменной;
AckError – квитирование ошибки;
AckNonCriticalError – квитирование не критической ошибки.

DominoVSeries.pas

DominoVSeries.pas на GitHub

Весь функционал работы с принтером описан в классе TDominoVSeries. Связь осуществляется при помощи класса TKRTCPConnector.

Для начала работы нужно создать объект от TDominoVSeries и настроить его

  printer:=TDominoVSeries.Create(self);
  // установка адреса устройства
  printer.IP:='192.168.1.98';
  // порт устройства
  printer.Port:=9100;
  // таймаут подключения
  printer.Connector.ConnectTimeout:=2000;
  // таймаут отправки данных
  printer.Connector.WriteTimeout:=500;
  // таймаут получения ответа от устройства
  printer.Connector.ReadTimeout:=500;
  // Интервал запроса статуса устройства
  // Для поддержания связи и мониторинга общей информации о принтере
  // с указанным периодом отправляется команда RequestStatus
  printer.StatInterval:=2000;
  // Событие, которое генерируется при первом получении имени устройства.
  // Также имя можно получить из свойства PrintName.
  // Имя приходит в ответе на команду RequestStatus, а событие
  // генерируется только если пришедшее имя не равно значению из свойства PrintName
  printer.OnPrintName:=printName;
  // Событие, которое генерируется при изменении количества печати.
  // Также это значение можно получить из свойства PrintCount.
  // Приходит в ответе на команду RequestStatus
  printer.OnPrintCount:=printCount;
  // Событие, которое генерируется при изменении кода статуса принтера.
  // Также информацию о статусе можно получить из свойств Status и StatusDescr.
  // Приходит в ответе на команду RequestStatus
  printer.OnStatus:=status;
  // Событие, которое генерируется при изменении кода ошибки принтера.
  // Также информацию о ошибки можно получить из свойств Error и ErrorDescr.
  // Приходит в ответе на команду RequestStatus
  printer.OnError:=error;
  // Событие, которое генерируется при изменении кода предупреждения.
  // Также информацию о предупреждении можно получить из свойств Warning и WarningDescr.
  // Приходит в ответе на команду RequestStatus
  printer.OnWarning:=warning;

Для выполнения команды PrintDesign, нужно вызвать соответствующую функцию. Функция выполняются в сблокированном режиме. То есть, вызов PrintDesign остановит процесс до обработки запроса, но при этом не заблокирует основной поток.

  // ВХОДЯЩИЕ ДАННЫЕ:
  // AFileNam – имя файла с дизайном печати
  // APrintCount – количество копий
  // AMessageStoreID – идентификатор хранилища сообщений
  // ИСХОДЯЩИЕ ДАННЫЕ:
  // Функция возвратит True, если команда была успешно отправлена и был получен ответ
  // StartedOk – сигнализирует о начале печати
  // SavedOk – сигнализирует о сохранении печати
  // ContainPrompths – сигнализирует о том, что в ответе присутствуют поля с подсказками
	
  function PrintDesign(AFileName: String; APrintCount: Cardinal; AMessageStoreID: byte;
      out StartedOk: boolean; out SavedOk: boolean; out ContainPrompths: boolean): boolean;

Процедура CancelPrint отправляет соответствующую команду принтеру

  // ARestartPrint – если установить True, то принтер будет перезагружен
  procedure CancelPrint(ARestartPrint: boolean);

Для работы с последовательными переменными используются две процедуры

  // Получение значения последовательной переменной
  // AVarName – имя переменной
  // ИСХОДЯЩИЕ ДАННЫЕ:
  // Функция возвратит True, если команда была успешно отправлена и был получен ответ
  // isActive – сигнализирует о активности переменной
  // BufferSize – размер буфера
  
  function PollSerialVar(AVarName: String; out isActive: boolean; out BufferSize: cardinal): boolean;

  // Установка значения последовательной переменной
  // AVarName – имя переменной
  // AValue - значение
  
  procedure FillSerialVar(AVarName, AValue: String);

И еще реализованы две команды для квитировани(подтверждения) ошибок

  // Квитирование ошибки
  procedure AckError;
	
  // Квитирование не кретической ошибки
  procedure AckNonCriticalError;

Набор удаленных команд принтера довольно широкий. И принцип формирования запроса общий для всех команд. Поэтому в тестовой программе я сделал возможность выполнить любую команду.

Для выполнения необходимой команды, в нижней части формы, в поле «Command» нужно прописать имя команды

Отправка команд принтеру Domino V-series

Если для выполнения команды нужны дополнительные поля, то они добавляются при помощи дополнительной формы, которая вызывается кнопкой «Add». Кнопка «Clear» очищает список дополнительных полей.

В форма «Add Param» нужно указать тип данных поля и необходимое значение

Дополнительные параметры при отправки команд принтеру Domino V-series

Для отправки команды нажимаем кнопку «Send». При успешном выполнении команды в правой части «Answer» появится информация о полученном ответе от принтера.

Скачать:

Тестовая программа для управление термотрансферным принтером Domino V-series

Вход

Комментировать

Вначале новые

Всего комментариев:

Поиск по сайту

Управление термотрансферным принтером Domino V-series из Delphi

DominoVSeries.pas

Скачать:

Новости сайта

Популярные статьи

Популярные загрузки