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

Вниз

Забить exception   Найти похожие ветки 

 
AndrewVolkov   (2004-05-02 13:39) [0]

Доброго всем дня.
Вопрос следующий.
Есть ClientSocket - который при открытии, если ServerSocket недоступен, выдает сообщение
Asynhronous socket error 10061

у ClientSocket в свою очередь есть событие OnClientError

procedure TfmRClient.SrSocketClientError(Sender: TObject;
 Socket: TCustomWinSocket; ErrorEvent: TErrorEvent;
 var ErrorCode: Integer);

если я здесь добавлю
 case ErrorEvent of
 : eeConnect : ShowMessage("Error connect");
 end;//case

он выдаст и мое сообщение и потом опять системное. А я хочу только свое. А где отловить этот ексептион я не могу понять. Если кто в курсе - подскажите.


 
AndrewVolkov   (2004-05-02 13:53) [1]

P.S.
пробовал ставить при открытии, не помогает

 try
   ClSocket.Open;
 except
   ShowMessage("Error");
 end;


 
DVM ©   (2004-05-02 13:57) [2]

procedure TfrmMain.ClientSocketError(Sender: TObject;
 Socket: TCustomWinSocket; ErrorEvent: TErrorEvent;
 var ErrorCode: Integer);
begin
 ErrorCode := 0;
 //свое сообщение об ошибке!
end;


 
AndrewVolkov   (2004-05-02 14:05) [3]

Big Thanks



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

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

Наверх




Память: 0.47 MB
Время: 0.05 c
1-1083158933
GIL
2004-04-28 17:28
2004.05.16
Создание модальной mDi-формы


14-1083168604
Ilya
2004-04-28 20:10
2004.05.16
Счётчик скачиваний


1-1083583253
Шишкин Илья
2004-05-03 15:20
2004.05.16
ZIP архивы


11-1069409816
=Sniper=
2003-11-21 13:16
2004.05.16
Как из ActionList вытащить стандартные Action ны?


1-1082829945
kvazar
2004-04-24 22:05
2004.05.16
открытие файла