Connect в TClientSocket

← →
snake1977 (2003-07-29 09:12) [0]

Здравствуйте! Подскажите пожалуйста, я использую TClientSocket и TServerSocket. Вот кусок исходника:

Var ClientConnected:Boolean;

....
ClientConnected:=False;
Client1.Active:=True;
if Client1.Active Then ClientConnected:=True;
....

Проблема в том что условие никогда не выполняется, т.е. выполняется но со временем, т.е. приходится использовать что то типа While not Client1.Active do Application.ProcessMessages;
но тогда происходит зависание, если серверный сокет не активен.

Как проверить что клиент приконнектился к серверу?

← →
Digitman © (2003-07-29 09:21) [1]

> но тогда происходит зависание

какое такое "зависание" ?)

"зависание" ты получишь , если

Client1.Active:=False;
Client1.ClientType := ctBlocking;
Client1.Active:=True; // вот здесь и "повиснешь" до тех пор, пока не будет установлен коннект либо в нем тебе будет отказано

← →
Verg © (2003-07-29 13:15) [2]

> Как проверить что клиент приконнектился к серверу?

В режиме по умолчанию используется nonBklocking или аснхронный режим работы с TClientSocket. Таким образом, Client1.Active:=True; только инициирует процесс соединения. А результат соединения получаешь обрабаотывая события OnError, OnWrite, OnDisconnect. Только после получения события OnWrite можно считать соединение состоявшимся.

← →
Basilio © (2003-07-29 19:11) [3]

Может прокатить такой код:
Client1.Active:=true;
while not Client1.Connected do Application.ProcessMessages;

> клиенту нужно время, чтобы сконнектится

Connect в TClientSocket Найти похожие ветки