orskavto
Newbie | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Код:
//Подключаем Внешнюю компаненту
Подключена = ПодключитьВнешнююКомпоненту("ОбщийМакет.Драйвер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");
и возвращает в МенеджерОборудованияКлиент в Процедура НачатьПодключениеОборудования
|
все это проходит без ошибок и все путем, а куда делось ОбъектДрайвера.ИмяСобытия="процедураОбработкиСобытия"?
В оригинальной конфе объект уходит:
НовоеПодключение.ОбъектДрайвера = ОбъектДрайвера;
глПодключаемоеОборудование.ПараметрыПодключенияПО.Добавить(НовоеПодключение);
Собственно как добится чтоб форма реагировала на считывание штрихкода и запускала Процедура ВнешнееСобытие(Источник, Событие, Данные)? |
