Discussion :

[arkhamon]

Bonjour,
j'ai un soft qui s'amuse a balayer des sous repertoires. LE lancement se fait via un bouton avec la methode "click" associee, et les affichages se font dans la form principale.
Je voudrais le stopper. j'ai donc mis des "application.processmessages" un peu partout et j'ai un bouton auquel j'ai associe le code suivant :

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
 
procedure TForm1.stopperClick(Sender: TObject);
begin
  {$i-} closefile(fi); {$i+} if ioresult <>  0 then;
  {$i-} closefile(fi2); {$i+} if ioresult <>  0 then;
  showmessage('');
  form1.Close;
end;
 
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  if lbatches <> nil then lbatches.Free;
  if lbatches <> nil then lheures.Free;
  action := cafree;
end;

Les closefile c'est juste pour fermer d'eventuels fichiers ouverts.
quand je clique dessus, ca affiche bien un message vide, mais apres ca reprend l'execution la ou ca s'etait interrompu. Pareil si je mets application.terminate au lieu du close.
je mets aussi la methode formclose au cas ou ca aiderait.

[maamar1979]

salam,

tu ecrit directement ceci

Code :

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

1
2
3
4
procedure TForm1.stopperClick(Sender: TObject);
begin
Application.terminate
end;

à la fermeture tous tes fichier seront automatiquement fermer.

[arkhamon]

ca marche pas plus : je clique et ca s'arrete pas.

[maamar1979]

dit nous plus sur ton appli

[arkhamon]

j'ai un bouton avec une methode click.
quand je clique dessus, j'execute une autre procedure qui fait le traitement. Dans cette procedure je mets les application.processmessages...

Tiens je pense a unn truc, ca serait pour ca que ca veut pas s'arreter ? On peut peut etre interrompre une methode, mais peut etre pas uneprocedure appelee par une methode. Je vais essayer de ce pas en gerant une sorte de ressource.

[Clorish]

E nfait le processus d'arret de l'applciation genere un evenement via la methode close.

Donc tant que ton application n'auras pas terminé la gestion de l'evenemetn qui a declanché la recherche, l'application suspendra la fermeture de l'application, qui prendra effet uen fois l'evenement terminé.

En fait, je te conseille surtout de tester au sein de ta boucle de recherche une variable booleene, qui passée a "true" aurra pour effet d'arreter la recherche.

Dans Sur ton bouton "stopper" tu vas donc basculer cette variable a true, puis faire un close.

L'application se terminera des la recherche stoppée (apres analyse de la variable booleene.

Une autre alternative serait de Threader cette recherche .... mais cela ne t'empecheras pas de devoir stopper le thread avant de fermet l'application.

[arkhamon]

tout a fait exact : apparemment, la methode close declenche bien la fermeture de l'appli, mais pas si l'execution se situe autre part que dans une methode. J'ai cree un boolean que je mets a faux, et quand je clique sur "stopper" je la mets a vrai.
Ensuite, dans ma procedure appelee par la methode "traiter", je fais un test "si vrai" alors exit, et la ca marche. Merci a tous !

reste en suspens : est il possible de forcer l'arret meme si on se trouve dans une procedure qui n'est pas directement une methode ?

[devyan]

Bonjour,

Dans ce cas il faut gérer dans ton code de traitement "long" des cas d'arrêts pour interrompre la fonction de recherche.

j'ai donc mis des "application.processmessages" un peu partout et j'ai un bouton auquel j'ai associe le code suivant :

[Clorish]

reste en suspens : est il possible de forcer l'arret meme si on se trouve dans une procedure qui n'est pas directement une methode ?

Proprement ? Je ne sais pas.
Mais si il y a une solution c'est bien du coté des Thread. Il doit etre possible d'arreter un Thread en cours d'execution ....

L'ideal etant quand meme de prevoir un point d'arret dans les procedures longues.

Pour moi, des qu'une procedure dure un peu trop longtemps, je prevois un point d'entree qui permet a un utilisateur ulterieur, ne possedant pas forcement le code source, d'annuler le traitement.

Mais si tu utilise une API ou une methode dont tu n'as pas le code source, cela sera dur.