Discussion :

[Sydaze]

Bonjour,
Est t'il possible de faire en sorte que l'utilisateur puisse agir sur l'interface pendant une opération afin de l'annuler (quand le curseur prend la forme d'un sablier)?
Par exemple lors de l'exécution d'une requête longue ou bien lors d'un tri de valeur dans un énorme tableau.

Merci

[Pedro]

Salut
Oui c'est possible en utilisant Application.ProcessMessages et une variable générale...
Sur le OnClick du bouton Annuler, tu mets:

Code :

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

1
2
 
Variable:=false;

et dans le traitement, tu vérifie le plus souvent possible si

Code :

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

1
2
 
if Variable then //le ctraitement peut continuer

Pour que le traitement du OnClick du bouton soit effectué, il faut faire des Application.ProcessMessages dans le traitement... N'oublie pas non plus d'initialiser Variable à true avant de commencer

Il y a aussi la méthode des threads...

[Sydaze]

Ok, compris pour la première méthode. Je te remercie. En quelque sorte il faut forcer l'application à écouter de temps en temps ce qui se passe dans la fenêtre.

[Pedro]

Je te remercie. En quelque sorte il faut forcer l'application à écouter de temps en temps ce qui se passe dans la fenêtre.

C'est exactement ça: Application.ProcessMessages provoque le traitement des messages en attente... Donc le click du bouton, ou un Repaint, etc.

[Sydaze]

ca ne fonctionne pas car je ne parviens pas à cliquer sur le bouton pendant le traitement, donc la variable ne passe pas à false.

[anapurna]

salut

lors d'une requette ton appli n'as plus la main
vu que tu demande a un serveur

j'avais vu une methode a l'aide thread mais je ne peut plus te dire ou

@+ Phil

[Pedro]

Salut
Est-ce que tu fais des Application.ProcessMessages le plus souvent possible pendant le traitement?

[bjl]

Bonjour,

il faut passer sur l'instruction pendant ton traitement, par exemple si ton traitement comprend une boucle, il faut appeler application.processmessage dans cette boucle.

par contre, çà augment le temps de traitement

[Sydaze]

oui j'en ai mis pas mal mais rien n'y fait, l'appli ne veux pas laisser le click du bouton s'effectuer.
arg... le faite que cela soit une requete pourrait expliquer cela

[Sydaze]

J'ai placé un TactionList et la ça fonctionne sur l'appuie d'une touche, lorsque le premier Application.ProcessMessages est atteint le traitement est quitté ce qui montre que l'appuie d'une touche est prise en compte.
Apparemment le problème vient du fait que l'application ne me laisse pas cliquer sur le bouton pendant le traitement.

[Pedro]

Apparemment le problème vient du fait que l'application ne me laisse pas cliquer sur le bouton pendant le traitement.

C'est étonnant... Normalement, c'est à ça que sert Application.Processmessages... Tu pourrais montrer un peu de code? En particulier, le code de traitement (écourté) pui le OnClick du bouton...

[Rayek]

Si tu utilises des composants ADO pour tes requetes, il te suffit de passer le composant ADO en mode asynchrone pour eviter le bloquage de l'appli.
Après il te reste a mettre en route une fonction d'annulation de la requete quand tu clics sur le bouton.

[Sydaze]

Oui bien sur:

-Pour le traitement :

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
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
for i := 0 to numart - 1 do
  begin
  application.ProcessMessages;
  codice := qrystamp.Fields[0].AsString;
  if ling = 'Italiano' then
   begin
   ekrtf1.OutFile := dirstec +  '\Temp\Italiano\' + ansirightstr(codice,4) + '_' + mskTot.Text + '.doc';
   pdftempout :=  dirstec +  '\Temp\Italiano\' + ansirightstr(codice,4) + '_' + mskTot.Text + '.pdf';
  application.ProcessMessages;
   prelim;
  application.ProcessMessages;
   end
  else if ling = 'Inglese' then
   begin
   ekrtf1.OutFile := dirstec +  '\Temp\Inglese\' + ansirightstr(codice,4) + '_' + mskTot.Text + '.doc';
   pdftempout :=  dirstec +  '\Temp\Inglese\' + ansirightstr(codice,4) + '_' + mskTot.Text + '.pdf';
  application.ProcessMessages;
   prelimENG;
  application.ProcessMessages;
   end
  else if ling = 'Francese' then
   begin
   ekrtf1.OutFile := dirstec +  '\Temp\Francese\' + ansirightstr(codice,4) + '_' + mskTot.Text + '.doc';
   pdftempout :=  dirstec +  '\Temp\Francese\' + ansirightstr(codice,4) + '_' + mskTot.Text + '.pdf';
  application.ProcessMessages;
   prelimENG;
  application.ProcessMessages;
   end;
  //pour generer le PDF
  if chkPDF.Checked = true then
  begin
     SetPDFReg (0);
        period := true;
        ekrtf1.Execute([Qryvalnutr,Qrychim,qrymicro,qrycompo,qrycompo1,qryorgan,qrydim,
        qrycons,qrynote,qryconf,qryimgACCEP,qryimgRIGEP,qryimgBERSP,qryimgACCEK,qryimgRIGEK,qryimgBERSK,qrypack1,
        qrypack2,qrypack3,qrypack4,qrypack5,qrypack6]);
        period := false;
  end;
  if (rdSstand.Checked = true) and (chkPDF.Checked = false) then
    begin
      ekrtf1.Execute([Qryvalnutr,Qrychim,qrymicro,qrycompo,qrycompo1,qryorgan,qrydim,
        qrycons,qrynote,qryconf,qryimgACCEP,qryimgRIGEP,qryimgBERSP,qryimgACCEK,qryimgRIGEK,qryimgBERSK,qrypack1,
        qrypack2,qrypack3,qrypack4,qrypack5,qrypack6]);
    end;
  ekrtf1.VarList.Clear;
  scprog.Position := scprog.Position + 1;
  application.ProcessMessages;
  if mgannuler = true then
  begin
    toolbutton10.Enabled  := false;
    label8.Visible := false;
    break;
  end;
  qrystamp.Next;
  end;

-Pour le boutton:

Code :

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

1
2
3
4
procedure TfrmSchede.ToolButton10Click(Sender: TObject);
begin
  mgannuler := true;
end;

les fonctions prelim et prelimENG effectue chaqune une vingtaine de requete SQL

[Sydaze]

J'utilise les composants BDE pour les requete... je suis quasiment sur que c'est la que ca bloque, l'execution de la requete prend vraiment toute la main

[anapurna]

salut

regarde cet article
cela te donnera une idée de ce que tu doit faire

http://bloon.developpez.com/articles...requetethread/
ou celui la
http://bdn.borland.com/article/0,1410,16231,00.html

@+ Phil

[Sydaze]

Génial, ça fonctionne, merci.
Par simple curiosité, comment fait t'on pour accéder à tous les articles d'un thème? par exemple dans ce cas Delphi car je ne trouve pas cet article dans la liste proposée quand on clique sur l'onglet Delphi.

[Rayek]

les fonctions prelim et prelimENG effectue chaqune une vingtaine de requete SQL

Est ce qu'il ne vaudrait pas mieux optimiser ces deux fonctions, car faire 20 requetes, c'est clair que ca te bouffe un max de temps.
Il n'y a pas moyen de reduire le nombre de requetes, ca fera surement gagner pas mal de temps.

[Sydaze]

Non je ne peu pas optimiser le nombre de requêtes, en fait j'utilise TEkrtf pour éditer un document à partir de la base de donnée et chaque section du document édité est représenté par un dataset qui lui même est lié à un composant TQuery. Les requetes sont donc incontournables.