XML operation de pointer incorrect

Version imprimable

Bonjour, je charge un xml et à l'éxecution j'ai le message "operation de pointeur incorrect" à la fin de cette procedure, je ne trouve pas pourquoi. J'ai tout viré dedans et sa continue. Je crée le XML sans souçi dans la même unité. Merci à vous grand professionnel de l'informatique :ave: en pas a pas sa m'emmène dans "Classes" et sa plante dans "procedure TInterfaceList.Clear;"
Si je commente la ligne rouge je n'ai plus l'erreur.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 Procedure LoadFromXML(sFileName: String); Var PackagesXML: TXMLDocument; PackagesListNode: IXMLNode; Begin PackagesXML := TXMLDocument.Create(Nil); Try PackagesXML.FileName := sFileName; PackagesXML.Active := True; PackagesListNode := PackagesXML.ChildNodes.First; // get root node PackagesXML.Active := False; Finally PackagesXML.Free; End; End;

Deux Solutions possibles :
- Soit tu ajoutes un Owner, cela améliora la gestion du comptage de référence du noeud racine
- Soit tu libères explicitement le noeud via ClearDocumentRef

Voici un exemple des deux solutions : [XML] TXMLDocument dans une DLL de 2007, le même problème que toi dans
un sujet de 2010 : [XML] Erreur à la fermeture du programme ayant une unité de liaison XML qui s'est résolu par la même réponse de 2007

en théorie
Code:

1 2 3 4 5 6 7 8 RootNode := PackagesXML.Node; // En général, j'utilise celui là ! PackagesListNode := RootNode.ChildNodes.First(); Finally (RootNode as IXMLNodeAccess).ClearDocumentRef(); PackagesXML.Free; End;

Tu me sauve, j'ai fait comme sa :

Code:

1
2
3
4
5
6
7
8
9
10
11
 
  PackagesXML := TXMLDocument.Create(sFileName);
  Try
    PackagesXML.Active   := True;
    PackagesListNode     := PackagesXML.ChildNodes.First; // get root node
    ...
    PackagesXML.Active   := False;
  Finally
    (PackagesListNode as IXMLNodeAccess).ClearDocumentRef;
    PackagesXML := NIL;
  End;

Merci beaucoup. :mrgreen:

03/08/2011, 17h43
ouiouioui

J'ai répondu trop vite, une fois tout dé commenté je me suis pris une exception, du coup j'ai testé de viré les with utiliser des variable node libéré comme le root sans succès donc j'ai opté pour ta solution du TComponent temporaire. Et la c'est bon !

L'écriture se fait sans owner et je n'ai pas de souci c'est pénible cette façon de l'utiliser :aie:

Si TXMLDocument n'a pas de propriétaire, il se comporte comme une interface. Tu fais à mon avis 2 libérations. Je coderais cette procédure ainsi (sans Free) :
Code:

1 2 3 4 5 6 7 8 9 10 Procedure LoadFromXML(sFileName: String); Var PackagesXML: IXMLDocument; PackagesListNode: IXMLNode; Begin PackagesXML := TXMLDocument.Create(Nil); PackagesXML.LoadFromFile(sFileName); PackagesListNode := PackagesXML.DocumentElement; // get root node ... End;

03/08/2011, 19h02
ouiouioui

Voila j'ai corrigé avec ta proposition et je n'ai plus d'erreur et sa permet de se passer du TComponent. Je mélange composant et interface ce n'est pas clair faut que je lise un peu je crois ...

Lors de la sauvegarde je faisais pareil sans que sa ne provoque d'erreur j'ai corrigé avec IXMLDocument.

Un grand MERCI, tu ne vois pas dans le noir ? Parce que à force d'aider tout le monde sur le forum comme tu le fait tu va choper une auréole:ange:
04/08/2011, 10h21
ShaiLeTroll

Citation:

Envoyé par ouiouioui

J'ai répondu trop vite

En même temps, tu n'as pas recopié ce que j'avais recommandé,
tu n'as pas fait attention à l'utilisation d'un RootNode intermédiaire pour stocker PackagesXML.Node et non PackagesXML.ChildNodes.First !
Le ClearDocumentRef devant être fait sur Node (qui est encore au dessus de DocumentElement) et non sur ChildNodes.First.

Sinon la solution par Interface fonctionne très bien aussi, perso, je trouvais cela intolérable que cela ne fonctionne pas en Objet, je n'aime pas me résoudre à une solution alternative sans comprendre l'origine d'un problème !

Moi ça fait bien longtemps que je n'utilise plus TXMLDocument... J'ai jamais trop aimé le mélange des interfaces quand même possédées par un TComponent.

J'utilise IXMLDOMDocument directement, avec quelques routines facilitant le chargement et l'enregistrement.

Du coup chez moi le code précédent donnerait ceci :
Code:

1 2 3 4 5 6 7 8 9 procedure LoadFromXML(sFileName: String); var PackagesXML: IXMLDOMDocument; PackagesListNode: IXMLNode; begin PackagesXML := LoadXMLDocumentFromFile(sFileName); PackagesListNode := PackagesXML.DocumentElement; // get root node ... end;
Et les routines d'enregistrement supportent l'encodage propre en UTF-8 ainsi que l'indentation du XML enregistré, ce qui est, je trouve, indispensable.