Discussion :

[couiss]

Bonsoir,

je souhaite intégrer à mon programme une fenêtre d'attente permettant de faire patienter l'utilisateur pendant des process plus ou moins long (application réseau avec base de données)...

J'ai bien créé ma fiche avec un timer et un progressbar, lorsque je teste l'affichage de la fiche tout se passe bien mais lorsque j'affiche la fenêtre en phase fonctionnelle si la fenêtre s'affiche, aucune progression n'est visible.

J'ai lu des infos ici et là sur les threads et je pense que c'est la solution qu'il me faut, cependant je n'arrive pas à comprendre la mise en place de thread.

Auriez-vous des informations à me communiquer concernant les threads, des codes les concerants, bref les exemples qui me manquent afin que je comprenne...

Je prends aussi si vous avez une autre solution à me proposer.

Merci d'avance, Couiss

[zemeilleurofgreg]

Donc si je comprend bien, la fenêtre d'attente s'affiche bien mais aucune progression dans la progressbar ?

As-tu essayé de mettre un

Code :

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

Application.ProcessMessage

avant la modification de la position de la progressBar ?

[couiss]

Oui, en fait je vais vous mettre le code tel que je l'ai pensé :

Code :

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

1
2
3
4
5
6
7
8
9
10
 
  if form4.ShowModal=idyes then
  begin
    form2.Label1.Caption:='Traitement en cours...';
    form2.Show;
    application.ProcessMessages;
    {traitement de la tâche}
    form2.Hide;
    application.ProcessMessages;
  end;

avec form4 une fiche de dialogue et form2 ma fiche d'attente dont le code est :

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
 
procedure TForm2.FormShow(Sender: TObject);
begin
  timer1.Enabled:=true;
end;
 
procedure TForm2.Timer1Timer(Sender: TObject);
begin
  if form2.ProgressBar1.Position>=form2.Progressbar1.Max then form2.Progressbar1.Position:=form2.Progressbar1.Min
  else form2.Progressbar1.Position:=form2.Progressbar1.Position+1;
  application.ProcessMessages;
end;
 
procedure TForm2.FormHide(Sender: TObject);
begin
  label1.Caption:='';
  progressbar1.Position:=0;
  timer1.Enabled:=false;
end;

Voilà qui pourra vous aider à comprendre ma manière de faire actuelle.

Et pendant la tâche à traiter, je n'ai pas la possibilité de mettre des "application.ProcessMessages;" et donc ma fiche d'attente n'est pas réactualisée... c'est pour cela que j'avais pensé aux threads.

A bientôt, Couiss

[Franck SORIANO]

Et pendant la tâche à traiter, je n'ai pas la possibilité de mettre des "application.ProcessMessages;" et donc ma fiche d'attente n'est pas réactualisée... c'est pour cela que j'avais pensé aux threads.

Si tu ne peux pas faire de Application.ProcessMessages pendant ton traitement tu ne risques pas d'avoir la moindre progression sur Form2.

Dans ce cas effectivement, la seule façon d'afficher une progression serait d'utiliser le multi-threading. Je te suggère alors d'effectuer le traitement long dans un thread secondaire.
De cette façon, tu pourras avoir facilement le thread principal qui traite les messages windows et le thread secondaire qui effectue le traitement long.

Attention cependant à ce que tu fais dans le traitement long. Si tu travailles avec des objets COM (genre si tu utilises ADO), il ne faudra pas oublier d'appeler CoInitiaize dans le thread secondaire...

[couiss]

Oui c'est exactement pour cela que j'en ai besoin...

Le soucis c'est que je ne comprends pas comment utiliser les threads, j'ai lu la théorie dans la FAQ, j'ai crée mon objet thread mais je ne sais pas quel code mettre (au départ, j'avais pensé mettre le code de la fiche d'attente).

De plus, je n'ai pas la moindre idée de comment synchroniser le thread et le prog principale, de comment l'appeler, de comment le terminer, ...

Bref, beaucoup de question qui sont encore flou car je n'ai pas trouvé d'exemple de code qui me serait utile.

Couiss

[ShaiLeTroll]

Pour un Thread, il faut juste mettre une boucle dans une surcharge de la méthode Execute
Pour la File d'Attente, voir la TThreadList !
Attention, il ne faut pas manipuler une Form depuis un Thread, pas plus qu'utiliser Application.ProcessMessages au risque d'avoir des OS Error 1400 - Handle Invalide !
Il faut passer par Synchronize dans ce cas, ou différent les traitements par un PostThreadMessage ...

[couiss]

Compris pour les diverses mises en garde...

En ce qui concerne les threads :

- doit-on obligatoirement mettre une boucle dans TThread.Execute ?

- si j'ai bien compris, il vaut mieux execute le code de traitement dans les threads plutôt que les mises à jour de fiche telle pour une fiche d'attente ?

- peut-on passer des paramètres de ou vers les threads ?

- peut-on modifier des variables du programme principal via un thread ?

Voilà pour les premières questions (enfin les premières avec un semblant de compréhension de ma part lol), je vais faire des tests grâce à vos réponses et reviendrai par ici sous peu.

Merci et à bientôt, Couiss

[ShaiLeTroll]

- doit-on obligatoirement mettre une boucle dans TThread.Execute ?

Non, tu peux lancer une tache, qui ne doit se faire qu'une seule fois ... par exemple, le download d'un fichier, tu lance juste le Get dans le Execute, et basta ...

- si j'ai bien compris, il vaut mieux execute le code de traitement dans les threads plutôt que les mises à jour de fiche telle pour une fiche d'attente ?

Tout dépend du traitement, l'ergonomie souhaité dans l'application, j'ai bcp de programme où l'utilisateur patiente devant une barre de progression parce que le traitement tourne et dure un peu, et régulièrement cela fait un StepIt

- peut-on passer des paramètres de ou vers les threads ?
?

Tu peux passer tes paramètres au Constructeur (une surcharge du Create), tu les stock en propriété privée que le Execute utilisera

- peut-on modifier des variables du programme principal via un thread ?

Oui, tu peux protéger tes modifications par un TCriticalSection ou TMultiReadExclusiveWriteSynchronizer, pour facilité l'écriture, met toutes ces variables dans un objet, avec des propriétés, les Accesseurs Get\Set se chargeant du ThreadSafe ...

[couiss]

Bon alors ça fonctionne très bien lorsque je mets l'action dans le thread, avec le coinitialize et le uncoinitialize, ...

Mais en fait, l'action actuelle est de créer les répertoires, les fichier de configuration, le fichier ACCESS, l'ensemble des tables et les enregistrements par défaut, ...

Le fait de mettre l'action dans le thread ne me permets pas de savoir quand la création est terminée et c'est la mon problème car à la suite de cette génération, le programme (la partie utilisateur) démarre !!!

C'est pourquoi je pense qu'il faudrait que je mette mon attente dans le thread et la génération dans le programme principal ; dites moi si je me trompe dans mon analyse.

C'est la que je suis bloqué, je ne sais comment faire. Pourriez-vous encore me donner un coup de pouce ?

Merci d'avance, Couiss

[ShaiLeTroll]

Je ne comprends pas alors le besoin d'un Thread si l'opération au final est bloquante pour l'utilisateur ...

Pour ne pas mettre plutôt un SplashScreen (comme Delphi) avec un libellé d'action et\ou une Barre de Progression (comme Delphi 200x), restant afficher tout le temps du démarrage de l'application ... l'utilisateur ira chercher son café pendant ce temps ...

Si le Thread est obligatoire, tu ajoute une boucle après la création du Thread 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
ObjThread := TBiduleThread.Create(Param1, Param2); // Créé en Suspended à False et FreeOnTerminate à False aussi
try
  Patience.Thread := ObjThread;
  Patience.Show(); // une fenêtre sans bouton fermer pour faire patientez, voire un echange de Message via PostThreadMessage ou Synchronize pour la Progression, ou via un Objet protégé via Section Critique
  while not ObjThread.Terminated do // mettre Terminated à True à la fin du Execute
  begin
    Sleep(1);
    Patience.Refresh(); // une surchage du Refresh va lire l'objet protégé via Section Critique, contenant la Position, le Max de la ProgressBar et\ou un libellé ...
    Application.ProcessMessages();
  end;
finally
  ObjThread.Free();
end;

[couiss]

Salut,

en fait voici le déroulement que j'avais pensé...

- splashscreen durant lequel :

• - création des variables globales ;
• - des dossiers et fichiers de configuration ;
• - vérification des licences.

- affichage de la fiche principale

• - si fichier de données (BDD) attachée alors démarrage OK ;
• - sinon :
  
  • - sélection du dossier de données ou
  • - création des dossiers, fichiers de données ou
  • - restauration (recherche d'une sauvegarde).

La discussion actuelle porte sur les actions en gras...

Mes actions sont correctements programmées, ma fiche d'attente aussi mais les actions ne permettent pas une réactualisation correcte de la fiche d'attente et donc l'utilisateur voit une fiche d'attente statique, cela me dérange un peu.

Mon souhait serait que la fiche d'attente ne soit pas statique mais que l'utilisateur ne puisse continuer tant que l'ensemble des dossiers/fichiers ait été créés.

Ce n'est peut-être pas les threads qui sont la bonnes méthodes ici, je reste ouvert à d'autres propositions.

Merci, Couiss

[couiss]

Merci beaucoup,

j'ai appris à utiliser les threads grâce à vos explications et je vous en remercie.

En espérant que ça aide tout le monde.

Je tag résolu car mon problème n'en est plus un.

Couiss