Comment annuler une opération en cours ?

Version imprimable

15/11/2005, 13h43
Sydaze

Comment annuler une opération en cours ?

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
15/11/2005, 13h46
Pedro
Salut :D
Oui c'est possible en utilisant Application.ProcessMessages et une variable générale...
Sur le OnClick du bouton Annuler, tu mets:
Code:

1 2 Variable:=false;
et dans le traitement, tu vérifie le plus souvent possible si
Code:

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...
15/11/2005, 13h56
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.
15/11/2005, 14h01
Pedro

Citation:

Envoyé par Sydaze

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. ;)
15/11/2005, 14h45
Sydaze

ca ne fonctionne pas car je ne parviens pas à cliquer sur le bouton pendant le traitement, donc la variable ne passe pas à false.
15/11/2005, 14h52
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
15/11/2005, 14h52
Pedro

Salut :D
Est-ce que tu fais des Application.ProcessMessages le plus souvent possible pendant le traitement?
15/11/2005, 14h54
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
15/11/2005, 14h54
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
15/11/2005, 15h09
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.
15/11/2005, 15h35
Pedro

Citation:

Envoyé par Sydaze

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...
15/11/2005, 15h54
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.

Oui bien sur:

-Pour le traitement :

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
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:

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

15/11/2005, 15h57
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
15/11/2005, 18h25
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
16/11/2005, 09h01
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.
16/11/2005, 09h09
Rayek

Citation:

Envoyé par Sydaze

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.
16/11/2005, 09h14
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.