Discussion :

[JP CASSOU]

Piège classique avec le XML: déclarer en IXMLDocument et non TXMLDocument

Supprimer ce fil.

[ShaiLeTroll]

Autre astuce créer un TComponent factice qui sert de Owner de TXMLDocument ce qui change le comportement, cela le rapproche de la gestion mémoire avec une variable IXMLDocument qui fournit le compteur de référence.

Mette un Owner au TXMLDocument, évite la belle erreur à la libération ou sinon tu faut appeler explicitement ClearDocumentRef avec le Free
D'ailleurs le TXMLDocument avec Owner est plus stable dans sa gestion des références de ses interfaces qu'avec nil ... en D7 ... cela du changer, je pense au XPath où les noeuds sont libérés à peine récupérer.

Rien de neuf en somme !

Je vois que l'on utilise FindNode avec un Constructeur Fichier, je poursuis ce que disais Andnotor sur la VA et bizarrie de libération, interface ...

C'est effectivement pénible la gestion particulière avec le Owner et sans le Owner ...

Sans Owner, on peut faire pour éviter la VA

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
var
  Doc :TXMLDocument;

begin
  Doc := TXMLDocument.Create(nil);
  try
    Doc.LoadFromFile(aFileName);
    ...
  finally
     if Assigned(Node) then 
       (Doc.Node as IXMLNodeAccess).ClearDocumentRef();
     Doc.Free;
  end;
  
end;

Mais sabs Owner, la gestion des compteurs de références des interfaces c'est juste une misère ...

en particulier avec FindNode qui perd ses références , comme j'ai des objets XML construit dynamiquement sans Form ... j'ai fait dans le tordu ...

Code :

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

1
2
3
4
5
6
    XMLDoc := TXMLDocument.Create(TComponent.Create(nil)); // Le Owner stabilise les interfaces IXMLNode libéré à tord et à travers !
    try
      ...
    finally
      XMLDoc.Owner.Free();
    end;

Tu devrais réorganiser ton code et découper la lecture de chaque node en sous-fonction qui s'appelle mutuellement et remplisse le DataSet ...

Sinon le XML cela peut-être récursif, pour certaines des applis dont j'ai la maintenance en charge c'est ce qui se passe, une fois parti sur IXMLNode ou sur IXMLNodeList, il n'y a aucun soucis de parcours même pour les noeuds au nom similaire (je serais embêté sinon) ... je suis étonné de l'utilisation de NextSibling (basé sur FindSibling) qui est plus lent qu'un For ChildNodes ... as-tu eu des problèmes avec Count ?