Главная страница
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.027 c
1-49018
Song
2003-01-07 12:53
2003.01.16
Проблема: на событии onCreate формы1 надо отобразить


6-49177
BackStabber
2002-11-17 16:52
2003.01.16
Взаимодействие с сервером по TCP/IP


14-49260
Дремучий
2002-12-26 17:20
2003.01.16
Программирование на Дот.Нет?


14-49287
Хмырь
2002-12-26 01:16
2003.01.16
АнтиАОН


3-48946
ИБМ
2002-12-23 09:35
2003.01.16
Вставка в середину таблицы