Discussion :

[yann87]

Bonjour

J'utilise un composant Timer, y-a-t-il un moyen de réinitialiser le compteur du Timer à 0 lorsque je touche sur un bouton? Si j'ai Timer.Intervalle:=1000(1s) d'où toute les secondes je entre dans ce Timer, mais je touche sur un bouton j'aimerai redémarrer ce compteur Timer à 0. Ainsi je retarde de 1s de plus si je touche sur ce bouton.

[tourlourou]

si ton bouton arrête le timer puis le relance (en jouant sur TTimer.Enabled), il repartira de zéro

[Linkin]

dans le code du bouton:

Code :

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

1
2
3
 
Timer.enabled := False;
Timer.enabled := True;

[djidane39]

Bonjour,

J'ai un problème avec la ré initialisation du Timer. Mon but et de faire des sauvegarde à intervalle régulier, pour cela j'ai une boucle infini avec un Timer :

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
21
22
23
24
25
26
27
28
 
procedure TThreadSauvegarde.TimerAction(Sender: TObject);
var
  sErreur  : String;
 
begin
while not Terminated do 
  try
    MyTimer.Enabled := False;
 
    // Chargement des options
    sErreur := ChargerOption;
 
    // Sauvegardes si les options ont bien été chargées
    // et qu'une sauvegarde est planifiée
    if (sErreur = '')
        and TesterSauvegardePlanifiee then
    begin
      Sauvegarde;
    end;
 
    Sleep(5000);
 
    MyTimer.Enabled := True; 
  except
    MyTimer.Enabled := True;
    Exit;
  end;

J'ai bien sur préalablement initialiser le Timer :

Code :

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

1
2
3
4
5
6
7
 
procedure TThreadSauvegarde.Execute;
begin
  MyTimer.Interval  := 5000;
  MyTimer.OnTimer   := TimerAction;
  MyTimer.Enabled   := True;
end;

Mon problème est que je suis obliger de mettre un Sleep(5000) pour espacer mes sauvegarde de 5 seconde, si je ne le met pas, le Timer ne se réinitialise pas, et sauvegarde en permanence, je ne comprend pas pourquoi?

[Franck SORIANO]

Heu, à quoi sert le timer dans ton exemple ?

Tu utilise déjà un thread. Le timer ne sert à rien. Il suffit de faire un sleep de 5s, d'effectuer la sauvegarde et de boucler !

Par contre, je structurerais plutôt le code de la façon suivante :

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
21
22
23
24
25
26
 
procedure TThreadSauvegarde.TimerAction(Sender: TObject);
var
  sErreur  : String;
 
begin
    // Chargement des options
    sErreur := ChargerOption;
 
    // Sauvegardes si les options ont bien été chargées
    // et qu'une sauvegarde est planifiée
    if (sErreur = '')
        and TesterSauvegardePlanifiee then
    begin
      Sauvegarde;
    end;
end;
 
procedure TThreadSauvegarde.Execute;
begin
  while not Terminated do
  begin
    Sleep(5000);
    TimerAction(self);
  end;
end;

Si tu veux utiliser le Timer, c'est le thread qui ne sert à rien.

[Linkin]

C'est une erreur de compréhension des threads.
(Je te conseille de revoir les tutorials sur les threads, sur la méthode execute)

Sur le principe tu n'as pas vraiment besoin de timer.
(Les cas où l'on doive mettre un timer dans un thread, je pense, doivent être assez rare)

Je ferais plutôt de cette façon (la sauvegarde se fait toutes les 5 secondes, avec une erreur de temps correspondant au temps d'exécution du code autre que le sleep).

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
 
procedure TThreadSauvegarde.Execute;
while not Terminated do 
  try
    // Chargement des options
    sErreur := ChargerOption;
 
    // Sauvegardes si les options ont bien été chargées
    // et qu'une sauvegarde est planifiée
    if (sErreur = '')
        and TesterSauvegardePlanifiee then
    begin
      Sauvegarde;
    end;
 
    Sleep(5000);
  except
// Pas de gestion d'exception
  end;

[djidane39]

Ok, je pensait bien que le Timer était inutile, merci de la confirmation!