Quantcast
Channel: Ru.Board
Viewing all articles
Browse latest Browse all 1251619

Драйвер1СУстройстваВводаNative как с этим работать? (0) / Как использовать драйве Native для сканера штрихкодов

$
0
0
orskavto:

Код:

//Подключаем Внешнюю компаненту

Подключена = ПодключитьВнешнююКомпоненту("ОбщийМакет.Драйвер1СУстройстваВводаNative","Scanner",ТипВнешнейКомпоненты.Native);



//Создаем обьект драйвера
ОбъектДрайвера = Новый ("AddIn.Scanner.InputDevice");

//Создаем структуру с параметрами
Парам=Новый Структура;
Парам.Вставить("Port", 0);
Парам.Вставить("DataBits", 8);
Парам.Вставить("StopBit", 0);
Парам.Вставить("Speed", 9600);
Парам.Вставить("Prefix", -1);
Парам.Вставить("Suffix", 13);
Парам.Вставить("Timeout", 75);
Парам.Вставить("TimeoutCOM", 5);
Парам.Вставить("COMEncoding", "UTF-8");
Парам.Вставить("EquipmentType", "СканерШтрихкода");

//Скармливаем параметры в объекту драйвера
Для Каждого Параметр Из Парам Цикл
ИмяПараметра = Параметр.Ключ;
ЗначениеПараметра = Параметр.Значение;
Попытка
ОбъектДрайвера.УстановитьПараметр(ИмяПараметра, ЗначениеПараметра);
Исключение
//Если не сожрал сообщит что именно не нравится
Сообщить(ИмяПараметра+" ---- "+ЗначениеПараметра);
КонецПопытки;
КонецЦикла;

//Если честно не понятно что именно мы тут делаем возможно это аналог присоединить из ПодключаемоеОборудование1ССканерыШтрихкодаКлиент
Попытка
Результат = ОбъектДрайвера.Подключить("СканерШтрихкода");
Исключение
Результат = Ложь;
КонецПопытки;



Вот тут собственно и все
на этом ПодключаемоеОборудованиеУниверсальныйДрайверКлиент Функция ПодключитьУстройство заканчивает работу с обьектом
Добавляет в выходные параметры
ВыходныеПараметры.Добавить(Строка(ПараметрыПодключения.ИДУстройства));
ВыходныеПараметры.Добавить(Новый Массив());
ВыходныеПараметры[1].Добавить("Штрихкод");
ВыходныеПараметры[1].Добавить("Barcode");

и возвращает в МенеджерОборудованияКлиент в Процедура НачатьПодключениеОборудования


все это проходит без ошибок и все путем, а куда делось ОбъектДрайвера.ИмяСобытия="процедураОбработкиСобытия"?

В оригинальной конфе объект уходит:
НовоеПодключение.ОбъектДрайвера = ОбъектДрайвера;
глПодключаемоеОборудование.ПараметрыПодключенияПО.Добавить(НовоеПодключение);



Собственно как добится чтоб форма реагировала на считывание штрихкода и запускала Процедура ВнешнееСобытие(Источник, Событие, Данные)?

Viewing all articles
Browse latest Browse all 1251619

Trending Articles



<script src="https://jsc.adskeeper.com/r/s/rssing.com.1596347.js" async> </script>