Bonjour,

J'ai un problème de libération de mémoire avec un TStream.

J'ai simplifié le code pour ici:
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
 
Var
  zip : TZipFile;
  xml : TMyXML;
  Stream: TStream;
  id : integer;
  header : TZipHeader;
begin
    zip := TZipFile.Create;
    zip.Open('test.zip',zmRead);
    id := zip.indexof('config.xml');
    if (id>-1) then
    Begin
       Stream := TStream.Create;
       zip.Read(id,Stream,Header);
       Stream.Free;
    End;
    zip.close;
    zip.free;
  End;
end;
J'ai activé la vérification de fuites mémoires à la sortie de l'application et j'ai le message suivant:

An unexpected memory leak has occured.
The unexpected small block leaks are:
1-12 bytes: Tstream x 76

Comment libérer l'espace occupé lors de la lecture du Zip.Read ?
Car à priori le problème vient bien de là ?

Merci