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