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

А почему ?   Найти похожие ветки 

← →
gsu ©   (2002-12-26 20:15) [0]

СS: TClientSocket;

try
CS.active
except
showmessage("и тишина")
end;

А тишины нет, есть assinchronus socket error ...

---

← →
Song ©   (2002-12-26 20:19) [1]

А что за метод Active ? Что-то такого я не нашёл..

---

← →
gsu ©   (2002-12-26 20:20) [2]

ну в смысле
Active:=true

---

← →
Song ©   (2002-12-26 20:31) [3]

А всё дело в том, что исключение возникает не в момент открытия сокета, а позже, когда установлено, что соединение невозможно. На тот момент уже блок try .. except .. end уже "пройдёт".

Вылечить можно двумя путями:

1.
With ClienSocket1 Do
try
Open;
While not Connected Do Application.ProcessMessages;
except
MessageDlg("Соединение невожможно.",mtError,[mbOk],0);
end;

2. Или оставить всё так как есть у Вас, но поставить дополнительно обработку TClientSocket.onError c ErrorCode:=0;

---

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

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



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