Discussion :

[yosthegost]

Bonjour

Je n'utilise pas souvant les timer donc ce problème vous paraitra surment bete, bref: J'active un timer en clickant sur un bouton de ma form ensuite celle-ci est totalement bloqué. Je peut donc pas clické sur le bouton qui me permet de désactivé le timer.

Merci

[qi130]

Quel est le code accroché au OnClick de ce bouton ?

[Fabrice ROUXEL 1]

Ajoutes Application.ProcessMessages dans le code bloquant.

[yosthegost]

Il y a juste pour l'activation/ désactivation:

Code :

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

Timer1.Enabled:=true/ false;

[qi130]

Effectivement, rien de spécial...

Comment est règlé ce timer : valeur de l'"interval" ?
Y a t'il du code dans son événement OnTimer ?

[yosthegost]

Et voila ce que j'ai dans le 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
 try
  ForceDirectories('c:\PremierRep\');
  AssignFile(F,'c:\PremierRep\MonFichier.txt');
  //try
   if fileexists('c:\PremierRep\MonFichier.txt') then
    append(F)
   else
    rewrite(F);//car sinon erreur
 
   while(True) do
    begin
     writeln(F,DateTimeToStr(now)); // ici pas le choix;
     sleep(5000);
    end;
  except
  // ShowMessage('Erreur');
  end;

[yosthegost]

le code précédent est dans OnTimer et intervale 1000

[Fabrice ROUXEL 1]

OK.
Ce n'est pas étonnant que cela bloque.
Ton gestionnaire pour l'évenement onTimer est appelé chaque seconde
et il contient l'instruction sleep(5000) qui le met en attente 5 secondes.
Supprimes Sleep(5000) et éventuellement augmentes l'interval du timer.

ps
j'ai failli oublier... Le while(true)! Et quelle est la condition de sortie de ta boucle?

Supprime également l'instruction "while true".

[qi130]

Code :

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

1
2
3
4
5
while(True) do
    begin
     writeln(F,DateTimeToStr(now)); // ici pas le choix;
     sleep(5000);
    end;

Tant que (vrai).... ça devient faux quand ?

ensuite, il y a ce sleep(5000) pendant lequel le timer va se déclencher 5 fois...pour rééxecuter ce même code

Que cherches-tu à faire ?

[yosthegost]

je ne le mais jamais a faux, et ce code me permet seulement de faire un test, j'écrit dans un fichier l'heure actuel avec un intervale de 5s.

[Lung]

Pourquoi utiliser un Timer, alors ?

[yosthegost]

Tout simplement parceque je suis débutant et que c'est quelqu'un qui ma conseiller de mettre un timer, mais si tu a un meilleur conseil a me donner je te serait trés reconnaissant.

Merci

[Lung]

Que cherches-tu a faire, au juste ?

[yosthegost]

Je veu juste créer un fichier dans le quel y aura la date et l'heure actuelle avec un intervalle variable.

Exemple: 15/05/2006 11:59:42 ici 5s mais je peut le changer, si besoin.
15/05/2006 11:59:47

[Fabrice ROUXEL 1]

Fais comme cela:

Code :

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

1
2
3
4
5
6
7
8
9
10
 
  ForceDirectories('c:\PremierRep\');
  AssignFile(F,'c:\PremierRep\MonFichier.txt');
 
  if fileexists('c:\PremierRep\MonFichier.txt') then
    append(F)
  else
    rewrite(F);//car sinon erreur
    writeln(F,DateTimeToStr(now)); // ici pas le choix;
end;

Puis tu fixes l'interval à 5000;
Ainsi toute les 5 secondes le timer invoque ton gestionnaire qui écrit l'heure dans le fichier.

ps: Sinon tu peux ouvrir le fichier dans le create de la fiche et faire un closefile dans l'évenement ondestroy de la fiche.
Puis dans le timer tu te contentes juste d'écrire dans le fichier.
Bref, tu gère les exceptions l'ouverture et fermeture du fichier en dehors du gestionnaire de l'évenement onTimer du Timer.

[yosthegost]

Ok merci a tous.