Discussion :

[KRis]

Bonjour à tous,

je teste l'utilisation des threads, notamment, pour charger une grosse image de 20 Mo environ dans une sorte de TImage.
J'espérais en utilisant un thread ne plus avoir l'appli gelé pendant le LoadFromFile, mais ce n'est pas le cas.

Un thread dans ce cas de figure est - il intéressant ? étant donné que je ne fais appel qu'à une seule méthode (LoadFromFile) ?

ci dessous l'appel à partir de la form principale :

Code :

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

1
2
3
4
5
6
7
8
9
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  if OpenDialog1.Execute() then
    begin
      MonThreadLoadImage := ThreadLoadImage.Create(OpenDialog1.FileName);
      MonThreadLoadImage.Resume;
    end;
end;

et du côté du thread :

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
 
constructor ThreadLoadImage.Create(AFileName: String);
begin
  FreeOnTerminate := True;
  inherited Create(True);
  FileName :=AFileName;
end;
 
procedure ThreadLoadImage.Execute;
begin
  { Placez le code du thread ici }
  Synchronize(LoadImage);
end;
 
procedure ThreadLoadImage.LoadImage;
begin
  Form1.LEADImage1.Load(FileName,0,0,1);
end;

avec ceci malheureusement, pdt le temps du chargement, l'appli est toujours gelée ? est ce normal ?

Merci d'avance

[MD Software]

Oui, c'est normal que l'appli soit gelée car tu utilises Synchronize qui fait passer ton thread pour le thread principal. Cependant, tu n'as pas le choix, car pour accéder à Form1.LEADImage1 il faut absoluement passer par un Synchronize.

Pour faire ce que tu veux, personnellement, j'adopterais une autre solution. Au lieu de charger sur un TImage ton image, charge là en mémoire dans un TGraphic qui tu affecteras au TImage. Le chargement dans le TGraphic se ferait dans le thread, sans Synchronize. Une fois chargé, il n'y aurait plus qu'à faire l'affectation, cette fois avec le Synchronize.

Est-ce que j'ai été clair ?

Un exemple, non testé, avec TBitmap :

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
 
 
  ThreadLoadImage = class(TThread)
  {...}
  lImage : TBitmap;
 
implementation
 
constructor ThreadLoadImage.Create(AFileName: String); 
begin 
  FreeOnTerminate := True; 
  inherited Create(True); 
  FileName :=AFileName;
end; 
 
procedure ThreadLoadImage.Execute; 
begin 
  lImage := TBitmap.Create;
  lImage.LoadFromFile(FileName);
  Synchronize(LoadImage); 
end; 
 
procedure ThreadLoadImage.LoadImage; 
begin 
  Form1.LEADImage1.Graphics := lImage;
end;

[skywaukers]

bonjour,

si tu fait le chargement dans le synchronize, c'est tout à fait normal que ton application se fige, puisqu'elle attend la fin du synchronize.
En fait, il faut que tu charge ton image en dehors du synchronize, dans un stream mémoire, et dans le synchronize, tu rempli ton composant à partir du stream.

@++
Dany

[KRis]

merci, grâce à vous je commence à comprendre le fonctionnement des threads.

avec un Timage ce code fonctionne parfaitement on dirait :

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
 
  ThreadLoadImage = class(TThread) 
  {...} 
  lImage : TBitmap; 
 
implementation 
 
constructor ThreadLoadImage.Create(AFileName: String); 
begin 
  FreeOnTerminate := True; 
  inherited Create(True); 
  FileName :=AFileName; 
end; 
 
procedure ThreadLoadImage.Execute; 
begin 
  lImage := TBitmap.Create; 
  lImage.LoadFromFile(FileName); 
  Synchronize(LoadImage); 
end; 
 
procedure ThreadLoadImage.LoadImage; 
begin 
[b]  Form1.Image1.Picture.Bitmap := lImage;[/b]
end;