Discussion :

[ero-sennin]

Bonjour,

Actuellement, je cherche à comprendre le fonctionne des threads pour arriver à mon but, qui est la comprehension des sémaphores ainsi que les mutex.

Le hic, c'est que je suis loin d'avoir compris quoi que ce soit je crois
Alors, voilà mon soucis.

Je suis entrain de lire le PDF sur les threads de Laurent Berne et j'en suis à ses début.

Je crée mon thread comme ci dessous :

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
unit Unit2;
 
interface
 
uses
  Classes,Dialogs;
 
type
  thread1 = class(TThread)
  private
    { Déclarations privées }
  protected
    procedure Execute; override;
  end;
 
implementation
 
{ Important : les méthodes et propriétés des objets de la VCL peuvent uniquement
  être utilisés dans une méthode appelée en utilisant Synchronize, comme :
 
      Synchronize(UpdateCaption);
 
  où UpdateCaption serait de la forme 
 
    procedure thread1.UpdateCaption;
    begin
      Form1.Caption := 'Mis à jour dans un thread';
    end; }
 
{ thread1 }
 
procedure thread1.Execute;
begin
  ShowMessage('OK! Thread créé');
end;
 
end.

Puis, l'appel comme ceci :

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
unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs,Unit2, StdCtrls;
 
type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
  end;
 
var
  Form1: TForm1;
  MonThread:thread1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  MonThread:=thread1.Create(false);
end;
 
end.

Le hic, c'est que ma méthode ne fonctionne pas (ShowMessage) alors que la méthode de Laurent Berne (MessageBox) fonctionne ...
Quelqu'un peut m'expliquer le pourquoi ?

Merci bien

PS: En fait, le thread me fait des fenêtres non complète ... Rare sont les fois où ça fonctionne correctement...

[CapJack]

Parce que si je ne m'abuse (j'avais réécrit entièrement l'unité Dialogs il y a quelques années pour faire mon propre "look"), ShowMessage utilise des fiches (TMessageForm descendant de TForm), donc utilise la VCL qui n'est pas compatible avec le multithread. Alors qu'un appel direct au MessageBox de l'API Windows ne pose en principe aucun problème. Enfin, je crois modestement que c'est ça.

[ero-sennin]

Ah!

Pourtant, Lorsque je mets ceci :

Code :

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

1
2
3
4
5
procedure TForm1.Button1Click(Sender: TObject);
begin
  MonThread:=thread1.Create(false);
  MonThread.WaitFor;
end;

Ca fonctionne
Une explication ?

[CapJack]

Aucune, en ce qui me concerne... les mystères de la VCL.

[ShaiLeTroll]

Le WaitFor attend la fin de l'execution, donc bloque le thread principal, c'est logique que cela fonctionne ! l'objet Application vient pas mettre le foutoir parce qu'une fenêtre a été créé (ben WaitFor bloque vraiement, la boucle Run)

MessageBox n'est qu'une API windows, cela va créer une fenêtre indépendante (non Delphi), alors que ShowMessage va créer une fenêtre avec comme Owner le TApplication (je te laisse imaginer les partages mémoires), et va donc gérer tout le bousin, c'est à dire que depuis un Thread Secondaire tu modifie la variable globale Application (insertion dans liste components, notification, ...) du Thread Principal, ce qui évidemment sans Synchronize ou Section Critique est extrément risqué !

Deplus, lorsque ton application sera terminée, il peut parfois vouloir libérer ce ShowMessage, mais le Handle étant alloué dans un thread différent pour Window, il se sont pas valide, donc tu as en plus une Erreur OS 1400, ou une RunTime Error 26 ...


Pour surveiller un Thread, utilise un Fichier ou OutputDebugString, ou tout autre outil de log thread safe (ce sujet revient souvent sur le forum)

Ensuite, euh, afficher une fenêtre dans un Thread, euh, ben si la VCL pour ça n'est pas ThreadSafe comme le précise CapJack, c'est parce qu'afficher une fenêtre dans un Thread, ça se fait pas ! Donc inutile d'adapter les fonctions ...

[ero-sennin]

Coucou Shai ! ,

Le WaitFor attend la fin de l'execution, donc bloque le thread principal, c'est logique que cela fonctionne ! l'objet Application vient pas mettre le foutoir parce qu'une fenêtre a été créé (ben WaitFor bloque vraiement, la boucle Run).

Ah d'accord! C'est déjà plus clair.

MessageBox n'est qu'une API windows, cela va créer une fenêtre indépendante (non Delphi), alors que ShowMessage va créer une fenêtre avec comme Owner le TApplication (je te laisse imaginer les partages mémoires), et va donc gérer tout le bousin, c'est à dire que depuis un Thread Secondaire tu modifie la variable globale Application (insertion dans liste components, notification, ...) du Thread Principal, ce qui évidemment sans Synchronize ou Section Critique est extrément risqué !

Deplus, lorsque ton application sera terminée, il peut parfois vouloir libérer ce ShowMessage, mais le Handle étant alloué dans un thread différent pour Window, il se sont pas valide, donc tu as en plus une Erreur OS 1400, ou une RunTime Error 26 ....

Je comprends mieux le principe! Merci

Pour surveiller un Thread, utilise un Fichier ou OutputDebugString, ou tout autre outil de log thread safe (ce sujet revient souvent sur le forum)...

Je ferai une recherche sur tout ça pour les prochaines choses à venir

Ensuite, euh, afficher une fenêtre dans un Thread, euh, ben si la VCL pour ça n'est pas ThreadSafe comme le précise CapJack, c'est parce qu'afficher une fenêtre dans un Thread, ça se fait pas ! Donc inutile d'adapter les fonctions ...

En effet, afficher une fenêtre dans un thread c'est pas commun! Ba moi j'ai pas faire comme tout le monde (ah ah ah).
Plu sérieusement, je suis un tuto là dessus, et pour nous montrer la base d'un thread, on a pour exemple d'afficher un message...
Logiquement, les threads c'est surtout pour faire des calculs ou autre tache qui prennent du temps et qui ne nécessite aucune action de l'utilisateur ...

Bon, si je résume le tout, ne JAMAIS utiliser les éléments de la VCL dans un thread, utiliser les API Windows le plus souvent pour réduire les plantages et ... heu ... j'ai oublié un truc ou c'est bon ?

En tout cas, merci pour toutes ces infos!