Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.02.03;
Скачать: CL | DM;

Вниз

Как связать две подпрограммы (запрос-ответ)   Найти похожие ветки 

 
Konstantin ©   (2003-01-25 18:42) [0]

Может кто посоветует алгоритм. А нужно вот что:
Есть цикл, в котором посылается запрос на внешнее устройство, подключенное по СОМ.
Естественно, на каждый запрос устройство отвечает (вызывается событие OnRxChar)
Так вот задача, как сделать, чтобы очередной запрос из цикла не посылался, пока не придет ответ?


 
jack128 ©   (2003-01-25 18:58) [1]

ты посылай слдующий запрос после прихода ответа
на предыдущий в этом твоём событии OnRxChar...

Кстати если оборвался провод то твоё событие не наступит...


 
Stager ©   (2003-01-25 19:06) [2]

{процедура - цикл посылки}
procedure SendAndRecieve;
begin
repeat
Timer1.Enabled := True;
ComPort1.Write(...);
while (Timer1.Enabled) and ( not Application.Terminated) do
Application.ProcessMessages;
until Application.Terminated;
end;

{принимаем ответ и вырубаем таймер}
procedure TForm1.ComPort1RxChar(Sender: TObject; Count: Integer);
begin
try
ComPort1.Read(..., Count);
finally
Timer1.Enabled := False;
end;
end;

{отслеживаем таймаут}
procedure TForm1.Timer1Timer(Sender: TObject);
begin
Timer1.Enabled := False;
end;

С уважением, Алексей.


 
Stager ©   (2003-01-25 19:11) [3]

А еще, если Вы заранее можете предугадать длину ответа:

repeat
ComPort1.Write(...);
ComPort1.Read(..., EstimatedLength);
Application.ProceddMessages;
until Application.Terminated;

C уважением, Алексей.



Страницы: 1 вся ветка

Текущий архив: 2003.02.03;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.023 c
1-4854
Aleksandr
2003-01-24 16:17
2003.02.03
Как организовать хранение присваиваемых методов?


1-4978
Nikolay Enby
2003-01-26 01:38
2003.02.03
Раскраска текста


14-5228
Karluha
2003-01-15 22:20
2003.02.03
InstallShield многократная установка программы


1-4893
malkolinge
2003-01-22 19:56
2003.02.03
Collections !


1-4837
waw
2003-01-22 17:37
2003.02.03
Как вывести окно свойства файла?