v7: Работа с СОМ-портом

1C 7.7

31.08.12

✎

11:50

Уважаемые коллеги!
В системнике установлена плата-расширитель СОМ-портов, их там штук 5, наверное. К каждому прицеплено ну очень нестандартное оборудование(рольганги, штабелеры). Протокол обмена, в общем-то, известен. Как работать с СОМ-портами напрямую? Драйверов нет.

1 Ork

31.08.12

✎

11:53

(0) Есть такой контрол MSComm.ocx Могу скинуть пример работы.

2 Ork

31.08.12

✎

11:58

+(1)
Вырезка из ГМ.

Перем fso Экспорт, True Экспорт, False Экспорт;
...
Процедура ВывестиСтрокуДисплея(поз, Стр) Экспорт
Если ДисплейПодключен()=1 Тогда
ДисплейПокупателя.Output=Симв(27)+?(поз=1,"QA","QB")+AnsiToOem(Стр)+Симв(13);
КонецЕсли;
КонецПроцедуры
...
Процедура ДисплейПриветствие() Экспорт
ВывестиСтрокуДисплея(1, Константа.СтрокаПриветсвия1);
ВывестиСтрокуДисплея(2, Константа.СтрокаПриветсвия2);
КонецПроцедуры
...
Процедура ПодключитьДисплей(Порт)
Перем Спр;
Попытка
ДисплейПокупателя=CreateObject("MSCOMMLib.MSComm");
Попытка
ДисплейПокупателя.CommPort=Порт;
Если ДисплейПокупателя.portOpen=False Тогда
ДисплейПокупателя.portOpen=True;
КонецЕсли;
ДисплейПриветствие();
Исключение
Предупреждение(ОписаниеОшибки());
КонецПопытки;
Исключение
Предупреждение(ОписаниеОшибки());
КонецПопытки;
КонецПроцедуры
...
True=-1;
False=0;

ВасикДа=-1;
ВасикНет=0;

fso=СоздатьОбъект("Scripting.FileSystemObject");

3 Ork

31.08.12

✎

11:59

+(3) Пример для вывода на дисплей покупателя. Но принципиальной разницы куда выводить при известном протоколе нет.

4 G-Re

31.08.12

✎

12:04

(1,2) Спасибо, скинь, если не сложно, ящик у меня, вроде, открыт. И сам контрол тоже. Буду разбираться.

5 Ork

31.08.12