Discussion :

[messahel]

Bonjour,
j'ai un traitement long et j'aimerai bien afficher une image GIF de progression pendant le traitement, j'ai utilisé la classe TThread pour l'affichage de l'image mais l'animation se bloque pendant le traitement.
voici le code que je l'ai utilisé:

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
 
type
  progress = class(TThread)
  private
    { Déclarations privées }
  protected
    procedure Execute; override;
  end;
 
implementation
uses unit1;
 
procedure progress.Execute;
begin
  { Placez le code du thread ici }
  while not terminated do
      form1.gif.Visible:=true;
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
17
18
 
var
  Form1: TForm1;
  UnThread:progress;
 
implementation
 
procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
begin
UnThread:=progress.create(true);
UnThread.FreeOnTerminate:=True;
UnThread.Priority:= tpNormal;
UnThread.Resume;
 
for i:=1 to 100000 do
    label1.Caption:=inttostr(i);
end;

[Linkin]

1) Un thread secondaire ne doit pas faire appel directement à un élément du thread principal (en gros l'affichage):
L'appel à form1 doit être protéger par un synchronyze.

2) Un thread secondaire s'exécute en parallèle du thread principal.
Si le but est de montrer la progression de ta boucle il vaudrait mieux faire quelque chose comme

Code :

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

1
2
3
4
5
6
7
8
 
 form1.gif.Visible:=true;
 for i:=1 to 100000 do begin
// Ton traitement
// Fin Traitement
   Application.ProcessMessages;
 end;
 form1.gif.Visible:=false;

[messahel]

même avec Synchronize l'animation se bloque

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
procedure progress.Execute;
begin
  { Placez le code du thread ici }
  while not terminated do
     synchronize(afficher);
end;
 
procedure progress.afficher;
begin
   form1.gif.Visible:=true
end;

[ShaiLeTroll]

En même temps, une telle boucle provoque une consommation excessive du processeur !

Ce qu'il faut faire, c'est l'inverse, il faut activer le Gif Animé dans le thread principal (celui que l'on utilise sans même le savoir) puis lancer un son propre TThread faisant le calcul long