Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.01.08;
Скачать: CL | DM;

Вниз

Обработка ошибок TClientSocket   Найти похожие ветки 

 
Leviathan ©   (2001-10-11 21:58) [0]

Мастера! Как мне сделать, чтобы при отсутствии сервера вылезало не стандартное дельфовое сообщение об ошибке, а мое? Простовал в try-except засунуть ClientSocket.Active := True; Не помогает.


 
MAXX ©   (2001-10-12 00:02) [1]

Если я тебя правильно понял, то нужно, в событии OnError компонента TClienSocket присвоить переменной ErrorCode ноль (ErrorCode:=0) тогда вообще не будет выводится никакого сообщения об ошибке. А если хочешь выводить своё сообщение то туда же можешь вставить что то типа MessageBox(....) или ShowMessage(...) и т.п. При возникновении ошибки её код передаётся в переменную ErrorCode по этому можно для разных ошибок выводить разные сообщения.



Страницы: 1 вся ветка

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

Наверх




Память: 0.46 MB
Время: 0.015 c
4-22505
Delphi5.01
2001-11-07 20:14
2002.01.08
Проблемма с BitMap-ом


4-22470
Шевченко Сергей
2001-11-02 13:32
2002.01.08
Внедрение


14-22411
MadBurro
2001-11-12 20:52
2002.01.08
WinXP cd-key


7-22430
AlexK
2001-09-21 12:28
2002.01.08
блокировка клавиатуры


3-21947
DieHard
2001-12-05 13:18
2002.01.08
Получение из таблицы Oracle списка индексов