Discussion :

[zano972]

Bonjour tout le monde,

Je rencontre un petit problème de libération d'objet créé dans une fonction qui se présente comme suit:

Code :

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

1
2
3
4
5
6
7
8
9
10
function Get_Sound(const HLib: cardinal; const SoundName: string): TMemoryStream;
var Flux: TResourceStream;
begin
  try
    Flux := TResourceStream.Create(HLib, SoundName, RT_RCDATA);
    Result := TMemoryStream.Create; Result.LoadFromStream(Flux);
  finally
    Flux.Free;
  end;
end;

Fonction simple mais qui me pose un souci de libération au niveau de l'objet TMemoryStream créé par Result car il est évident que si je veux récupérer les données du Flux dans un TMemoryStream à partir duquel je lirais les données plus tard, je ne peux pas faire un Result.free dans le corps de cette fonction (sinon j'aurais rien en sortie)

Ma question est donc la suivante: comment libérer l'objet créé par Result (hors de la fonction bien sur) pour pas laisser des cochonneries en mémoire à la fin du programme ?

En vous remerciant par avance, bonne continuation et A+++

[tourlourou]

Du moment que tu conserves une référence au stream dans une variable, sa libération ne pose pas de problème. Sinon...

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
var
  MySoundStream: TMemoryStream;
begin
  MySoundStream := Get_Sound(1; 'alarm');
  //...
  MySoundStream.Free; // libère le flux créé dans la fonction
 
//........................................
 
  MySoundStream := TMemoryStream.Create;
  //...
  MySoundStream.LoadFromStream(Get_Sound(1; 'alarm')); // appel simple sans conserver de référence
  //...
  MySoundStream.Free; // ne libère pas le flux créé dans la fonction
end;

[zano972]

Ah d'accord tourlourou et merci pour l'explication.

A+++