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

```1c
    Перем ОбъектДрайвера Экспорт;
```

Создал обработку. В событии форы При открытии написал код:

```1c
    &НаКлиенте
    Процедура ПриОткрытии(Отказ)
    ProgID = "AddIn.Scaner45";
    ПодключитьВнешнююКомпоненту(ProgID);
    ОбъектДрайвера = Новый (ProgID);

    ОбъектДрайвера.ДобавитьУстройство();

    ОбъектДрайвера.АвтоВыключение = 0;
    ОбъектДрайвера.БитыДанных = 3;
    ОбъектДрайвера.БлокироватьУстройства = 0;
    ОбъектДрайвера.НомерПорта = 100;
    ОбъектДрайвера.Префикс = ";
    ОбъектДрайвера.СкоростьОбмена = 7;
    ОбъектДрайвера.СтопБиты = 0;
    ОбъектДрайвера.СтопФлаг = 0;
    ОбъектДрайвера.Суффикс = "#13";
    ОбъектДрайвера.УстройствоВключено=1;
    ОбъектДрайвера.УстройствоВключеноПриCтарте=1;
    ОбъектДрайвера.Четность =0;
    ОбъектДрайвера.Чувствительность = 60;

    КонецПроцедуры
```

Проверяю событие Внешнее событие. Не срабатывает. Форма управляемая.

Уважаемые Знатоки подскажите пожалуйста, в чем ошибка.
---
Большое спасибо! Помогло.

Переписал:

```1c
    &НаКлиенте
    Процедура ПриОткрытии(Отказ)
    ProgID = "AddIn.Scaner45";
    ПодключитьВнешнююКомпоненту(ProgID);
    ОбъектДрайвера = Новый (ProgID);

    ОбъектДрайвера.ДобавитьУстройство();

    ОбъектДрайвера.АвтоВыключение = 0;
    ОбъектДрайвера.БитыДанных = 3;
    ОбъектДрайвера.БлокироватьУстройства = 0;
    ОбъектДрайвера.НомерПорта = 100;
    ОбъектДрайвера.Префикс = ";
    ОбъектДрайвера.СкоростьОбмена = 7;
    ОбъектДрайвера.СтопБиты = 0;
    ОбъектДрайвера.СтопФлаг = 0;
    ОбъектДрайвера.Суффикс = "#13";
    ОбъектДрайвера.УстройствоВключено=0;
    ОбъектДрайвера.УстройствоВключеноПриCтарте=0;
    ОбъектДрайвера.Четность =0;
    ОбъектДрайвера.Чувствительность = 60;
    ОбъектДрайвера.АвтоВыключение = 0;
    ОбъектДрайвера.OldVersion = 1;
    ОбъектДрайвера.ПосылкаДанных = 1;
    КонецПроцедуры
```
---
ПосылкаДанных не вижу.
ОбъектДрайвера.ПосылкаДанных = 1;
---
Функция ПодключитьВнешнююКомпоненту срабатывает, сохраняется в переменной.
Но, Внешнее событие не срабатывает.

Подскажите, пожалуйста, почему.
---
А просто, без 1С, сканер работает? Можете в блокнот (программа Windows) сканировать штрихкоды?
Для установки драйвера необходимо запустить файл ScanOpos.exe и далее следовать инструкциям на экране.
---
Сканер работает в режиме эмуляции клавиатуры. Последним символом является перевод строки.
В блокноте работает. В конфигурации УНФ работает.
Если скопировать модули из УНФ в пустую конфигурацию, то работает.

Вопрос, хочу разобраться в механизме работы.
Создал пустую конфигурацию. Создал форму, задал параметры подключения те же, что и в стандартной конфигурации.
Событие Внешнее событие не срабатывает.

Я выложил файл конфигурации и dll (Атоловский драйвер).
Пожалуйста, у кого есть время, посмотрите в чем причина.
---
Вот как у меня:
 КомпонентаCipherLabTCP = Новый("AddIn.CCipherLabTCP.CipherLabTCP");
 КомпонентаCipherLabTCP.Подключить()
---
Да, я отслеживаю обработчик внешнего события, но он не срабатывает.
В Конфигураторе я поставил точку остановки в этой процедуре.
---
а процедура ВнешнееСобытие точно прописана как обработчик? В Форме - Свойства - События
---
Dll зарегистрирована в системе. И в соседней конфигурации работает.
---
Да, в свойствах формы создал Внешнее событие.
---
Большое спасибо! Помогло.

Переписал:

```1c
    &НаКлиенте
    Процедура ПриОткрытии(Отказ)
    ProgID = "AddIn.Scaner45";
    ПодключитьВнешнююКомпоненту(ProgID);
    ОбъектДрайвера = Новый (ProgID);

    ОбъектДрайвера.ДобавитьУстройство();

    ОбъектДрайвера.АвтоВыключение = 0;
    ОбъектДрайвера.БитыДанных = 3;
    ОбъектДрайвера.БлокироватьУстройства = 0;
    ОбъектДрайвера.НомерПорта = 100;
    ОбъектДрайвера.Префикс = ";
    ОбъектДрайвера.СкоростьОбмена = 7;
    ОбъектДрайвера.СтопБиты = 0;
    ОбъектДрайвера.СтопФлаг = 0;
    ОбъектДрайвера.Суффикс = "#13";
    ОбъектДрайвера.УстройствоВключено=0;
    ОбъектДрайвера.УстройствоВключеноПриCтарте=0;
    ОбъектДрайвера.Четность =0;
    ОбъектДрайвера.Чувствительность = 60;
    ОбъектДрайвера.АвтоВыключение = 0;
    ОбъектДрайвера.OldVersion = 1;
    ОбъектДрайвера.ПосылкаДанных = 1;
    КонецПроцедуры
```
---
Спасибо организаторам форума!!!
---
Сообщение было скрыто модератором.