Discussion :

[nefertari]

Bonjour,

j'ai une application qui provoque ce message :

"****.exe a généré des erreurs et sera fermé par windows. vous devrez redémarrer le programme."

hors je n'ai aucun autre message qui pourrais me mettre sur une piste, ce message apparait quelques fois à la fermeture.

Auriez-vous une idée de ce qui pourrais provoquer ce message ?

merci par avance

[Clorish]

quel genre d'application fait tu ?
Chargement DLL, ActiveX, Base de données, Ole, ... ?

[nefertari]

BD SQL server 2000.

application sous Delphi 7.

[Clorish]

verifie que toutes les connections a la base dedonnée soient bien close avant la fermeture du programme.
De meme, les transactions doivent etre terminées et validees je suppose.

[nefertari]

Les connections à la base sont bien close maintenant, j'ai rajouté le code sur les DataSources.

Et sur cette interface, il n'y a aucune validation, je fais que de l'affichage.

Malgré cela j'ai toujours le message d'erreur .

[Clorish]

Alors la je ne sais pas

[nefertari]

merci quand même de ton aide, je vais continuer mes recherches....

[MarcS]

Bonjour,
as tu essayé eurekalog ?
Je ne suis pas certain que cet ad on s'applique à ton cas mais c'est à essayer.

Bonne journée
MS

[Bruno Orsier]

tu pourrais peut-être utiliser procmon http://www.microsoft.com/technet/sys...ssmonitor.mspx pour surveiller ton programme en temps réel, et regarder au moment ou ca plante si procmon n'indique pas des codes d'erreurs particuliers (accès registres, fichiers...)

Sinon, les problèmes à la fermeture peuvent venir d'erreurs de libération d'objets (ex si on appelle Free deux fois sur le même objet, ou bien si on utilise un objet après l'avoir déjà libéré). Si le problème est assez reproductible, une méthode est de commenter certaines parties du code jusqu'à isoler la zone fautive.

Bruno

[Clorish]

(ex si on appelle Free deux fois sur le même objet [...] )

Simple precision : LE principe de free est justement (contrairement a destroy) de tester si l'instance a liberer est valide ou non.
De ce fait si le mode de liberation de l'objet est respecté, un appel a free sur un objet libere n'entraine pas d'erreur

[Bruno Orsier]

Simple precision : LE principe de free est justement (contrairement a destroy) de tester si l'instance a liberer est valide ou non.
De ce fait si le mode de liberation de l'objet est respecté, un appel a free sur un objet libere n'entraine pas d'erreur

non, Free vérifie seulement si le pointeur n'est pas nil, et appelle Destroy, sinon ne fait rien.

Code :

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

1
2
3
4
5
6
 
procedure TObject.Free;
begin
  if Self <> nil then
    Destroy;
end;

Free ne met donc pas le pointeur à nil, c'est pour ca que FreeAndNil a été introduit d'ailleurs.

Le code ci-dessous plante avec EInvalidPointerOperation

Code :

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

1
2
3
4
 
  x := TStringList.Create ;
  x.Free ;
  x.Free ;

Bruno