Перейти из форума на сайт.


Система IP-видеонаблюдения "Линия". Скачать бесплатную демо-версию для 16 камер. НовостиФайловые архивы
ПоискАктивные темыТоп лист
ПравилаКто в on-line?
Вход Забыли пароль? Первый раз на этом сайте? Регистрация
Компьютерный форум Ru.Board » Компьютеры » Прикладное программирование » Драйвер1СУстройстваВводаNative как с этим работать?

Модерирует : ShIvADeSt

 Версия для печати • ПодписатьсяДобавить в закладки

Открыть новую тему     Написать ответ в эту тему

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");
 
и возвращает в МенеджерОборудованияКлиент в Процедура НачатьПодключениеОборудования
 

 
все это проходит без ошибок и все путем, а куда делось ОбъектДрайвера.ИмяСобытия="процедураОбработкиСобытия"?
 
В оригинальной конфе объект уходит:
НовоеПодключение.ОбъектДрайвера = ОбъектДрайвера;
глПодключаемоеОборудование.ПараметрыПодключенияПО.Добавить(НовоеПодключение);
 
 
 
Собственно как добится чтоб форма реагировала на считывание штрихкода и запускала Процедура ВнешнееСобытие(Источник, Событие, Данные)?

Всего записей: 12 | Зарегистр. 16-03-2010 | Отправлено: 11:58 07-02-2018
Открыть новую тему     Написать ответ в эту тему

Компьютерный форум Ru.Board » Компьютеры » Прикладное программирование » Драйвер1СУстройстваВводаNative как с этим работать?

Имя:
Пароль:
Сообщение

Для вставки имени, кликните на нем.

Опции сообщенияДобавить свою подпись
Подписаться на получение ответов по e-mail
Добавить тему в личные закладки
Разрешить смайлики?
Запретить коды


Реклама на форуме Ru.Board.

Powered by Ikonboard "v2.1.7b" © 2000 Ikonboard.com
Modified by Ru.Board
© Ru.Board 2000-2018

BitCoin: 1NGG1chHtUvrtEqjeerQCKDMUi6S6CG4iC

Рейтинг.ru