Discussion :

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

[e-ric]

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

ça marche presque

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?

[Paul TOTH]

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 ?

[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

[jeromelef2]

dans la boucle d'attente

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

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

1
2
 
bCloseAsk := true;

[bbchess]

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

[e-ric]

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.

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.

@+

[Paul TOTH]

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.

[bbchess]

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 :

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

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 :

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

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 en bas de la discussion !

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

[bbchess]

j'oubliais de remercier spécialement Jeromelef2, qui m'avait donné la solution, mais que je n'avais pas lu assez attentivement.

[Andnotor]

Ce genre de boucle est idéal pour mettre un PC à plat. Tes utilisateurs ne vont pas te dire merci

[tourlourou]

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

Tu veux dire que ça le transforme en tablette ?

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.

[Invité]

Je pense qu'il faudrait utiliser les "procedure of object"

[Fxg]

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

Code :

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

1
2
3
REPEAT
...
UNTIL Keypressed

[Andnotor]

Tu veux dire que ça le transforme en tablette ?

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

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

[e-ric]

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

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