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) он уже давно не вражеский. Кстати, поищи по поиску, кто первый ввёл это определение )))
Здесь можно обсудить любую тему при этом оставаясь на форуме для 1Сников, который нужен для работы. Ymryn