Thread trop lent : 200ms !

Version imprimable

Bonjour,

Le temps d'échange entre mon application et mon thread est de plus de 200ms !!!

Je m'explique:
Voici ce que j'ai dans ma boucle execute (j'ai simplifié au maximum) :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 Procedure TMyThread.Execute; Begin repeat if (StepRun = STEP_IDLE) then Begin End; if (StepRun = STEP_REQUEST) then Begin DataReady := true; StepRun := STEP_IDLE; end; until Terminated; End;
et voilà ce j'ai dans ma fiche principale:
Code:

1 2 3 4 5 6 7 DataReady:=false; StepRun := STEP_REQUEST; StartTime := GetTickCount; Repeat Until DataReady; TempsEcoule := GetTickCount-StartTime;
J'ai essayé d'autres priorités mais c'est pire ou alors l'application devient inexploitable par sa lenteur d'affichage.

Y-a-t-il une explication à cela ???
merci de votre aide.
Franck

Tu as deux boucles qui tournent à fond. En mettant des sleep, ce serait déjà mieux.
Mais ce serait encore mieux avec des Events ;)

Code:

1
2
3
4
5
uses SyncObjs;
 
var
  StartEvent :TEvent;
  ReadyEvent :TEvent;

Code:

1
2
3
4
5
6
procedure TForm1.FormCreate(Sender: TObject);
begin
  StartEvent := TEvent.Create(nil, TRUE, FALSE, 'MyStart_Event');
  ReadyEvent := TEvent.Create(nil, TRUE, FALSE, 'MyReady_Event');
  ...
end;

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
procedure TForm1.Button1Click(Sender: TObject);
var
  StartTime :integer;
  Elapsed   :integer;
 
begin
  StartTime := GetTickCount;
 
  StartEvent.SetEvent;
  ReadyEvent.WaitFor(INFINITE);
  ReadyEvent.ResetEvent;
 
  //Traitement
 
  Elapsed:= GetTickCount -StartTime;
end;

Code:

1
2
3
4
5
6
7
8
9
10
11
procedure TMyThread.Execute;
begin
  while not Terminated do
  begin
    StartEvent.WaitFor(INFINITE);
    StartEvent.ResetEvent;
 
    //Traitement
 
    ReadyEvent.SetEvent;
  end;

01/05/2012, 14h01
franckcl

GE - NIAL !
rien qu'en mettant des sleep(0) dans la boucle du main et dans la procedure execute du thread, j'ai un temps quasi nul !!!
Mais si tu dis que les events, c'est mieux, je vais voir ça.
MERCI !!!!!