Скачать: CL | DM;

TClientSocket в консольном приложение...   Найти похожие ветки 

← →
Martin ©   (2002-10-01 14:05) [0]

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


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 14:14) [1]

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

---

← →
Martin ©   (2002-10-01 14:22) [2]

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

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

---

← →
Polevi ©   (2002-10-01 15:09) [3]

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

---

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

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.01 c