Главная страница
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.028 c
14-49270
Феликс
2002-12-25 21:20
2003.01.16
Группа


7-49332
fuckin_rose
2002-11-03 19:53
2003.01.16
доступ к директории


3-48859
Vavan
2002-12-23 18:44
2003.01.16
dbGrid


1-49081
Beglec
2003-01-05 00:48
2003.01.16
Старый и замученный вопрос


8-49166
brestmarket
2002-09-28 05:13
2003.01.16
Как добавить в свою прогу возможность видео-диалога через WebCam?