Текущий архив: 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.44 MB
Время: 0.008 c
