v7: Работа с COM

А вот процедура в модуле формы, где нужен сканер:
Процедура ОбработкаВнешнегоСобытия(Источник,Событие,Данные)
    Если Событие= "BarCodeValue" Тогда
        ШкАМ = СокрЛП(Данные);
        Сообщить(ШкАМ);
        // А тут, можем делать с полученным ШК, что хотим...
    КонецЕсли;
    Попытка
        Сканер.ПосылкаДанных = 1;
    Исключение
        Сообщить("Сканер не подключен!");
    КонецПопытки;
КонецПроцедуры

В глобальном модуле объявить экспортную переменную: Перем Сканер Экспорт;
и разместить в процедуре ПриНачалеРаботыСистемы() вызов функции ПодключитьСканер():

Функция ПодключитьСканер()
    Рез = 0;
    Если ЗагрузитьВнешнююКомпоненту("ScanOpos.dll") = 0 Тогда
        ОписаниеРезультата = "Не удалось загрузить внешнюю компоненту ScanOpos.dll !";
    Иначе
        Попытка
            Сканер = СоздатьОбъект("AddIn.Scanner");
        Исключение
        КонецПопытки;
        Если ПустоеЗначение(Сканер) = 1 Тогда
            ОписаниеРезультата = "Не удалось создать объект внешней компоненты с программым идентификатром AddIn.Scanner";
        Иначе
            Если Сканер.УстройствоВключено = 1 Тогда
                Рез = 1;
            Иначе
                Если Сканер.Подсоединить("Scanner") <> 0 Тогда
                    ОписаниеРезультата = "Не удалось подсоединить устройство";
                Иначе
                    Если Сканер.Занять(1) <> 0 Тогда
                        ОписаниеРезультата = "Не удалось получить монопольный доступ у устройству";
                    Иначе
                        Сканер.УстройствоВключено = 1;
                        Если Сканер.Результат <> 0 Тогда
                            ОписаниеРезультата = "Не удалось включить устройство";
                        Иначе
                            Рез    = 1;
                        КонецЕсли;
                    КонецЕсли;
                КонецЕсли;
            КонецЕсли;
        КонецЕсли;
    КонецЕсли;
    Если Рез = 1 Тогда
        // очищаем буфер компоненты
        Сканер.ОчиститьВход();
        Сканер.ОчиститьВыход();
        // включаем режим немедленной посылки данных
        Сканер.ПосылкаДанных = 1;
    КонецЕсли;
    Возврат Рез;
КонецФункции  // Подключить(()

Правда, это под 1С ScanoPos, но, это не принципиально, под АТОЛ примерно то-же, просто под рукой было только под 1С.
Я АТОЛовской компонентой практически не пользуюсь, обхожусь 1Совской, но если решите все-таки использовать ВК от АТОЛ - то нужно версию не старше 6.хх(вроде, 6.24), иначе они за нее денег хотят, и более старшие версии, без ключа защиты или программной лицензии, вызывают задержку при сканировании, что-то около секунды или даже больше.