Discussion :

[franckcl]

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 :

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

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 :

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

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

[Andnotor]

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 :

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

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

Code :

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

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 :

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
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 :

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

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;

[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 !!!!!