Discussion :

[momofr]

Bonjour,

Je souhaite lancer un traitement (exécutable Delphi) en ligne de commande sans intervention d'utilisateur, la forme ne comporte que des "TLabel" et est destinée seulement à afficher l'état d'avancement du traitement.

Quand je mets le traitement dans l'évènement "OnShow", la forme est encore invisible.
Quand je le mets dans l'évènement "OnActivate", la forme est visible mais le contenu des "TLabel.Caption" que je renseigne n'est pas encore visible.

Je voudrais bien savoir dans quel évènement il faut que je mette mon traitement pour que les infos que je renseigne dans les "TLabel.Caption" de ma forme soient visibles.

Merci d'avance pour votre aide.

[sergio_is_back]

Bonjour,

Je souhaite lancer un traitement (exécutable Delphi) en ligne de commande sans intervention d'utilisateur, la forme ne comporte que des "TLabel" et est destinée seulement à afficher l'état d'avancement du traitement.

Quand je mets le traitement dans l'évènement "OnShow", la forme est encore invisible.
Quand je le mets dans l'évènement "OnActivate", la forme est visible mais le contenu des "TLabel.Caption" que je renseigne n'est pas encore visible.

Je voudrais bien savoir dans quel évènement il faut que je mette mon traitement pour que les infos que je renseigne dans les "TLabel.Caption" de ma forme soient visibles.

Merci d'avance pour votre aide.

Alors déjà en lançant un traitement lourd dans un événement qui se produit lors de l'affichage en fait tu bloque temporairement l'affichage (le re-dessin), c'est donc une très mauvaise façon de faire

Une solution élégante et efficace est de passer le traitement dans un thread qui serait instancié à l'affichage de la fiche (avec la classe TThread)

La solution la plus simple est de lancer le traitement sur un TTimer qui se déclenche lors sur OnActivate de la fiche

Mettre un TTimer sur ta fiche, choisir une valeur pour l'intervale (100 ms par exemple) et mettre à Enabled à False
Dans le OnActivacte de la fiche :

Timer1.Enabled:=True;

Puis dans l’événement OnTimer celui ci :

Timer1.Enabled:=False; (Pour ne pas lancer le traitement deux fois)
Puis faire ton traitement ou appeler la procédure la procédure qui le fait

Remarque qu'il faudra forcer le re-dessin de tes Tlabel avec des appels régulier à Application.ProcessMessages pour rafraichir l'affichage au cours du traitement car le traitement s'exécute quand même dans le thread principal de l'application et va donc bloquer le traitement des messages de rafraichissement des contrôles de ta fiche...

Tu peux aussi envisager le recours aux taches (voir la classe TTask) c'est aussi un moyen plus élégant de faire

[ShaiLeTroll]

Autre technique, un PostMessage depuis le OnCreate ou OnActivate (lui aussi faire le mettre à nil pour éviter qu'il se reproduise), le Message sera traité lorsque la fenêtre le pourra, ça revient à un TTimer qui fonctionne aussi sur une base de message.
Ensuite si le traitement est une boucle, tu peux le faire tourner directement alors que si le traitement est bloquant (genre une grosse requête SQL longue), voir la Parallélisation proposeé par sergio_is_back

[momofr]

Merci pour cette abondance de solutions.

J'ai mis mon traitement dans une procédure spécifique.
Cela fonctionne maintenant après avoir fait comme conseillé, c'est-à-dire après avoir ajouté :

- un timer activé dans "FormActivate",
- un "Application.ProcessMessages" après le chargement des "TLabel.Caption".

Si j'ai bien compris, le timer est la solution la plus simple, mais il existe deux solutions plus élégantes mais moins simples :

- un thread instancié à l'affichage de la fiche (avec la classe TThread),
- le recours aux taches (classe TTask).

Je ne connais pas encore et me documenterai à l'occasion.

[SergioMaster]

Bonjour

Si j'ai bien compris, le timer est la solution la plus simple, mais il existe deux solutions plus élégantes mais moins simples :

- un thread instancié à l'affichage de la fiche (avec la classe TThread),
- le recours aux taches (classe TTask).

Je ne connais pas encore et me documenterai à l'occasion.

Ne proscratinez pas, vous découvrirez un nouveau monde où vos fenêtres ne seront plus boquées par des traitements longs.
je vous conseille le visionnage des vidéos de Olaf Monien "Delphi CE Bootcamp 2018 Week 7 - Threading and Performance Tuning" sur Embarcadero Academy très pédagogiques et faciles a comprendre
malgré la barrière de la langue

[Gouyon]

Bonjour

Ne proscratinez pas, vous découvrirez un nouveau monde où vos fenêtres ne seront plus boquées par des traitements longs.
je vous conseille le visionnage des vidéos de Olaf Monien "Delphi CE Bootcamp 2018 Week 7 - Threading and Performance Tuning" sur Embarcadero Academy très pédagogiques et faciles a comprendre
malgré la barrière de la langue

Je confirme d'autant plus que c'est aussi le meilleur moyen de vérifier que le traitement "long" n'est pas planté en affichant régulièrement une progression par exemple.
Attention de bien mettre tous ce qui est affichage dans le thread principal en utilisant la méthode Synchronize

Un petit exemple:

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
 
procedure TCalculLong.execute;
var
  iprog:integer;
  Msg: string;
begin
for iprog:=0 to 10 do
 begin
   calcul;//routine de calcul qui prend du temps
   Synchronize(procedure
              begin
                Msg:=Format('Etape %d',[iprog]);
                Form1.DisplayR.Lines.Add(Msg);
              end);
 end;
 
end;

Cet exemple exécute un calcul long 10 fois et met dans un TMemo une ligne qui indique que le calcul a progressé

[momofr]

Bonjour,

Il y a aussi la technique du PostMessage de ShaiLeTroll.

Je vais finalement m'en tenir au Timer, simple à mettre en oeuvre et qui fonctionne parfaitement.
On verra plus tard pour les autres techniques.

Merci à tous