Discussion :

[thierrybatlle]

Bonjour,

Jai une application qui doit gérer de façon précise une durée D.
Mon problème est que j'ai essayé d'utiliser le Timer de diverses façon et cela ne fonctionne pas, il y a des blocage et cela reprend 2 à 3 secondes plus tard.
J'ai également essayé par les Thread, et un composant de la jvcl qui est timer threadé

Comment puis-je faire?

Merci à tous

[LadyWasky]

En fait, Il faudrait que la partir de ton application qui dépend de cette durée soit aussi un Thread avec une priorité d'exécution assez élevée. Et encore... Windows n'est pas vraiment fait pour du temps réel.

Pour ça, tu peux t'inspirer par exemple de programmes d'échecs ou bien d'un émulateur de micro-ordinateur 8bits.

J'espère t'avoir mis sur une piste.

Bon courage.

[Rayek]

il y a des blocage et cela reprend 2 à 3 secondes plus tard.

Est ce que dans ton code tu n'utiliserais pas des sleep ?

[thierrybatlle]

Non il n'y a pas de Sleep

[HumanTool]

salut,
comment tu utilise ton timer exactement??

[Guile]

Une petite idée comme ça : Ne pourrais tu procéder en comparant les heures System sur chaque evenement de ton Timer avec un interval très bas ? Du genre :

Soit D Ta durée et DerniereAction une variable TDateTime :

Code :

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

1
2
3
4
5
6
7
8
9
 
procedure TForm1.Timer1Timer(Sender: TObject);
begin
  if Now - DerniereAction >= D  then
  begin
     DerniereAction := Now;
     Code etc ......
  end;
end;

C'est juste une idée qui m'est venue en lisant ton problème. Je suis peut etre totalement à côté de la plaque

[the_magik_mushroom]

timer perso avec GetTickCount, beaucoup plus précis que le timer delphi.

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
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
var
  FrmTimer: TFrmTimer;
  NbFois :Cardinal;   {Variable d'incrémentation}
  TimerPers :DWord;   {Le ID de notre Timer Personnalisé}
  TempsDebut :DWord;  {Calculer le temps pris par les Timer}
 
implementation
 
{$R *.DFM}
 
Procedure FctTimeCallBack( uTimerID, uMessage: UINT;
                           DwUser, Dw1, Dw2: DWord) StdCall;
{Objectif : - Cette procédure est appelé chaque fois que le Timer à écoulé
              le nombre de millisecondes que nous lui avons demandez de
              claculer. À la création du Timer nous lui avons demandé de
              calculer 1 MilliSecondes.}
Begin
     Inc( NbFois );
 
     If NbFois >= 100 Then
     Begin
          TimeKillEvent( TimerPers );  {Destruction du Timer}
          FrmTimer.lbTemps.Caption := 'Millisecondes : ' +
                                       IntToStr( GetTickCount - TempsDebut ) 
                                       + ' / 100';
 
          FrmTimer.btTTimer.Enabled := True;
          FrmTimer.btTimerPers.Enabled := True;
     End;
End;
 
procedure TFrmTimer.TimerTraditionnelTimer(Sender: TObject);
begin
     Inc( NbFois );
 
     If NbFois >= 100 Then
     Begin
          TimerTraditionnel.Enabled := False;
          lbTemps.Caption := 'Millisecondes : ' +
                             IntToStr( GetTickCount - TempsDebut )
                             + ' / 100';
 
          btTTimer.Enabled := True;
          btTimerPers.Enabled := True;
     End;
end;
 
procedure TFrmTimer.btTTimerClick(Sender: TObject);
{Objectif :Rendre innacessible les deux boutons.
           Remmetre la valeur de la variable d'incrémentation à 0.
           L'interval du TTimer est 1 Millisecondes...
           Démarrer le TTimer traditionnel.}
begin
     btTTimer.Enabled := False;
     btTimerPers.Enabled := False;
     NbFois := 0;
     TempsDebut := GetTickCount;
     TimerTraditionnel.Interval := 1;
     TimerTraditionnel.Enabled := True;
end;
 
procedure TFrmTimer.btTimerPersClick(Sender: TObject);
{Objectif :Rendre innacessible les deux boutons}
begin
     btTTimer.Enabled := False;
     btTimerPers.Enabled := False;
     NbFois := 0;
     TempsDebut := GetTickCount;
     TimerPers := TimeSetEvent (1, 0, @FctTimeCallBack, 0, TIME_PERIODIC);
end;

[m14w]

Personnellement je me sers d'une fonction pause que j'ai pompé sur un forum allemand, c'est court et tres pratique.

Code :

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

1
2
3
4
5
6
7
8
9
 
procedure pause(zeit: longint);
var zeit1: longint;
begin
zeit1:= GetTickCount;
repeat
Application.ProcessMessages;
until (GetTickCount - zeit1 > zeit)
end;

dans l'application si tu veux une pause de 500 millisecondes, tu ecris juste pause(500);

[Graffito]

Pour info : 1 tickcount=18 ms