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

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

TClientSocket в консольном приложение... [D6, Win2k]


Martin ©   (2002-10-01 14:05:00) 

Имеется консольное приложение


var
ClSocket: TClientSocket;
{прочие переменные}

begin
ClSocket:=TClientSocket.Create(nil);
ClSocket.Host:=Host;
ClSocket.Port:=Port;
ClSocket.Open;
{???????????????????????}
end;


Собственно вопрос, как отловить именно момент, когда возникло соединение....

вместо {?????} прописывать конструкцию

while not ClSocket.Active do begin
Sleep(100);
end;


Само собой напрашивается после Sleep(100) ProcessMessage, но это если бы сие было Application, а вот как быть с консольным приложением.....

Народ, подсобите советом кто может.... плз....


Polevi   (2002-10-01 15:09:00) [1]

реализуй цикл обработки сообщений


Martin   (2002-10-01 14:22:00) [2]

> Polevi
Про события я знаю....
Тогда собственно вопрос... как его прописать???
Что то вроде
ClSocket.OnConnect:=MyConnectionProcedure

Вот только сдается мне, что ента консольная прога после ClSocket.Open движется дальше, и достигнув конца просто вываливается (даже не дождавшись когда возникнет событие коннекта (((()


Polevi   (2002-10-01 14:14:00) [3]

события не пробовал посмотреть какие есть у TClientSocket ?


Наверх

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