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

[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 !

Submit.zip

[GoustiFruit]

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

Merci M'sieur !

[JustMe]

C'est un immense plaisir de me retrouver avec vous dans un même forum Mr PAUL

[freud]

Bonjour,

Existe-t-il un équivalent en D7 ?

En tous cas merci pour la contrib

[freud]

Oups ! ca fonctionne en D7. Fallait essayer avant de poster.
Je pensais que c'était pour les version récente de Delphi

[Paul TOTH]

c'est fait sous Delphi 6 mais ça doit fonctionner avec à peu près toutes les versions

[freud]

Encore merci Paul

[Montor]

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.

[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

[freud]

Super ! j'aurais besoin de ça
Merci Montor

[safailizabet]

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

[Paul TOTH]

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