Discussion :

[Volpe80]

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 :

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

[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 ?

[Volpe80]

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 :



Le code est simple :

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

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

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.

[Volpe80]

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.