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) он уже давно не вражеский. Кстати, поищи по поиску, кто первый ввёл это определение )))
Компьютеры — это как велосипед. Только для нашего сознания. Стив Джобс