Имя: Пароль:
1C
1C 7.7
v7: Работа с СОМ-портом
0 G-Re
 
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
12:13
(4) Здесь : ХТТП://ВражескийФорум/forum24/topic44580/ есть усьо.
6 Vladal
 
31.08.12
12:18
(5) ВражескийФорум = forum.infostart.ru
7 Vladal
 
31.08.12
12:19
(5) он уже давно не вражеский. Кстати, поищи по поиску, кто первый ввёл это определение )))