Discussion :

[adipie]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

'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.

[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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[adipie]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[adipie]

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