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