Ожидание определенной строки от ServerSocket.

← →
Новичек © (2003-03-12 17:11) [0]

Имеется ClientSocket. Он посылает серверу запрос, а затем, в зависимости от полученной информации, выполняет какие-либо действия. Уважаемые мастера, не подскажете ли - как организовать ожидание определенной строки от сервера? Что-то типа WaitForString в скриптах терминалов.
С уважением, Сергей.

← →
Digitman © (2003-03-12 17:23) [1]

например, так :

var
hWaitEvent : THandle;
...
hWaitEvent := CreateEvent(...);

procedure TMyForm.MySocketRead(...);
begin
... чтение данных
if сообщение_принято_целиком_достоверно_и_корректно then
SetEvent(hWaitEvent);
end;

...

while True do
case MsgWaitForMultipleObjects(1, hWaitEvent, ...) of
WAIT_OBJECT_0: ... дождались ! Break;
WAIT_OBJECT_0 + 1:
Application.ProcessMessages;
end;

.. и т.д....

Точно, Digitmen! А я зыбыл про Application.ProcessMessages :-(
Спасибо огромное - четыре дня бился над этой проблемой - помрачнение нашло :-)

Ожидание определенной строки от ServerSocket. Найти похожие ветки