Discussion :

[ouiouioui]

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

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

[ShaiLeTroll]

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 :

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

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;

[ouiouioui]

Tu me sauve, j'ai fait comme sa :

Code :

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

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.

[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

[Andnotor]

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 :

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

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;

[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

[ShaiLeTroll]

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 !

[sjrd]

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 :

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

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.