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.