1С Подключение сканера штрихкодов (ScanOpos.dll)

Перем ОбъектДрайвер; Процедура КнопкаВыполнитьНажатие(Кнопка) ОбъектДрайвер.Занять(1); КонецПроцедуры Процедура ПриОткрытии() ПутьКДрайверу = "C:Program Files (x86)1C1C Barcode scanner8_1_6_1ScanOPOS.dll"; Попытка ЗагрузитьВнешнююКомпоненту(ПутьКДрайверу); ОбъектДрайвер = Новый("AddIn.Scanner"); ОбъектДрайвер.Open(1); ОбъектДрайвер.ИмяСобытия = "BarCodeValue"; ОбъектДрайвер.ОчиститьВход(); ОбъектДрайвер.ОчиститьВыход(); ОбъектДрайвер.АвтоВыключение = 0; ОбъектДрайвер.ПосылкаДанных = 1; ОбъектДрайвер.УстройствоВключено = 1; ОбъектДрайвер.ЗапрещениеСобытий = 0; ОбъектДрайвер.Порт = 4; ОбъектДрайвер.СтопБит = 1; ОбъектДрайвер.БитДанных = 8; ОбъектДрайвер.Скорость = 9600; Исключение Сообщить("Не удалось подключить сканер"); КонецПопытки; КонецПроцедуры Процедура ОсновныеДействияФормыТестУстройства(Кнопка) ОбъектДрайвер.ТестУстройства(); КонецПроцедуры Процедура ВнешнееСобытие(Источник, Событие, Данные) Сообщить(Данные) КонецПроцедуры #1сШтрихкод #ПодключитьСканерШтрихкода1С #ЭлуляторСОМПорта