Главная страница
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.025 c
1-1083329347
Ivolg
2004-04-30 16:49
2004.05.16
Мигающий курсор


3-1082091588
unicode
2004-04-16 08:59
2004.05.16
Помогите с запросом


14-1081857216
Digitman
2004-04-13 15:53
2004.05.16
Платформа Аллегро ... баннер перед носом ... чуть выше..


14-1082899941
Piter
2004-04-25 17:32
2004.05.16
Wine


7-1081419272
Aleksandr
2004-04-08 14:14
2004.05.16
Как запустить из программы виндовый Dial-Up с заданным именем сое