Comment libérer un objet TStream ?

Bonjour,

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

J'ai simplifié le code pour ici:

Code:

---

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

Bonjour,

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

Code:

---

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 ?

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

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.

Citation:

---

Envoyé par 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.

---

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