je reprends un précédent message :
au lancement d'une application, celle-ci tente de se connecter à un environnement à l'aide d'un composant métier ...

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
procedure TForm.FormCreate(Sender: TObject)
begin
...
 Module := TDtm.Create(Self); // appel de DataModuleCreate
...
end;   
 
procedure TDtm.DataModuleCreate(Sender: TObject)
begin
   Try
     env.Open; // ligne 4 - ici se fait la connexion 
   Except
     On E: EConnexion do
     Showmessage(E.Message);
   end;
   // ici la suite de l'exécution
end;
pour une raison "x ou y" ("bouchon" sur le réseau par exemple) lorsque Delphi exécute la ligne 4, ça peut durer un "long" moment avant de passer à la suite ...
Mon but est de pouvoir décompter la durée lorsqu'il va passer à la ligne 4 et d'arrêter par exemple le prog. si ça dépasse 20 sec.

Pb : l'exécution qui risque de durer lontemps est sur une SEULE ligne de code et je n'ai pas les sources du composant.
je vois pas comment je peux faire ... même dans un thread !
Une idée SVP ?