Главная страница
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.026 c
1-49161
UserL
2003-01-06 08:18
2003.01.16
Как в DLL передать указатель на переменную, а потом вернуть его?


4-49374
Z_man7777
2002-11-28 13:36
2003.01.16
TCP/IP адрес


1-49155
Goblinus
2003-01-05 01:42
2003.01.16
Сразу много вопровов...


14-49283
Дмитрий К.К.
2002-12-27 13:13
2003.01.16
Когда будет ДАВНО обещанный турнир по шахматам среди участников..


1-49114
Tornado
2003-01-05 11:38
2003.01.16
Помогите с DLL