Скачать: 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 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: -0.966 c