Сканер ШК
☑
0
Dionisious
04.12.12
✎
09:52
Подскажите что я делаю не так.
ПрогИД = "AddIn.Scanner";
ПодключитьВнешнююКомпоненту(ПрогИД);
Драйвер = Новый(ПрогИД);
Драйвер.БитДанных = 8;
Драйвер.Порт = 5;
Драйвер.Скорость = 9600;
Драйвер.СтопБит = 0;
Драйвер.СтопСимвол = 13;
Драйвер.ИмяСобытия = "BarCode";
Если Драйвер.Занять(1)=0 Тогда
Драйвер.УстройствоВключено = 1;
Драйвер.ПосылкаДанных = 1;
Драйвер.ОчиститьВход();
Драйвер.ОчиститьВыход();
КонецЕсли;
В условие не заходит. Хотя смотрю стандартное подключение сканера там все тоже самое и функция Занять() возвращает 0, а у меня ни как.
1
Dionisious
04.12.12
✎
09:52
Заранее огромное спасибо.
2
Dionisious
04.12.12
✎
09:55
Заработало!!!! Оказывается в начале надо еще
Драйвер.Open("");
3
Wobland
04.12.12
✎
09:57
вы прослушали утренний монолог Дионисиуса
Чтобы обнаруживать ошибки, программист должен иметь ум, которому доставляет удовольствие находить изъяны там, где, казалось, царят красота и совершенство. Фредерик Брукс-младший