Подключение сканера штрих кода к управляемым формам (тонкий клиент).
Добрый день!
Пытаюсь разобраться с подключением сканера штрих кода к управляемым формам (тонкий клиент). Сканер работает в режиме эмуляции клавиатуры.
Смотрел, как это сделано в типовых конфигурациях.
Зарегистрировал dll компоненту в операционной системе.
Создал пустую конфигурацию. В модуле управляемого приложения создал переменную для хранения Объекта драйвера:
Создал обработку. В событии форы При открытии написал код:
Проверяю событие Внешнее событие. Не срабатывает. Форма управляемая.
Уважаемые Знатоки подскажите пожалуйста, в чем ошибка.
Пытаюсь разобраться с подключением сканера штрих кода к управляемым формам (тонкий клиент). Сканер работает в режиме эмуляции клавиатуры.
Смотрел, как это сделано в типовых конфигурациях.
Зарегистрировал dll компоненту в операционной системе.
Создал пустую конфигурацию. В модуле управляемого приложения создал переменную для хранения Объекта драйвера:
Перем ОбъектДрайвера Экспорт;
Создал обработку. В событии форы При открытии написал код:
&НаКлиенте
Процедура ПриОткрытии(Отказ)
ProgID = "AddIn.Scaner45";
ПодключитьВнешнююКомпоненту(ProgID);
ОбъектДрайвера = Новый (ProgID);
ОбъектДрайвера.ДобавитьУстройство();
ОбъектДрайвера.АвтоВыключение = 0;
ОбъектДрайвера.БитыДанных = 3;
ОбъектДрайвера.БлокироватьУстройства = 0;
ОбъектДрайвера.НомерПорта = 100;
ОбъектДрайвера.Префикс = "";
ОбъектДрайвера.СкоростьОбмена = 7;
ОбъектДрайвера.СтопБиты = 0;
ОбъектДрайвера.СтопФлаг = 0;
ОбъектДрайвера.Суффикс = "#13";
ОбъектДрайвера.УстройствоВключено=1;
ОбъектДрайвера.УстройствоВключеноПриCтарте=1;
ОбъектДрайвера.Четность =0;
ОбъектДрайвера.Чувствительность = 60;
КонецПроцедуры
ПоказатьПроверяю событие Внешнее событие. Не срабатывает. Форма управляемая.
Уважаемые Знатоки подскажите пожалуйста, в чем ошибка.
Прикрепленные файлы:
Сканер.cf
Scaner1C.dll
По теме из базы знаний
- Подключение онлайн касс (ФЗ-54) к старой 1С конфигурации УТ 10.2. Описание и реализация проекта
- Simple UI: простой конструктор мобильных приложений для устройств на Android. Обновление от 04.03.24 - упрощенный Python
- Списание кодов маркировки, нанесенных на обувь
- Обзор полезных методов БСП 3.1.4
- Пример проверки раскладки клавиатуры (Wscript, управляемые формы, внешняя обработка)
Найденные решения
Большое спасибо! Помогло.
Переписал:
Переписал:
&НаКлиенте
Процедура ПриОткрытии(Отказ)
ProgID = "AddIn.Scaner45";
ПодключитьВнешнююКомпоненту(ProgID);
ОбъектДрайвера = Новый (ProgID);
ОбъектДрайвера.ДобавитьУстройство();
ОбъектДрайвера.АвтоВыключение = 0;
ОбъектДрайвера.БитыДанных = 3;
ОбъектДрайвера.БлокироватьУстройства = 0;
ОбъектДрайвера.НомерПорта = 100;
ОбъектДрайвера.Префикс = "";
ОбъектДрайвера.СкоростьОбмена = 7;
ОбъектДрайвера.СтопБиты = 0;
ОбъектДрайвера.СтопФлаг = 0;
ОбъектДрайвера.Суффикс = "#13";
ОбъектДрайвера.УстройствоВключено=0;
ОбъектДрайвера.УстройствоВключеноПриCтарте=0;
ОбъектДрайвера.Четность =0;
ОбъектДрайвера.Чувствительность = 60;
ОбъектДрайвера.АвтоВыключение = 0;
ОбъектДрайвера.OldVersion = 1;
ОбъектДрайвера.ПосылкаДанных = 1;
КонецПроцедуры
ПоказатьОстальные ответы
Подписаться на ответы
Инфостарт бот
Сортировка:
Древо развёрнутое
Свернуть все
Сканер работает в режиме эмуляции клавиатуры. Последним символом является перевод строки.
В блокноте работает. В конфигурации УНФ работает.
Если скопировать модули из УНФ в пустую конфигурацию, то работает.
Вопрос, хочу разобраться в механизме работы.
Создал пустую конфигурацию. Создал форму, задал параметры подключения те же, что и в стандартной конфигурации.
Событие Внешнее событие не срабатывает.
Я выложил файл конфигурации и dll (Атоловский драйвер).
Пожалуйста, у кого есть время, посмотрите в чем причина.
В блокноте работает. В конфигурации УНФ работает.
Если скопировать модули из УНФ в пустую конфигурацию, то работает.
Вопрос, хочу разобраться в механизме работы.
Создал пустую конфигурацию. Создал форму, задал параметры подключения те же, что и в стандартной конфигурации.
Событие Внешнее событие не срабатывает.
Я выложил файл конфигурации и dll (Атоловский драйвер).
Пожалуйста, у кого есть время, посмотрите в чем причина.
Большое спасибо! Помогло.
Переписал:
Переписал:
&НаКлиенте
Процедура ПриОткрытии(Отказ)
ProgID = "AddIn.Scaner45";
ПодключитьВнешнююКомпоненту(ProgID);
ОбъектДрайвера = Новый (ProgID);
ОбъектДрайвера.ДобавитьУстройство();
ОбъектДрайвера.АвтоВыключение = 0;
ОбъектДрайвера.БитыДанных = 3;
ОбъектДрайвера.БлокироватьУстройства = 0;
ОбъектДрайвера.НомерПорта = 100;
ОбъектДрайвера.Префикс = "";
ОбъектДрайвера.СкоростьОбмена = 7;
ОбъектДрайвера.СтопБиты = 0;
ОбъектДрайвера.СтопФлаг = 0;
ОбъектДрайвера.Суффикс = "#13";
ОбъектДрайвера.УстройствоВключено=0;
ОбъектДрайвера.УстройствоВключеноПриCтарте=0;
ОбъектДрайвера.Четность =0;
ОбъектДрайвера.Чувствительность = 60;
ОбъектДрайвера.АвтоВыключение = 0;
ОбъектДрайвера.OldVersion = 1;
ОбъектДрайвера.ПосылкаДанных = 1;
КонецПроцедуры
Показать
Для получения уведомлений об ответах подключите телеграм бот:
Инфостарт бот