Зависание idtcp client

← →
olevacho_ © (2005-11-01 10:53) [0]

Есть такой код

begin
idTCPClient1.Port:=StrToInt(Edit1.Text);
idTCPClient1.Host:=edit2.text ;
try
idTCPClient1.Connect;
idTCPClient1.WriteLn("Signal");
idTCPClient1.DisconnectSocket;
except
idTCPClient1.DisconnectSocket;
showmessage("connection not established");
idTCPClient1.Port:=1026;
idTCPClient1.Host:="192.168.1.9" ;
idTCPClient1.Connect;
idTCPClient1.WriteLn("Signal");
idTCPClient1.DisconnectSocket;
end;
end;

Все работает ОК до тех пор пока включен комп на который отправляется запрос. Код работает даже если на другой стороне не запущен IndyServer. Но если комп выключен то прога основательно зависает. Не помогает даже код защиты except. Как сделать чтобы в данной ситуации правильно работало?

← →
Reindeer Moss Eater © (2005-11-01 10:57) [1]

>Как сделать чтобы в данной ситуации правильно работало?

Оно и так "правильно" работает.

← →
Tor © (2005-11-01 11:13) [2]

Если это у тебя клиент, то положи на фотрму антифриз, может поможет. Лично у меня клиент создается в отдельном патоке и работает не зависимо от VCL-го. Сделай таймер, вроде на процедуре Connect есть такое.

← →
Digitman © (2005-11-01 13:29) [3]

> Reindeer Moss Eater © (01.11.05 10:57) [1]

не-а ... "неправильно" работает ..

> olevacho_ © (01.11.05 10:53)

try
idTCPClient1.Connect; //ну, предположим ..
//ЗДЕСЬ должен быть try !!!!
idTCPClient1.WriteLn("Signal"); //сюда доехали ? значит соединение установлено ! И значит любые исключения, здесь возникшие, НЕ связаны с установлением коннекта !
idTCPClient1.DisconnectSocket;
except
...
showmessage("connection not established"); // c какого вдруг перепугу "соединение не установлено" ?!
....
end;
end;

Зависание idtcp client Найти похожие ветки