Имя: Пароль:
1C
1C 7.7
v7: получит данные со сканера штрихкода (работа с com портом)
0 botman4
 
10.08.15
13:40
конфигурации нету, просто платформа.
написал внешнюю обработку, в которой есть диалоговое окно "ШтрихКОд"
хочется передать в него данные со сканера, а как не знаю...
поискал по просторам нашел пару строчек кода и внешнюю компонентку "MSCOMM32.OCX":

Процедура ПриОткрытии()

Попытка
    Драйвер=СоздатьОбъект("MSCOMMLib.MSComm.1");
Исключение
    Предупреждение("Не могу создать объект");    
    Возврат;
КонецПопытки;
Драйвер.CommPort = 5;   // COM1
Драйвер.Settings = "9600,N,8,1";
Попытка
    Драйвер.PortOpen=1;
Исключение
    Предупреждение("Не могу открыть порт");    
    Возврат;
КонецПопытки;
Если Драйвер.PortOpen=0 Тогда
    Предупреждение("Не открыт порт");    
    Возврат;
КонецЕсли;  
Сообщить("Создан объект "+Драйвер+" и включен");
КонецПроцедуры

//*******************************************
Процедура ПриЗакрытии()
    Драйвер.PortOpen=0;
    Драйвер=0;
КонецПроцедуры

процедуры отрабатывают без ошибок.
Подскажите как получить данные со сканера. что должно срабатывать при считывании сканером штрихкода, какая-то процедура или функция и пихать данные в переменную?
1 ДенисЧ
 
10.08.15
13:45
главное - никогда не ставь драйвер сканера и не подключай его в 1с...
А то иначе ты словишь внешнее событие... Что ты тогда делать будешь?
2 Garykom
 
гуру
10.08.15
13:45
(0) эээ очень похоже на "взял офис, а как терь в нем прямо с клавиатуры на принтер печатать?"
3 ДенисЧ
 
10.08.15
13:45
И да - никогда, слышишь - никогда!!! даже не заглядывай в типовые конфигурации...
4 botman4
 
10.08.15
13:49
(2) очень похожу на "Делать нефиг, буду флудить по строчке в каждой теме... пускай думают, что я умный.."
5 Альбатрос
 
10.08.15
13:50
(2) Пхахаха ))) +1
6 HawkEye
 
10.08.15
18:22
(4) тебе прозрачно намекнули, что надо воспользоваться процедурой ОбработкаВнешнегоСобытия(), подсмотреть как она работает можно в типовой ТиС.
7 botman4
 
12.08.15
12:50
(6) спасибо.
не все намеки понял, буду смотреть эту процедуру.
Программист всегда исправляет последнюю ошибку.