Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.01.16;
Скачать: 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 вся ветка

Текущий архив: 2003.01.16;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.022 c
14-49318
McSimm
2002-12-28 12:34
2003.01.16
Поздравления


14-49264
Jeka
2002-12-26 16:05
2003.01.16
Шрифт в Object Inspector


1-49029
pashkevich
2003-01-07 21:07
2003.01.16
Помогите с OleContainer


3-48928
menart
2002-12-19 21:23
2003.01.16
SQL&Memo


3-48898
Andriano
2002-12-20 12:54
2003.01.16
Ненормальное завершение программы