Message "Veuillez patienter" pour une tâche un peu longue

Version imprimable

04/04/2011, 10h45
Paul TOTH

1 pièce(s) jointe(s)

Message "Veuillez patienter" pour une tâche un peu longue

Voici une démonstration de l'utilisation d'une fenêtre "Veuillez patienter" à déclenchement automatique.

le principe est d'appeler WaitForm.Submit() en lui passant en paramètre une méthode à soumettre. Celle-ci s'execute dans un Thread secondaire, si elle prend plus de 2 secondes, une fenêtre "Veuillez patienter" s'affiche avec un bouton Annuler qui permet de stopper la procédure. Sinon la fenêtre s'efface automatiquement en fin de tâche.

Pour les besoins de l'exemple, on parcours les fichiers de C:\, avec un sleep pour ralentir le code si vous cochez la case "Ralentir" afin que la fenêtre "Veuillez patienter" s'affiche.

Une console est également affichée pour permettre de suivre le déroulement de la tâche soumise.

J'utilise cette technique dans une application qui effectue des requêtes SQL qui sont parfois longues, parfois très rapides, WaitForm s'occupe de tout ! ;)

Pièce jointe 75479
04/04/2011, 13h55
GoustiFruit

Roh, mais ça m'a l'air excellent ça... et ça tombe à point :mrgreen:

Merci M'sieur !
04/04/2011, 21h01
JustMe

C'est un immense plaisir de me retrouver avec vous dans un même forum Mr PAUL
06/04/2011, 15h17
freud

Bonjour,

Existe-t-il un équivalent en D7 ?

En tous cas merci pour la contrib
06/04/2011, 15h25
freud

Oups ! ca fonctionne en D7. Fallait essayer avant de poster.
Je pensais que c'était pour les version récente de Delphi
06/04/2011, 15h34
Paul TOTH

c'est fait sous Delphi 6 mais ça doit fonctionner avec à peu près toutes les versions :)
06/04/2011, 15h39
freud

Encore merci Paul :ccool:

Voici une autre version avec fonctions BeginThread,EndThread ...

Code:

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
interface
 
uses
  Windows, Messages, Controls, Forms,Dialogs;
 
type
   TProcess= procedure of object;
 
function Submit(Process: TProcess): integer;
 
implementation
type
   PProcess=^TProcess;
function StartMe(Hwnd: HWND): integer;
begin
  Result := 0;
  with FindControl(Hwnd) do
  try
     PProcess(Tag)^;
  except
    Result := -1;
  end;
  PostMessage(Hwnd,WM_CLOSE,0,0);
  EndThread(Result);
end;
 
function Submit(Process: TProcess): integer;
var
 FThread :Cardinal;
begin
  with CreateMessageDialog('Veuillez patienter...', mtCustom, [mbAbort])do
  try
       Tag:=Integer(@@Process);
       FThread := BeginThread(nil,0,@StartMe,Pointer(Handle),0,PDWord(nil)^);
       if WaitForSingleObject(FThread,2000) = WAIT_TIMEOUT then
         if ShowModal()= mrAbort then
            TerminateThread(FThread, DWORD(-1));
       WaitForSingleObject(FThread,INFINITE);
       GetExitCodeThread(FThread, PDWord(@Result)^) ;
       CloseHandle(FThread);
  finally
     Free;
  end;
end;
 
end.

08/04/2011, 19h21
Paul TOTH

intéressant, mais la même chose sans transtypage ésotérique serait plus portable :)

n'oublie pas que Embarcadero nous prépare un Delphi 64 bits ;)
09/04/2011, 00h30
freud

Super ! j'aurais besoin de ça
Merci Montor :ccool:
21/03/2012, 12h19
safailizabet

Citation:

Envoyé par Paul TOTH

Voici une démonstration de l'utilisation d'une fenêtre "Veuillez patienter" à déclenchement automatique.

le principe est d'appeler WaitForm.Submit() en lui passant en paramètre une méthode à soumettre. Celle-ci s'execute dans un Thread secondaire, si elle prend plus de 2 secondes, une fenêtre "Veuillez patienter" s'affiche avec un bouton Annuler qui permet de stopper la procédure. Sinon la fenêtre s'efface automatiquement en fin de tâche.

Pour les besoins de l'exemple, on parcours les fichiers de C:\, avec un sleep pour ralentir le code si vous cochez la case "Ralentir" afin que la fenêtre "Veuillez patienter" s'affiche.

Une console est également affichée pour permettre de suivre le déroulement de la tâche soumise.

J'utilise cette technique dans une application qui effectue des requêtes SQL qui sont parfois longues, parfois très rapides, WaitForm s'occupe de tout ! ;)

Pièce jointe 75479

bonjour j'ai le même problème mon application établi un traitement très long et je qu'une progressebare s’affiche cependant ce traitement votre idée aussi me plait ms je sais pas comment créer un waitform dans le vb.net
merci de me répondre
22/03/2012, 06h46
Paul TOTH

Citation:

Envoyé par safailizabet

bonjour j'ai le même problème mon application établi un traitement très long et je qu'une progressebare s’affiche cependant ce traitement votre idée aussi me plait ms je sais pas comment créer un waitform dans le vb.net
merci de me répondre

sans doute faut-il poser la question sur le forum VB !

ou vous mettre à Delphi...je suis revendeur :D
01/07/2016, 13h45
babey

Ajouter un progress bar au waitform

Merci Paul pour le tuto très instructif.
Je voudrais rajouté un progress bar sur la fiche waitform.
Des indications svp.
Merci
01/07/2016, 22h45
Paul TOTH
Bonsoir,

pour les progressbar j'utilise toujours la même technique:

- le thread utilise un PostMessage(Form.Handle, WM_USER, Position, Maxi);

- la fiche capte l'événement pour mettre à jour la progressbar
Code:

1 2 3 4 5 6 procedure TForm1.WMUser(var Msg: TMessage); // message WM_USER begin ProgressBar.Max := Msg.lParam; ProgressBar.Position := Msg.wParam; end;
le fait d'utiliser un PostMessage() évite de bloquer le Thread, par contre cela peut générer un grand nombre de messages pour rien (selon le traitement...) dans ce cas il suffit d'adapter comme ceci, où "MODULO" indique le nombre de positions à sauter avant de mettre à jour la progressbar.
Code:

1 2 3 if (Position mod MODULO) = 0 then PostMessage(Form.HAndle, WM_USER, Position, Maxi);