Discussion :

[syphon22]

Bonsoir à tous,

j'ai un soucis depuis plusieurs jours : j'ai créer un Thread dans mon projet et j'aimerais savoir comment déclencher et appeler des événements.

Une des événements servirait à écrire des logs dans un fichier texte et l'autre ajouter une ligne à une ListBox, donc depuis le Thread il faudrait déclencher l'événement avec comme paramètre un string "status".

Le problème étant le suivant : je n'ai jamais créer d'événements (à part événement button.OnClick, etc...) et ne sait pas par ou commencer, j'ai bien évidemment chercher de longues heures sur Google mais je n'arrive à rien.

En espérant avoir été explicite et recevoir une réponse au plus vite, je vous souhaite à tous une excellente soirée.

[Franck SORIANO]

Bon, en un mot tu commences par définir le prototype qu'aura le gestionnaire d'événement en définissant un type "procedure of object" :

Code :

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

1
2
3
 
type
  TNotifyMessage = procedure(sender : TObject; Msg : string) of object;

Puis dans l'objet qui va déclencher l'événement, tu déclares une propriété avec le type que tu as déclaré :

Code :

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

1
2
3
4
5
6
7
 
type
  TMonThread = class(Thread)
  private
    FOnMessage : TNotifyMessage;
  public
    property OnMessage : TNotifyMessage read FOnMessage write FOnMessage;

Ensuite pour déclencher l'événement, tu te contentes d'appeler le gestionnaire d'événement. Attention, avant de faire l'appel, il faut tester s'il a été assigné.

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
  TMonThread = class(Thread)
  private
    FOnMessage : TNotifyMessage;
  protected
    procedure DoMessage(msg : string); virtual;
  public
    property OnMessage : TNotifyMessage read FOnMessage write FOnMessage;
  end;
 
...
 
procedure TMonThread.DoMessage(msg : string);
begin
  if Assigned(FOnMessage)
  then FOnMessage(self, msg);
end;

Attention cependant, ça c'est la gestion des événements classique de Delphi.
Dans ton cas de figure, tu te trouves dans un Thread !
Lorsque le thread va déclencher l'événement, le gestionnaire d'événement associé va s'exécuter dans le contexte du thread. C'est à dire que c'est le thread qui exécute le gestionnaire de l'événement.
Tu dois donc respecter les même contraintes que pour le thread. En particulier, tu ne dois pas manipuler de composants visuels de la VCL dans le gestionnaire d'événement. Ca veut aussi dire que tu ne dois pas écrire dans la listbox depuis le thread secondaire.

Donc a ta place, je ne travaillerais pas avec des événements. Je définirais plutôt un TStrings dans le thread pour mémoriser les messages à loguer, puis je posterais un message windows au thread pricipale pour lui dire que la liste a changé et qu'il faut venir la lire pour traiter les nouveaux messages (attention à bien gérer l'exclusion mutuelle sur cette liste intermédiaire).

[syphon22]

Bonjour,

merci pour cette réponse et désolé pour la réponse tardive. Je suis aux études et je suis de retour au bureau pour 1 ou 2 semaines de travail car je suis en vacances...

Tu dis qu'à ma place du ferais pas comme ca... Pourrais-tu m'expliquer de manière plus claire, comment tu ferais pour 1, loguer les infos et 2, ajouter une sorte de "status" à ma ListBox ?

Encore merci pour cette réponse,
syphon

[syphon22]

Bonjour,

merci pour cette réponse et désolé pour la réponse tardive. Je suis aux études et je suis de retour au bureau pour 1 ou 2 semaines de travail car je suis en vacances...

Tu dis qu'à ma place du ferais pas comme ca... Pourrais-tu m'expliquer de manière plus claire, comment tu ferais pour 1, loguer les infos et 2, ajouter une sorte de "status" à ma ListBox ?

Encore merci pour cette réponse,
syphon

Encore une chose, pour être plus précis :

J'exécute un thread depuis mon Main (fenêtre principale) et j'aimerais mettre à jour une ListBox de ce Main après chaque opération et loguer les infos dans un fichier texte que je modifie depuis le Main.

D'avance merci pour vos messages