Discussion :

[plou_fr]

Bonjour,

Voilà mon problème.
Je voudrais faire une boucle qui test toutes les 15 minute la connexion à ma base Oracle si celle-ci n'est pas joignable une première fois.
Pour cela je pensais utiliser un TTimer.
Voilà mon code.

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
18
19
20
 
 if (OraTest=False) then begin
              Reper:=ExtractfilePath(paramstr(0));
              ListeParam:=TStringList.Create;
              s:=paramstr(0);
              s:=copy(s,1,length(s)-length(ExtractFileExt(s)))+'.ini';
                if FileExists(s) then begin
                ListeParam.LoadFromFile(s);
                p_Time:=ListeParam[15];
                TimerTampo.Interval:=StrToInt(p_Time)*1000;
                TimerTampo.Enabled:=True;
                ListeParam.Free;
                ListeParam:=nil;
                end;
            end;
 
procedure Form1.TimerTampoTimer(Sender: TObject);
begin
  TestConnOra;
end;

Il récupère le paramètre de l'interval dans un fichier .ini.
Je voulais savoir si il est bon car c'est la première fois que je me sert d'un TTimer.

Merci pour vos réponses.

[pieroznight]

Bonjour
Pour lancer périodiquement une procedure OnTimer avec un timer, il te suffit de règler l'interval (la durée de ta période) en millisecondes, et de mettre timer.enabled à true( donc pour 15 min = 15*60*1000 ms*)
jespere avoir répondu a ta question
a+

[plou_fr]

Merci pour la réponse.
C'est tout bon j'ai réussi en cherchant encore.
Mon code était bien bon =)