Имя: Пароль:
1C
1С v8
Сканер ШК
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
вы прослушали утренний монолог Дионисиуса
Проблемы невозможно решaть нa том же уровне компетентности, нa котором они возникaют. Альберт Эйнштейн