Работа с внешним девайсом через COM порт

← →
SDW_syscoder (2003-09-03 11:05) [0]

Требуется организовать работу с внешним устройством через порт RS232(COM).
Алгоритм будет заключаться в следующем: я должен ожидать событие, т.е. приход кода "0A", после чего в ответ я посылаю "11" пока не придёт код "3A" и затем уже идёт считывание всех данных с порта. Короче HELP ME! разобраться с событиями и потоком в котором будет вертеться процедура ожидания события.
Прогу пишу на WinAPI в Delphi 6. Thanks People!!! Покеда...

← →
Verg © (2003-09-03 11:09) [1]

Да уж, чем дальше в лес, тем толше партизаны....

← →
ZHK © (2003-09-03 11:30) [2]

Думаю, что задачу за тебя никто писать не будет. А посоветовать можно. Посмотри описание API. SetCommState, GetCommState и похожие. В API есть структура TDCB, с помощью которой можно получить доступ к настройкам порта. Поле TDCB.Flags тоже полезно. А простейший способ ждать событие, если других не знаешь:

while <нет события> do
Application.ProcessMessages.

Все будет выполняться и событие поймаешь. Пробуй.

← →
INTAARI (2003-09-03 15:27) [3]

Воспользуйся компонентой TurboPower Async Professional.
выглядет это так:
//////прочитать данные с порта//////////////////// procedure Tform1.ComPortTriggerAvail(CP: TObject; Count: Word); var I : Word; s: string; begin s:=""; for I := 1 to Count do S := S + ComPort.GetChar; //////посылка строки в порт Сomport.PutString("11");

Работа с внешним девайсом через COM порт Найти похожие ветки