|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Не срабатывает внешнее событие
Здравствуйте уважаемые мастера.
Компонент Scaner45. Создал из драйвера АТОЛ:Драйвер устройств ввода(версия 5.7) у него не срабатывает внешнее событие DataEvent (оно одно), хотя если открывать сканер через поиск оборудования в ShowProperties, то штрихкод считывается без проблем. В чем дело понять не могу. Сканер подключен через USB-COM в Диспетчере устройств: Prolific USB-to-Central COM Port (COM8) Код:
procedure TForm1.UpdateForm; begin fScaner.DeviceEnabled:=True; fScaner.DataEventEnabled:=True; fScaner.AutoDisable:=False; end; procedure TForm1.FormCreate(Sender: TObject); begin Memo1.Lines.Clear; UpdateForm; end; procedure TForm1.btnShowPropertiesClick(Sender: TObject); begin fScaner.DeviceEnabled:=False; fScaner.ShowProperties; UpdateForm; end; procedure TForm1.fScanerDataEvent(Sender: TObject); begin with Memo1.Lines do begin BeginUpdate; try Add('ScanData: ' + fScaner.ScanData); Add('DeviceDescription: ' + fScaner.DeviceDescription); Add('COM'+ IntToStr(fScaner.PortNumber)); Add('EventNumber: ' + IntToStr(fScaner.EventNumber)); Add('DeviceName: ' + fScaner.CurrentDeviceName); finally EndUpdate; end; end; fScaner.DeleteEvent; end; Последний раз редактировалось Admin, 03.09.2017 в 14:46. |