Fuite mémoire dans l'unité XMLRead

Bonjour,

Heaptrc signale une fuite mémoire lors de l'utilisation de la fonction ReadXMLFile de l'unité XMLRead (FPC 2.6.4).
Voici le code:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

procedure ReadXMLFile(out ADoc: TXMLDocument; f: TStream; const ABaseURI: String); var Reader: TXMLTextReader; Src: TXMLCharSource; begin ADoc := nil; Reader := TXMLTextReader.Create; try Src := TXMLStreamInputSource.Create(f, False); Src.SystemID := ABaseURI; Reader.ProcessXML(Src); finally ADoc := TXMLDocument(Reader.doc); Reader.Free; end; end;

---

A la lecture du code, il semble qu'il manque un Src.Free; mais si je l'ajoute, j'obtiens une violation d'accès.
Je sèche...

J'ai un programme en court de dev qui utilise cette unité et je n'ai pas de fuite mémoire. Je suppose que Lazarus lui même doit dépendre pas mal de cette unité pour lire ses fichiers de config donc un bug me paraît peu probable.

Aurais tu un exemple complet qui provoque cette fuite ?

Citation:

---

Envoyé par yamer

J'ai un programme en court de dev qui utilise cette unité et je n'ai pas de fuite mémoire. Je suppose que Lazarus lui même doit dépendre pas mal de cette unité pour lire ses fichiers de config donc un bug me paraît peu probable.

Aurais tu un exemple complet qui provoque cette fuite ?

---

J'ai constitué un projet de test (cf. fichier zip joint).
Il suffit de cliquer sur le bouton 'Test' et quitter l'application pour voir :

Pièce jointe 196087

Le code est simple :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27

procedure TForm1.Button1Click(Sender: TObject); var XML: TXMLDocument; // use DOM unit begin XML:= TXMLDocument.Create; try ReadXML(XML, Memo1.Text); finally XML.Free; end; end;     procedure ReadXML(out XMLDoc: TXMLDocument; const Text: String); var Stream: TStringStream; begin if Length(Text) > 0 then begin Stream:= TStringStream.Create(Text); try ReadXMLFile(XMLDoc, Stream, 'stream:'); finally Stream.Free; end; end; end;

---

Sauf erreur de ma part...

Le message indiquant la fuite memoire est : 'line 41 of ujust4test.pas'. Et la ligne 41 de votre code correspond à : XML:= TXMLDocument.Create;

Or, manifestement cet objet est créé lors de l'appel à la fonction ReadXML: cf. ici par exemple (pour une autre version de cette fonction) http://wiki.freepascal.org/XML_Tutor...ng_a_text_node .

Conclusion: commentez/supprimez la ligne 41, et il ne devrait alors plus y avoir de fuite mémoire dans votre programme de test.

Citation:

---

Envoyé par FChrisF

Sauf erreur de ma part...

Le message indiquant la fuite memoire est : 'line 41 of ujust4test.pas'. Et la ligne 41 de votre code correspond à : XML:= TXMLDocument.Create;

Hors, manifestement cet objet est créé lors de l'appel à la fonction ReadXML: cf. ici par exemple (pour une autre version de cette fonction) http://wiki.freepascal.org/XML_Tutor...ng_a_text_node .

Conclusion: commentez/supprimez la ligne 41, et il ne devrait alors plus y avoir de fuite mémoire dans votre programme de test.

---

Effectivement, cela venait bien de cette ligne et non de la fonction ReadXML(). Dans ma recherche du problème j'avais commenté l'appel à ReadML() et la fuite ne se produisait plus, d’où mon erreur dans la mise en cause de cette fonction.
Un grand merci (une fois de plus) pour votre aide.