Assigned(MonObjet) provoque un EAccessViolation

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : Assigned(MonObjet) provoque un EAccessViolation

el zozo

Stroumf Grognon

J'ai un objet de type TDOMDocument.
A un moment, je souhaite tester son existence (pour le réinitialiser) mais voilà! j'ai une violation d'accès.

Le code peut se resumer ainsi:

TExercice
protected
XMLexercice : TDomDocument;
public
constructor create;
procedure Reinitialisation
end;

constructor TExercice.create;
begin
XMLexercice := TDomDocument.create;
end;

procedure TExercice.Reinitialisation;
begin
if assigned(XMLexercice) then //[#ff2a00]ça plante ici[/#ff2a00]
XMLExercice.free;

XMLexercice := TDomDocument.create;
end;

Le résultat est le même en remplaçant "if assigned(XMLExercice)" par "if XMLexerice=nil" et je ne comprend pas comment un test aussi basique peut générer un plantage [:wardrone]

Durant une execution pas à pas, lorsque je passe la sourie sur XMLexercice, on me dit "valeur inaccessible". Par contre, le code passse bien par le contructeur avant et l'objet est utilisable (et utilisé sans être détruit) à ce moment.

Message édité par el zozo le 10-11-2007 à 12:10:15

---------------
Si vous êtes enseignant en maternelle ou primaire, mon boulot peut vous interesser.

Publicité

KangOl

Profil : pointeur

la méthode Free est une méthode spéciale : elle ne plante pas sur les objets à nil. tu n'as donc pas besoin de vérifier la validité du pointeur avant de désalouer la mémoire.

Message cité 1 fois

el zozo

Stroumf Grognon

KangOl a écrit :

la méthode Free est une méthode spéciale : elle ne plante pas sur les objets à nil. tu n'as donc pas besoin de vérifier la validité du pointeur avant de désalouer la mémoire.

Tien! Je savais pas, ça!
Mais pour le coup, ça plante quand même. On dirait que j'arrive à avoir un pointeur corrompu. [:calimero]
Je supose que ça vien d'un mélange maleureux entre l'architecture COM et mon pauvre Delphi7, mais je pige pas

Message édité par el zozo le 10-11-2007 à 12:11:31

---------------
Si vous êtes enseignant en maternelle ou primaire, mon boulot peut vous interesser.

KangOl

Profil : pointeur

au fait pour les DomDocument et autres XMLDocument, faut passer par les Interfaces et donc ne pas liberer la mémoire soi-même.

Code :

procedure foo;
var
xml : IXMLDocument; //< notez le "I"
begin
xml := TXMLDocument.Create(nil);
doStuff(xml);
// pas de liberation mémoire, vu qu'on est en présence d'un objet interfacé
end;

Message édité par KangOl le 10-11-2007 à 14:32:12

el zozo

Stroumf Grognon

Si on ne la libère pas "soit même", quand la libère t-on, alors?
La question n'est pas optionnelle : je compte bien ouvrir et fermer un max de document XML. Et en Delphi32, point de ramasse miettes

Dans le cas d'objet et d'interfaces "normale", pas de lézard. Si TMonObjet implémente IMonInterface, la méthode TMonObjet.Create alloue la mémoire et TMonObjet.free la libère.

Pour les XMLDocument, j'ai déjà fait une mécanique similaire (valais mieux : j'ouvrais et fermais 5000 documents) : Je crée un TDomDocument, j'en tire une IXMLDocument (via la méthode DéfaultInterface) et pour libérer la mémoire, j'utilise le Free du TDomDocument

Sauf qu'en fait, je m'y perd entre les divers versions des MSXML et que je sais plus quelle version j'utilisais à l'époque :-/

Message cité 1 fois
Message édité par el zozo le 10-11-2007 à 14:57:46

---------------
Si vous êtes enseignant en maternelle ou primaire, mon boulot peut vous interesser.

antp

Super Administrateur
Champion des excuses bidons

el zozo a écrit :

Et en Delphi32, point de ramasse miettes

Avec les interfaces, si, justement.
Pour forcer la libération de l'objet il faut juste assigner son pointeur à nil.

Au passage, quand tu fais un Free sur un objet il ne vaut toujours pas nil, il faut utiliser FreeAndNil(objet) ou l'assigner à nil après le Free.

Message cité 1 fois

---------------
mes programmes ·· les voitures dans les films ·· apprenez à écrire

el zozo

Stroumf Grognon

antp a écrit :

Merci maître :jap:

Spoiler :

J'crois que je vais me barrer et aller élever les ornithorynque en Australie. Ça m'évitera les crise de nerf [:alph-one]

---------------
Si vous êtes enseignant en maternelle ou primaire, mon boulot peut vous interesser.

FORUM HardWare.fr

Programmation

Delphi/Pascal

Assigned(MonObjet) provoque un EAccessViolation

Sujets relatifs
[c/c++/dll]Pourquoi ce programme provoque une erreur (windows)?
Plus de sujets relatifs à : Assigned(MonObjet) provoque un EAccessViolation

Page générée en 0.039 secondes