Форум программистов
 
Расширенный поиск
Контакты: о проблемах с регистрацией, почтой и по другим вопросам пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail.

Вернуться   Форум программистов > Delphi > Компоненты Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail



Ответ
 
Опции темы
Старый 03.09.2017, 14:03   #1
kraw2
Пользователь
 
Регистрация: 19.02.2008
Сообщений: 23
Репутация: 10
По умолчанию Не срабатывает внешнее событие

Здравствуйте уважаемые мастера.
Компонент 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;


Последний раз редактировалось Аватар; 03.09.2017 в 15:18.
kraw2 вне форума   Ответить с цитированием
Старый 03.09.2017, 23:54   #2
Sciv
Профессионал
 
Аватар для Sciv
 
Регистрация: 16.05.2012
Адрес: Курган
Сообщений: 3,102
Репутация: 1172
По умолчанию

Может, программе тупо прав доступа недостаёт? Пробовали её из-под администратора запустить?
__________________
Начал решать проблему с помощью регулярных выражений. Теперь решаю две проблемы...
Sciv вне форума   Ответить с цитированием
Старый 04.09.2017, 02:14   #3
Black Fregat
Программист
Участник клуба
 
Аватар для Black Fregat
 
Регистрация: 23.06.2009
Сообщений: 631
Репутация: 484
По умолчанию

А проверьте для начала, действительно ли DeviceEnabled установилось в True
Black Fregat вне форума   Ответить с цитированием
Старый 04.09.2017, 15:36   #4
kraw2
Пользователь
 
Регистрация: 19.02.2008
Сообщений: 23
Репутация: 10
По умолчанию

Спасибо за участие. Устройство DeviceEnabled в True. Вхожу через администратора, но событие не возникает при считывании штрихкода. Подцепил к 1с 8.15 - работает. А в делфях нет. Не могу понять причину. Может драйвер АТОЛ взять старый? Какой нить версии 3. У кого есть поделитесь, пожалуйста.
kraw2 вне форума   Ответить с цитированием
Ответ



Опции темы

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход

Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Не срабатывает событие JButton Elenik Общие вопросы по Java, Java SE, Kotlin 1 18.08.2016 12:09
Не срабатывает событие OnActivate Smitt&Wesson C++ Builder 8 03.09.2015 09:01
Com порт - не могу получить данные. Не срабатывает событие DataReceived nastya_nlo C# (си шарп) 15 26.01.2015 22:36
Не всегда срабатывает событие (Event) Antony41 БД в Delphi 4 24.11.2014 17:57
Не срабатывает событие OnMouseWheel Хамяг Общие вопросы Delphi 2 24.05.2011 16:27




00:47.


Powered by vBulletin® Version 3.8.8 Beta 2
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.

купить трафик


как улучшить посещаемость, а также решения по монетизации сайтов, видео и приложений

RusProfile.ru


Справочник российских юридических лиц и организаций.
Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru