Difficulté avec l'Exception ETimeOut

Bonjour,
J'ai des difficultés avec la gestion d'exception ETimeOut sous Delphi 7, XP.
Voici le code en question :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

procedure TForm1.Read; var Bsf:TWordFrame; Ad:Integer; begin Ad:=strtoint(S_AdR.Text); Try Leture(Port,1,Ad,1,@Bsf);//Read A_V.Text:=inttostr(Bsf[0]); Except on ETimeOut do ShowMessage('TimeOut'); //Voir remarque end; end;

---

Dans l'editeur j'ai le message suivant :

Citation:

---

'Le projet P_testMb.exe a provoqué une classe d'exception ETimeOut avec le message ''. Processus stoppé. Utilisez Pas-à-pas ou Exécuter pour continuer.'

---

A l'execution l'execption n'est plus détectée.
La ligne : On ETimeOut do ..... n'est pas accepté avec le message :
Identificateur non déclaré 'ETimeOut'
Le time out concerne le port Com géré par une DLL.
Merci de votre aide.

ETimeOut ne semble pas être une exception déclarée dans les sources (visibles) de Delphi. Pour réussir néanmoins à capturer l'exception tu dois partir du niveau le plus bas. Soit :

Code:

---

on E: Exception do ShowMessage( E.Message );

---

Maintenant il est clair que si tu cherche à capturer cette exception en particulier ça va être un peu compliquée :?

Citation:

---

Envoyé par Aka Guymelef

ETimeOut ne semble pas être une exception déclarée dans les sources (visibles) de Delphi. Pour réussir néanmoins à capturer l'exception tu dois partir du niveau le plus bas. Soit :

Code:

---

on E: Exception do ShowMessage( E.Message );

---

Maintenant il est clair que si tu cherche à capturer cette exception en particulier ça va être un peu compliquée :?

---

Merci de m'avoir répondu, en effet cette exception est déclenchée par une DLL.
Je vais essayer ton code.

Avec ton code, l'exception est détectée, sans notion de classe.
Mais pour mon appli, ceci est suffisant.
Merci pour ton aide.