Rafraichir un StringGrid à partir d'un thread

**iubito** · 23/08/2007, 12h20

Salut,

j'ai un thread qui tourne en boucle pour scruter un répertoire où il a des fichiers à traiter.

Le programme principal crée un fichier à traiter, puis insère une ligne dans un StringGrid juste pour information.

Code :

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

1
2
ID | nom du fichier | état
 1 | fichier1.pdf   | En attente

La boucle de mon thread :

Code :

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

1
2
3
4
5
6
- repère la ligne du StringGrid, on l'appellera index
- maForm.monGrid.cells[index, 2] = 'Traitement en cours...'
- fait le traitement
- maForm.monGrid.cells[index, 2] = 'OK'
- sleep 1 seconde
- supprime la ligne n° index

Problème : mon StringGrid n'est jamais rafraichi !!! Il reste immobile, seule le programme principal y ajoute des lignes, tout ce que fait le thread c'est du vent.

j'ai beau ajouter des maForm.monGrid.refresh
ou des Application.ProcessMessages
rien n'y fait

Alors j'ai fait un essai avec un label dont je modifie la propriété Caption dans ma boucle, et là ça marche !!!
Le code n'a rien de bien tordu, les exemples que je vois sur internet, avec une ProgressBar ne sont pas plus compliqués que ça.

Que se passe-t'il alors sur ce StringGrid pour qu'il ne veuille pas se mettre à jour ?
Comment y remédier ?

Merci d'avance

**Pedro** · 23/08/2007, 13h22

Salut

Utilises-tu Synchronize lors des ajouts et rafraichissements depuis le Thread?

**iubito** · 23/08/2007, 13h33

J'ai pas réussi à comprendre comment l'utiliser.

précision : je suis en delphi 7

est-ce que je dois mettre tout le contenu de mon Execute dans une autre fonction et que le code d'Execute devienne juste Synchronise(l'autre fonction) ?

le checksynchronize j'ai pas compris

**ShaiLeTroll** · 23/08/2007, 13h50

Biensur, le code executé en parallèle doit être dans le Execute, tout le code qui manipule la TStringGrid doit être dans une méthode séparé sans paramètre qui est envoyé via Synchronize, tu peux utiliser un ensemble de variable membre de l'objet thread pour échanger des paramètres entre le Execute et la Méthode qui gère la TStringGrid ... maintenant, vu que tu fais un Sync, j'ignore l'intérêt du thread ... l'autre solution peut être d'utiliser une TThreadList contenant les informations à mettre à jour, et via un PostThreadMessage, le Thread VCL va lire la liste ...

tout ce qui est exécuté dans le Create est en fait executé dans le thread principal, et non pas dans le nouveau Thread ...

ensuite manipuler des composants VCL du thread principal depuis un autre thread c'est s'exposé aux EOSError 1400 : Handle de Fenêtre Invalide ... du fait qu'un handle en cours d'utilisation par le Thread a été realloué par la VCL (RecreateWnd par exemple) et donc à changer ...

l'Appel à Application.ProcessMessages n'est pas non plus une bonne idée, puisqu'il va traiter les messages (cela peut être utile voir PumpMessage fourni ci dessous) mais il va les dispatcher à la MainForm et ActiveForm, des variables qui ne sont pas protégés pour les accès multi-thread ... cela peut provoquer des comportements imprévisibles ... même si cela reste rarissime

Ensuite CheckSynchronize n'est pas utile, c'est appelé automatiquement durant le Idle de l'application, c'est lui qui va consulter la liste de pointeur de méthode empilé par les appels de Synchronize dans les différents Thread ...

Code :

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

1
2
3
4
5
6
7
8
9
procedure PumpMessages;
var
   Msg: TMsg;
begin
     while PeekMessage(Msg, 0, 0, 0, pm_Remove) do begin
           TranslateMessage(Msg);
           DispatchMessage(Msg);
     end;
end;

**Pedro** · 23/08/2007, 13h56

Envoyé par iubito

J'ai pas réussi à comprendre comment l'utiliser.

précision : je suis en delphi 7

En fait, comme le dit ShaiLeTroll, dès que tu fais appel à un objet de ta VCL depuis un thread autre que le principal, il faut utiliser Synchronize.
Il faut l'utiliser de cette façon:

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
 
procedure AfficheValeur;//Pas de paramètre!
begin
  maForm.MaGrille.Cells[X,Y] := 'Youpi';
  maForm.MaGrille.Update;//Peut-être pas nécessaire
end;
 
...
 
procedure TMonThread.Execute;
begin
...
Synchronize(AfficheValeur);
...
end;

A vérifier mais dans l'ensemble, c'est comme ça que ça marche.
Note: il est possible aussi de passer une fonction à paramètre dans Synchronize mais c'est un peu plus complexe... Et surtout je ne me souviens plus comment on fait

**ShaiLeTroll** · 23/08/2007, 14h04

Pour reprendre l'exemple, pour répondre à la problématique des paramètres (faut soit même faire sa TProcList et gérer la paramètres sous forme de list de pointeur ou tableau, ... prise de tête)

Petite correction AfficheValeur est une méthode de TMonThread !!! Attention à cela

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
 
type 
  TMonThread = class(TThread)
  private
    FParam1: string;
    FParam2: TPoint;
    ...
  protected 
    AfficheValuer;
  public
    procedure Execute; override;
  end;
  ...
 
procedure TMonThread.AfficheValeur; //Pas de paramètre!
begin
  maForm.MaGrille.Cells[FParam2.X,FParam2.Y] := FParam1;
end;
 
...
 
procedure TMonThread.Execute;
begin
...
  FParam1 := 'Youpi'
  FParam2.X := 100;
  FParam2.Y := 50;
  Synchronize(AfficheValeur);
...
end;

**iubito** · 23/08/2007, 14h27

Merci pour vos réponses, j'ai bien fait comme ça mais ça ne marche pas

Voici mon code un peu plus simplifié (pour lecture)

Code delphi :

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
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
  EnvoiPDFThread = class(TThread)
  private
    etat: string;
    index: integer;
    procedure RemoveLine(StrGrid: TStringGrid; Row: Integer);
    procedure effaceLigne;
    procedure majEtat;
    { Déclarations privées }
  protected
    procedure Execute; override;
    procedure envoie1PDF(sendID: integer);
  public
    constructor Create;
  end;
 
constructor EnvoiPDFThread.Create;
begin
  inherited Create(true); //créé suspendu
  etat := 'En attente';
  //Détruire à la sortie
  FreeOnTerminate := True;
end;
 
procedure EnvoiPDFThread.Execute;
begin
  while true do
  begin
    //boucle sur les fichiers PDF
    //quand trouve un fichier, l'envoyer !
    envoie1PDF(identifiant_du_fichier);
 
    if y''a plus de PDF then
    begin //cache le StringGrid sur le formulaire
      main.FicMain.panelKiContientLeGrid.visible := false; //<--- ça marche !
      suspend;
    end;
  end;
end;
 
procedure EnvoiPDFThread.envoie1PDF(sendID: integer);
begin
    //recherche sa ligne dans le StringGrid
    //on obtient alors index = 0 <- première ligne, 1 <- 2e ligne...
    index := 0;
 
    etat := 'Traitement en cours...';
    Synchronize(majEtat);
    //...
    etat := 'Envoi...';
    Synchronize(majEtat);
    //...
    etat := 'OK';
    Synchronize(majEtat);
    sleep(500); //Juste le temps de voir que c''est OK
    Synchronize(effaceLigne); //efface la ligne du string grid
end;
 
procedure EnvoiPDFThread.majEtat;
(* met à jour l'état de la ligne en cours *)
begin
  main.FicMain.envois.cells[index, 2] := etat;
  main.FicMain.envois.Update;
end;

Pour être complet, le petit bout de code qui (re-)démarre le thread

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
//à l'initialisation de l'appli, création du thread
  threadEnvoiPDF := EnvoiPDFThread.Create();
 
//quand on click sur le bouton Envoyer,
//sauvegarde l'image à l'écran dans un PDF et envoie
  main.FicMain.panelKiContientLeGrid.Visible := true;
  //...ajoute une ligne avec les informations
  //...crée le fichier PDF dans le répertoire
  if (threadEnvoiPDF.Suspended) then
    threadEnvoiPDF.Resume;

Keskikloche ?

Rafraichir un StringGrid à partir d'un thread

Composants VCL Delphi

Vue hybride

Discussions similaires

Partager

Partager