Comment quitter proprement une application delphi?

Version imprimable

04/12/2013, 15h21
bbchess

Comment quitter proprement une application delphi?

Bonjour,
Je viens de créer une application avec Delphi7 perso.
Pas de problèmes avec l'application sous Delphi, mais qd je lance l'application hors environnement Delphi j'ai des problèmes pour quitter l'application;
ni la croix rouge en haut à gauche, ni le menu Quitter qui me mène soit à close, soit à application.terminate, aucun ne fonctionne de manière sûre. Parfois oui, parfois non et dans ce cas je n'ai plus qu'à utiliser Ctrl alt del.
Quelqu'un a-t-il une idée?
merci.
04/12/2013, 15h41
e-ric

Citation:

Parfois oui, parfois non et dans ce cas je n'ai plus qu'à utiliser Ctrl alt del.

ça marche presque :mouarf:

Il faut regarder les propriété de ta fiche principale, par exemple que vaut BorderStyle ?
Le menu Quitter n'apparaît pas par miracle, as-tu créé un menu dans ta fiche (composant TMenu) ?
Ton code comporte certainement des bizarreries, il est gros ton programme?
04/12/2013, 17h07
Paul TOTH

Citation:

Envoyé par bbchess

Bonjour,
Je viens de créer une application avec Delphi7 perso.
Pas de problèmes avec l'application sous Delphi, mais qd je lance l'application hors environnement Delphi j'ai des problèmes pour quitter l'application;
ni la croix rouge en haut à gauche, ni le menu Quitter qui me mène soit à close, soit à application.terminate, aucun ne fonctionne de manière sûre. Parfois oui, parfois non et dans ce cas je n'ai plus qu'à utiliser Ctrl alt del.
Quelqu'un a-t-il une idée?
merci.

on rencontre ce problème parfois avec un mauvais usage de Thread...serait-ce la cas ?
04/12/2013, 17h29
bbchess

finir un programme proprement

pour eric et paul
mon programme n'utilise pas de thread
Sa taille environ 3000 lignes
La plupart du temps il attend une action de l'opérateur
( touche sur une bouton ou autre ]
L'action finir le programme peut arriver dans une boucle d'attente
J'ai essayé application.destroy qui marche mais qui n'est pas propre et qui laisse des traces dans la mémoire de l'ordinateur.
(plus possible de compiler après avec le message 'impossible de créer le fichier xxx.exe')
Il doit y avoir le moyen de fermer toutes les demandes en cours et terminer proprement
merci de votre aide

dans la boucle d'attente

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
procedure ma_fonction_de_traitement ;
begin
...
 
bCloseAsk := false;
 
While "tant que je n'ai pas d'action" do
begin
  application.processmessages;
  sleep(10);
 
  if bCloseAsk then
   exit;
end;
 
....
 
end;

dans le closequery ou sur une autre action

Code:

1
2
 
bCloseAsk := true;

04/12/2013, 17h34
bbchess

suite a finir un programme proprement

pour eric j'ai en effet créer un menu déroulant avec un sous-menu quitter
et avec quitter1.click, j'ai essayé
- close
- application.terminate
-application.destroy
merci
04/12/2013, 18h50
e-ric

Citation:

J'ai essayé application.destroy qui marche mais qui n'est pas propre et qui laisse des traces dans la mémoire de l'ordinateur.
(plus possible de compiler après avec le message 'impossible de créer le fichier xxx.exe')

Cela veut dire que le programme n'a pas quitté la mémoire, tu ne peux donc pas l'écraser lors de la compilation suivante. Passe par la gestionnaire de tâches ou un outil comme ProcessExplorer pour tuer le processus encore en mémoire.

Citation:

j'ai en effet créer un menu déroulant avec un sous-menu quitter
et avec quitter1.click, j'ai essayé
- close
- application.terminate
-application.destroy

Avec tout ça, tu devrais avoir raison de la bête...
S'il s'agit du code de la fiche principale, l'appel à close devrait largement suffire. Il y a donc autre chose...

As-tu défini un gestionnaire OnCloseQuery dans la fiche principale ?

Rem : Je n'ai jamais utilisé application.destroy.

Au pire, envoie le code s'il n'est pas confidentiel.

@+
05/12/2013, 07h25
Paul TOTH

Citation:

Envoyé par bbchess

pour eric et paul
mon programme n'utilise pas de thread
Sa taille environ 3000 lignes
La plupart du temps il attend une action de l'opérateur
( touche sur une bouton ou autre ]
L'action finir le programme peut arriver dans une boucle d'attente
J'ai essayé application.destroy qui marche mais qui n'est pas propre et qui laisse des traces dans la mémoire de l'ordinateur.
(plus possible de compiler après avec le message 'impossible de créer le fichier xxx.exe')
Il doit y avoir le moyen de fermer toutes les demandes en cours et terminer proprement
merci de votre aide

de quelles boucles d'attente parles-tu ?!

Application.Terminate est suffisant il indique à Delphi de mettre fin à la boucle principale de traitement des messages Windows, la seule boucle d'attente que devrait avoir ton programme.
05/12/2013, 11h12
bbchess

quitter proprement résolu
après avoir essayer 10000 trucs j'ai enfin trouvé la solution.
Mon prgramme contenait de multiples boucles d'attente d'un événement (clic)
du style
Code:

1 2 3 repeat Application.ProcessMessages; until ClicArrive;
Lorsque le programme tourne dans cette boucle il ne répond pas aux sollicitation de quitter.
J'ai modifié en ajoutant un flag de sortie forcé, dans toutes mes boucles:
Code:

1 2 3 repeat Application.ProcessMessages; until ClicArrive or DemandeSortie;
et je positionne DemandeSortie à True dans ma procédure Quitter1.clic.

Il me semble que celà marche.

merci à tous

ps quelqu'un pourrait-il flagger le problème comme résolu, je ne vois pas le bouton qui va bien
[EDIT] C'est le bouton résolu :resolu: en bas de la discussion !
05/12/2013, 11h19
e-ric

Des boucles d'attente de clics????

Delphi étant basé sur l'événementiel, on voit mal la motivation de telles boucles.
Tu devrais peut-être mettre à plat le code et exploiter les mécanismes "normaux" de Delphi.
05/12/2013, 11h20
bbchess

probléme résolu, merci

j'oubliais de remercier spécialement Jeromelef2, qui m'avait donné la solution, mais que je n'avais pas lu assez attentivement.
05/12/2013, 11h51
Andnotor

Ce genre de boucle est idéal pour mettre un PC à plat. Tes utilisateurs ne vont pas te dire merci :calim2:
05/12/2013, 14h11
tourlourou

Citation:

Envoyé par Andnotor

Ce genre de boucle est idéal pour mettre un PC à plat.

Tu veux dire que ça le transforme en tablette ? :aie:

Sinon, un traitement long peut je pense légitimement boucler pour prendre en compte une demande d'interruption. Mais pour une attente d'action utilisateur, il y a sûrement une façon plus événementielle d'agencer le code pour obtenir le même effet, comme le suggérait e-ric.
05/12/2013, 14h32
Invité

Je pense qu'il faudrait utiliser les "procedure of object"
05/12/2013, 14h49
Fxg
Cela me fait plus penser à une strcture Turbo-Pascal avec
Code:

1 2 3 REPEAT ... UNTIL Keypressed
05/12/2013, 15h01
Andnotor

Citation:

Envoyé par tourlourou

Tu veux dire que ça le transforme en tablette ? :aie:

Sinon, un traitement long peut je pense légitimement boucler pour prendre en compte une demande d'interruption. Mais pour une attente d'action utilisateur, il y a sûrement une façon plus événementielle d'agencer le code pour obtenir le même effet, comme le suggérait e-ric.

J'ai sous la main une Surface Pro et elle sera moins vite à genoux que mon PC de bureau :mrgreen:

Sinon un traitement long, je le déporterais dans un thread. Application.ProcessMessages ne fait que ralentir l'ensemble en traitant également tous les messages (et il y en a un paquet) sans rapport avec le seul qui nous intéresse : l'appui sur le bouton "Stop". Le thread, tu pourras même le "booster" facilement en lui donnant une priorité supplémentaire ;)
05/12/2013, 15h05
e-ric

Citation:

Cela me fait plus penser à une strcture Turbo-Pascal avec

Pas bête ça, j'y pensais plus, serait-ce un portage à la sauvage ???

Fuseau horaire GMT +2. Il est actuellement 10h15.