Discussion :

[donnadieujulien]

Bonjour,

j'ai des problèmes de memory leak après activation de sharemem.

Au début, le code qui pose problème était le suivant:

Code :

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

1
2
3
4
5
6
7
8
9
10
function TCompoCustom.TBitmapToTGPBitmap(DBitmap:TBitmap):TGPBitmap;
var
  stream:TMemoryStream;
begin
 
  stream := TMemoryStream.Create;
  DBitmap.SaveToStream(stream);
  Result := TGPBitmap.Create(TStreamAdapter.Create(stream));
 
end;

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
TCompoCustom.paint;
var
  OGraphics:TGPGraphics;
  tampon:TBitmap;
 
begin
tampon:=nil;
..........
tampon:=TBItmap.create();
OGraphics:=TGPGraphics.Create(Canvas.Handle);
OGraphics.SetSmoothingMode(SmoothingModeAntiAlias);
OGraphics.SetCompositingQuality(QualityModeHigh);
OGraphics.DrawImage(TBitmapToTGPBitmap(tampon),0,0);
 
try if tampon<>nil then FreeAndNil(tampon); except end;
try FreeAndNil(OGraphics); except end;

Ce code générait des memory leak, je l'ai donc modifié comme ceci:

Code :

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

1
2
3
4
5
6
7
8
9
10
function TCompoCustom.TBitmapToTGPBitmap(DBitmap:TBitmap;stream:TMemoryStream;StreamAdapter:TStreamAdapter):TGPBitmap;
 
begin
 
  stream := TMemoryStream.Create;
  DBitmap.SaveToStream(stream);
  StreamAdapter:=TStreamAdapter.Create(stream)
  Result := TGPBitmap.Create(StreamAdapter);
 
end;

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
TCompoCustom.paint;
var
  OGraphics:TGPGraphics;
  stream:TMemoryStream;
  StreamAdapter:TStreamAdapter
  tampon:TBitmap;
begin
tampon:=nil;
..........
tampon:=TBitmap.create();
OGraphics:=TGPGraphics.Create(Canvas.Handle);
OGraphics.SetSmoothingMode(SmoothingModeAntiAlias);
OGraphics.SetCompositingQuality(QualityModeHigh);
OGraphics.DrawImage(TBitmapToTGPBitmap(tampon,stream,StreamAdapter),0,0);
 
try if tampon<>nil then FreeAndNil(tampon); except end;
try FreeAndNil(stream); except end;
try FreeAndNil(StreamAdapter); except end;
try FreeAndNil(OGraphics); except end;

Et la toujours un problème de leak....

Je ne comprend pas, car même si ca parait un peu bancal de déclarer des var dans un pâint pour les allouer dynamiquement dans une fonction, les variables sont bien libérées....

Quelqu'un pourrait t'il me mettre sur la voie svp, il semblerait que quelque chose m'échappe dans la gestion de la mémoire
Merci

[Linkin]

L'objet retourné par TBitmapToTGPBitmap n'est jamais liberé.

[donnadieujulien]

oui tu as raison, j'ai oublié de préciser que j'avais aussi testé ca.

Code :

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

1
2
3
tampon2:=TBitmapToTGPBitmap(tampon,stream,StreamAdapter);
...........
FreeAndNil(tampon2);

ca me sort une erreur également, qui viendrait de la libération apparement...

[Linkin]

Dans ton code, il manque la déclaration et la création de tampon, mais je ne pense pas que ça vienne de là.

Par contre les try except sur les destructeurs sont inutiles. Si tu as des exceptions dessus, c'est qu'il y a un autre problème.

Par contre au niveau logique de programmation, je ferais plus:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
function TCompoCustom.TBitmapToTGPBitmap(DBitmap:TBitmap):TGPBitmap;  
var
  StreamAdapter:TStreamAdapter;
  Stream:TMemoryStream;
begin 
  Stream := TMemoryStream.Create;
  DBitmap.SaveToStream(Stream);
  StreamAdapter:=TStreamAdapter.Create(Stream)
  Result := TGPBitmap.Create(StreamAdapter);
  StreamAdapter.Free;
  Stream.Free;
end;

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
 
TCompoCustom.paint;
var
  OGraphics:TGPGraphics;
GPBitmap:TGPBitmap;
begin
tampon:=nil;
..........
OGraphics:=TGPGraphics.Create(Canvas.Handle);
OGraphics.SetSmoothingMode(SmoothingModeAntiAlias);
OGraphics.SetCompositingQuality(QualityModeHigh);
GPBitmap := TBitmapToTGPBitmap(tampon);
OGraphics.DrawImage(GPBitmap,0,0);
GPBitmap.Free;
 
if Assigned(nil) then FreeAndNil(tampon);
FreeAndNil(OGraphics);

[nuxtay]

Salut,
Moi ce qui me dérange c'est Tampon := nil...
Quand tu fais un FreeAndNil(Tampon)...ben en fait il se passe rien, pas de handle pour le FreeAndNil...
C'est peut-être ceci que tu devrais utiliser Tampon.FreeImage;
@+

[donnadieujulien]

Dans ton code, il manque la déclaration et la création de tampon, mais je ne pense pas que ça vienne de là.

Lol effectivement le tampon est bien crée dans le paint, c'était un oubli de ma part dans le topic.