Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Ожидание определенной строки от ServerSocket. [D7, WinXP]


Новичек ©   (2003-03-12 17:11:00) 

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


Новичек   (2003-03-12 17:45:00) [1]

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


Digitman   (2003-03-12 17:23:00) [2]

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

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;

.. и т.д....


Наверх

Титульная страница Поиск, карта сайта Написать письмо