Discussion :

[franckcl]

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

[SergioMaster]

Bonjour,

peut-être en commançant par le mettre dans un bloc try.. finally .. end

Code :

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

1
2
3
4
5
6
     Stream := TStream.Create;
     try
       zip.Read(id,Stream,Header);
     finally  
       Stream.Free;
     end;

et en utilisant FreeAndNil(Stream) à la place ?

[franckcl]

Je viens de faire le test, ça ne change rien.

[franckcl]

Bon en fait, zip.Read créé l'objet Stream.
Si je retire simplement la ligne Stream:= TStream.create, je n'ai plus de message d'erreur.

[Paul TOTH]

Bon en fait, zip.Read créé l'objet Stream.
Si je retire simplement la ligne Stream:= TStream.create, je n'ai plus de message d'erreur.

it's a trap ! et oui, ton objet stream créé était remplacé par celui du ZIP sans le libérer...