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

Зависание 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;

---

← →
Eraser ©   (2005-11-01 13:54) [4]

> olevacho_ ©   (01.11.05 10:53)

У TidTCPClient есть такое свойство ConnectTimeout.

---

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

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



Память: 0.46 MB
Время: 0.032 c