Пример приложения написанного на Delphi, работающего с кассовыми аппаратами с протоколом EQL.
Данное приложение предназначено для демонстрации возможностей работы с кассовыми аппаратами через протокол EQL. В частности демонстрируется:
- создание соединения с кассовым аппаратом через ADO
- получение из кассы электронной чековой ленты
- программирование товаров в кассу
- работа с кассовым аппаратом в режиме фискального принтера и вызов процедур кассового аппарата через интерфейсы автоматизации
- получение из кассы идентифицирующей информации
Выкачать архив с исходными файлами и исполняемым модулем Вы
можете здесь:
- проект для Delphi 5: edd.zip (файл обновлен 10 июня 2003 г.)
- проект для Delphi 6: edd6.rar (файл обновлен 7 июня 2006 г.)
Для работы программы необходимо установить на компьютер системное ПО EQL и настроить параметры кассовой сети.
Для написания и тестирования программы использовалась среда Delphi 5.0, однако использовались только стандартные компоненты VCL. Поэтому с минимальными изменениями программу можно компилировать и в более ранних версиях Delphi.
В проекте используется файл HcTLB_TLB.pas. Этот файл генерируется средой Delphi в полуавтоматическом режиме из файла hctlb.tlb. Файл hctlb.tlb устанавливается инсталлятором системного ПО EQL. Для того, чтобы сгенерировать файл HcTLB_TLB.pas откройте среду Delphi, выберите пункт «Import Type Library» в меню «Project». В появившемся списке выберите «Help Co Common Cash Register Interfaces (Version 3.0)» и нажмите кнопку «Create Unit».
В следующей таблице приведено расположение и назначение основных процедур демонстрации:
|
Назначение |
Исходный файл |
Имена процедур |
|
Создание соединения с кассовым аппаратом через ADO |
Main.pas |
Button1Click, Connect, |
|
ConnectionParams.pas |
Весь файл |
|
|
Получение из кассы электронной чековой ленты |
Main.pas |
Button2Click, txtCheckLine |
|
Программирование товаров в кассу |
Main.pas |
Button3Click |
|
NewItem.pas |
Весь файл |
|
|
Работа с кассовым аппаратом в режиме фискального принтера и вызов процедур кассового аппарата через интерфейсы автоматизации |
Main.pas |
Button4Click |
|
ItfProc.pas |
Весь файл |
|
|
Получение из кассы идентифицирующей информации |
Main.pas |
Button5Click |