Работа с OMRON FQ-CR1 по сети из программы на Delphi

Пример использования на GitHub

OMRON FQ-CR1 – считыватель двумерных и трехмерных штрих-кодов. Поддерживает такие форматы как QR Code, MicroQR Code, PDF417, MicroPDF417, GS1-Data Matrix и др.

В данной статье будет описана программа и модуль для работы с OMRON FQ-CR1 по сети Ethernet. Спецификации функций доступа взяты из этой инструкции. Реализован следующий набор команд:

VERGET/H – получение информации о модели сенсора;
ERRGET – получение кода последней ошибки датчика;
RESET – перезапуск датчика;
MEASURE – запуск одноразового сканирования;
MEASURE/C – запуск непрерывного сканирования;
MEASURE/E – остановка непрерывного сканирования;
CLRMEAS – очистка считанных значений.

OmronFQ_CR1.pas

OmronFQ_CR1.pas на GitHub

TOmronFQ_CR1Thread

Весь основной код работы с датчиком содержится в модуле OmronFQ_CR1.pas. Непосредственная связь с прибором реализована в отдельном потоке TOmronFQ_CR1Thread, который является наследником класс TKRThread. Объект потока TOmronFQ_CR1Thread создается в классе TOmronFQ_CR1 и напрямую с ним работать нет необходимости. Но нужно учитывать тот факт, что весь функционал подключения к датчику, отправке запросов и обработке ответов прописан в данном классе.

TOmronFQ_CR1

Для работы с FQ-CR1 нужно создать объект класса TOmronFQ_CR1 и настроить его

  // создание объекта TOmronFQ_CR1
  fb2:=TOmronFQ_CR1.Create;
  // установка адреса устройства
  fb2.Addr:='192.168.1.2'; 
  // порт устройства
  fb2.Port:=9876; 
  // таймаут подключения
  fb2.ConnectTimeout:=1000;
  // время переподключения. То есть через каждые 5 сек будем 
  // пробовать переподключаться, пока соединение не установится
  fb2.ReconnectTime:=5000;
  // Таймаут ожидания ответа
  fb2.ReadTimeout:=1000; 
  // Период опроса кода последней ошибки. Код последней ошибки будет мониториться 
  // постоянно с указанным периодом. Данный запрос, также помогает контролировать 
  // состояние коннекта
  fb2.ErrGetTime:=1000; 
  // событие, возникающее при считывании кода в неприрывном режиме
  fb2.OnMeasurementValue:=getCode;  
  // событие, возникающее при изменении состояния подключения к устройству
  fb2.OnConnectionStatus:=ConnectionStatus; 
  // событие, возникающее при изменении кода последней ошибки
  fb2.OnErr:=OnErr;

Далее нужно активировать объект

  // Активация запускает поток TOmronFQ_CR1Thread, который пытается установить 
  // связь с прибором. При обрыве связи, поток будет пытаться ее возобновить 
  // с периодом указанным в свойстве ReconnectTime
  fb2.Active:=true;

Состояние связи можно мониторить с помощь события OnConnectionStatus

procedure TForm1.ConnectionStatus(Sender: TObject;
  AStatus: TSchemeDeviceConnStat; AReconnectTime: Cardinal);
begin
    case AStatus of
      sdstNotActive: StatusBar1.Panels[0].text:='Не активен';
      sdstDisconnected: StatusBar1.Panels[0].text:='Отключен';
      sdstConnecting: StatusBar1.Panels[0].text:='Подключение...';
      sdstWaitReconnecting: StatusBar1.Panels[0].text:=
        'Переподключение '+IntToStr(TSchemeItem(Sender).calcReconnectTime(AReconnectTime) div 1000)+'с...';
      sdstConnected: StatusBar1.Panels[0].text:='Подключен';
    end;
end;

После установки соединения запускается циклический опрос кода последней ошибки с периодом указанным в свойстве ErrGetTime. Один раз после установки связи и каждый раз после изменения кода ошибки вызывается событие OnErr. В коде ниже отображается текст текущей ошибки сенсора или если ошибки нет, отправляется запрос получения модели сенсора(команда VERGET/H) и прописывается в статус

procedure TForm1.OnErr(ASender: TObject);
var
  s: String;
begin
  s:=TOmronFQ_CR1(ASender).Err;
  if s='00000000' then begin // нет ошибки
    s:=TOmronFQ_CR1(ASender).SensorModel;
    if s='' then StatusBar1.Panels[0].text:='Подключен'
    else StatusBar1.Panels[0].text:=s;
  end else if s='01040302' then StatusBar1.Panels[0].text:='Ошибка ввода TRIG'
  else if s='11020900' then StatusBar1.Panels[0].text:='Ошибка ввода IN'
  else if s='01030800' then StatusBar1.Panels[0].text:='Ошибка данных сцены'
  else if(s='02160702')or(s='02160703')then StatusBar1.Panels[0].text:='Ошибка регистрации'
  else StatusBar1.Panels[0].text:='Неизвестная ошибка';
end;

Перезапуск сенсора (команда RESET) выполняется процедурой Reset

fb2.Reset;

Команда одноразового считывания(MEASURE) выполняется следующим образом

  // в переменную s передается полученный код
  if fb2.ExecuteMeasurement(s) then begin // код успешно считан
    statExecuteMeasurement.Text:='OK';
    ExecuteMeasurementValue.Text:=s;
  end else // не удалось считать код
    statExecuteMeasurement.Text:='ERROR';

Запуск непрерывного сканирования (команда MEASURE/C)

  if fb2.StartMeasurements then // Считывание запущено
    statStartMeasurements.Text:='OK'
  else // не удалось запустить непрерывное считывание
    statStartMeasurements.Text:='ERROR';

Результат непрерывного считывания приходит по событию OnMeasurementValue

Остановка непрерывного сканирования (команда MEASURE/E)

  if fb2.StopMeasurements then // Непрерывное считывание остановлено
    statStopMeasurements.Text:='OK'
  else // не удалось остановить непрерывное считывание
    statStopMeasurements.Text:='ERROR';

Очистка считанных значений (команда CLRMEAS)

  if fb2.ClearMeasurements then // значения очищены
    statClearMeasurement.Text:='OK'
  else // не удалось выполнить команду
    statClearMeasurement.Text:='ERROR';

Скачать:

Тестовая программа для работы со считывателем штрих-кодов Omron FQ-CR1

Вход

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

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

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

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

Работа с OMRON FQ-CR1 по сети из программы на Delphi

OmronFQ_CR1.pas

TOmronFQ_CR1Thread

TOmronFQ_CR1

Скачать:

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

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

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