Главная страница
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
14-5165
wetrov
2003-01-17 13:04
2003.02.03
закарючка


1-4927
Tahion
2003-01-21 20:36
2003.02.03
Нарисовать иконку


7-5301
FoxM
2002-11-23 21:48
2003.02.03
Format A:


3-4753
b_baranov
2003-01-16 01:34
2003.02.03
трудности в написании SQL запроса


3-4757
Valeris
2003-01-16 11:19
2003.02.03
Разработка косольного приложения