Flexy @ Сегодня, 10:24
,
Спасибо за ответ!!!
Уже разобрался!!!
Если кому интересно
ПутьКДрайверу = "C:\Program Files (x86)\1C\1C Barcode scanner\8_1_6_1\ScanOPOS.dll";
Порт = 4; // 0 - в том случае, если сканер подключается в разрезе клавиатуры, иначе необходимо указать номер используемого com-порта
БитДанных = 8; // возможные значения от 1 до 8 (должно соответствовать настройкам сканера)
Скорость = 9600; // возможные значения: 110, 300, 600, 1200, 2400, 4800, 9600, 14400, 19200, 38400, 56000, 57600, 115200, 128000, 256000 (должно соответствовать настройкам сканера)
Суффикс = "13"; // должно соответствовать настройкам сканера
Попытка
ЗагрузитьВнешнююКомпоненту(ПутьКДрайверу);
ОбъектДрайвера = Новый("AddIn.Scanner");
ОбъектДрайвера.Open(1);
ОбъектДрайвера.ИмяСобытия = "BarCodeValue";
ОбъектДрайвера.ОчиститьВход();
ОбъектДрайвера.ОчиститьВыход();
ОбъектДрайвера.АвтоВыключение = 0;
ОбъектДрайвера.ПосылкаДанных = 1;
ОбъектДрайвера.УстройствоВключено = 1;
ОбъектДрайвера.ЗапрещениеСобытий = 0;
ОбъектДрайвера.Порт = Порт;
ОбъектДрайвера.СуффиксСтрока = Суффикс;
ОбъектДрайвера.СтопСимвол = 13;
ОбъектДрайвера.БитДанных = БитДанных;
ОбъектДрайвера.Скорость = Скорость;
Попытка
Результат = (ОбъектДрайвера.Занять(1) = 0);
Исключение
Результат = Ложь;
КонецПопытки;
Если Результат Тогда
ОбъектДрайвера.УстройствоВключено = 1;
ОбъектДрайвера.ПосылкаДанных = 1;
ОбъектДрайвера.ОчиститьВход();
ОбъектДрайвера.ОчиститьВыход();
КонецЕсли;
Исключение
Сообщить("Ошибка подключения сканера!");
КонецПопытки;
