Problème de perte de mémoire avec l'instruction "Resample" de la bibliothèque TBGRABitmap

**ChPr** · 03/06/2019, 16h08

Bonjour à toutes et à tous,

Je suis en train de réaliser une application GPS dont l'affichage est géré à l'aide de la bibliothèque TBGRABitmap. J'obtiens un affichage relativement fluide, sur le déplacement, la rotation et le ré-échantillonnage de mon image, sauf qu'à chaque rafraichissement de mon image (toutes les secondes), je perds de l'ordre de 1 ko de mémoire, ce qui fait qu'au bout de quelques centaines de secondes, l'application plante !

Dans la procédure suivante que j'emploie pour afficher mon image, j'ai réussi à trouver le coupable : c'est la fonction "Resample". Est-ce moi qui ne l'utilise pas correctement ou bien est-ce lié à cette fonction ?

Merci pour vos informations.

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
22
procedure TAffCarte.PaintBoxPaint(Sender: TObject);
// *** la PaintBox est repainte ***
var
  LBmp: TBGRABitmap;
begin
  LBmp := TBGRABitmap.Create(PaintBox.Width, PaintBox.Height, BGRAWhite);
  try
    LBmp.PutImageAngle(Dec0.X-Depl.X, Dec0.Y-Depl.Y, bmpCarte, tckbAngle.Position,
    AffXdiv2-(Dec0.X-Depl.X), AffYdiv2-(Dec0.Y-Depl.Y),
    $FF, DecalApresRot, False); // Déplacement et rotation
    kZoom:= tckbResample.Position / 100;
    HG.X:= Round((1-kZoom)*(AffXdiv2));
    HG.Y:= Round((1-kZoom)*(AffYdiv2));
    LBmp := LBmp.Resample(Round(Lbmp.Width * kZoom), Round(LBmp.Height* kZoom), rmSimpleStretch) as TBGRABitmap; // Zoom
    LBmp.Draw(PaintBox.Canvas, HG.X, HG.Y, False); // Trace la carte avec ses déplacements, zoom et rotation
    LBmp.Free;
  except
    LBmp.Free;
  end;
  Mem:= GetHeapStatus; // A chaque tour, je perd environ 1 ko de mémoire
  Edit5.Text:= IntToStr(Mem.TotalFree);
end;

Cordialement.

Pierre

Invité · 03/06/2019, 16h17

Bonjour Pierre,

sans aucune certitude, un FreeAndNil(LBmp) au lieu d'un LBmp.free change-t-il quelque chose au problème ?

Cordialement. Gilles

**ChPr** · 03/06/2019, 16h22

Envoyé par Selzig

... sans aucune certitude, un FreeAndNil(LBmp) au lieu d'un LBmp.free change-t-il quelque chose au problème ? ...

J'avais déjà essayé, et malheureusement, cela ne change rien.

Cordialement.

Pierre

**Jipété** · 03/06/2019, 17h45

Yop !

Pas de solution au plantage, d'autant plus que 1 ko de conso ce n'est pas la mer à boire, en tablant sur un millier de passages (supérieur donc à tes quelques centaines) ça ne ferait jamais qu'un méga, tu devrais avoir de la marge, à notre époque.

Par contre, un objet qui doit être créé toutes les secondes pour être un peu utilisé puis libéré et on recommence, je trouve ça un peu idiot.

Perso, sur un coup pareil, je fais sa création dans le FormCreate et sa libération dans le FormClose, et à chaque tour de boucle, puisqu'il s'agit d'un bitmap (avec une déclaration globale), je commence par un .FreeImage.

À voir.

**BeanzMaster** · 03/06/2019, 21h49

Salut BGRABitmap est un peu bizarre des fois, ce 1ko ????

en regardant le code de bgra derriere la fonction resample on trouve dans l'unité BGRAResample

Code :

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

1
2
3
4
5
6
7
8
9
10
11
function SimpleStretch(bmp: TBGRACustomBitmap;
  newWidth, newHeight: integer): TBGRACustomBitmap;
begin
  if (NewWidth = bmp.Width) and (NewHeight = bmp.Height) then
  begin
    Result := bmp.Duplicate;
    exit;
  end;
  Result := bmp.NewBitmap(NewWidth, NewHeight);
  StretchPutImage(bmp, newWidth,newHeight, result, 0,0, dmSet, 255);
end;

Je pense que les adresse des bitmaps ne sont pas mis à "nil" correctement. Bien vue Gilles

le FreeAndNil mais est sans effet ici

Dans la fonction ci-dessus le result est assigné avec un nouveau Bitmap, puis le result qui est la destination et Bmp la source dans StretchPutImage,
On dirait plus une erreur d'assignation "d'adresse" ou de buffer non libérer/pas réallouer correctement a l'assignation . Ici c'est comme le serpent qui se mort la queue si voyez ou je veux en venir.

Si Circular passe par là, il pourra éclaircir ce mystère.

Neanmoins pour ma part, Je ne sais pas trop si c'est la meilleur solution, mais je ferai quelques chose comme ça pour tester :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
function SimpleStretch(bmp: TBGRACustomBitmap; newWidth, newHeight: integer): TBGRACustomBitmap;
Var
TmpBmp : TBGRACustomBitmap;
begin
  if (NewWidth = bmp.Width) and (NewHeight = bmp.Height) then
  begin
    Result := bmp; //.Duplicate;
    exit;
  end;
  TmpBmp := Bmp.Duplicate;//ou juste  TmpBmp := Bmp; Duplicate vraiment nécessaire ?????
  Result := bmp.NewBitmap(NewWidth, NewHeight);
  StretchPutImage(TmpBmp, newWidth,newHeight, result, 0,0, dmSet, 255);
  FreeAndNil(TmpBmp);
end;

A+

**ChPr** · 03/06/2019, 21h58

Merci Jipété pour ces propositions.

Envoyé par Jipété

... Pas de solution au plantage, d'autant plus que 1 ko de conso ce n'est pas la mer à boire, en tablant sur un millier de passages (supérieur donc à tes quelques centaines) ça ne ferait jamais qu'un méga, tu devrais avoir de la marge, à notre époque. ...

Sur mon PC, le "tas" ne représente qu'1 Mo (je ne te raconte pas sur mon Raspberry

) soit au bout de 1000 secondes, ça plante : durée un peu courte pour un GPS que je souhaite voir fonctionner plusieurs heures.

Envoyé par Jipété

... Perso, sur un coup pareil, je fais sa création dans le FormCreate et sa libération dans le FormClose, ...

Ça n'a rien changé au fonctionnement.

Envoyé par Jipété

... puisqu'il s'agit d'un bitmap (avec une déclaration globale), je commence par un .FreeImage ... .

L'instruction .FreeImage n'existe pas pour la classe TBGRAImage

.

Le problème semble interne à l'instruction .Resample.

Cordialement.

Pierre

**ChPr** · 04/06/2019, 11h38

@ BeanzMaster :

Dans mes essais , j'avais remarqué que dans la fonction "SimpleStretch" de l'unité "BGRAResample", la fonction "Duplicate" créait une fuite de mémoire et j'avais supprimé cette fonction. Pour un non redimensionnement, je n'avais plus de fuite de mémoire ; mais je la retrouvais pour un redimensionnement

.

Dans la fonction "SimpleStretch" que tu me proposes, il faut aussi supprimer cette fonction dans le cas de redimensionnement et là, tout fonctionne bien, plus de fuite de mémoire

.

La fonction proposée devient donc :

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
function SimpleStretch(bmp: TBGRACustomBitmap; newWidth, newHeight: integer): TBGRACustomBitmap;
(* Cette fonction remplace celle de l'unité BGRAResample où la fonction "Duplicate"
   crée une fuite de mémoire *)
var
  TmpBmp: TBGRACustomBitmap;
begin
  if (NewWidth = bmp.Width) and (NewHeight = bmp.Height) then
  begin
    Result := bmp;
    exit;
  end;
  TmpBmp := Bmp;
  Result := bmp.NewBitmap(NewWidth, NewHeight);
  StretchPutImage(TmpBmp, newWidth, newHeight, Result, 0, 0, dmSet, $FF);
  FreeAndNil(TmpBmp);
end;

Pour l'utiliser, il faut toutefois ajouter l'unité BGRAResample et faire un transtypage du résultat, par exemple dans mon cas :

Code :

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

    LBmp:= TBGRABitmap(SimpleStretch(LBmp, Round(1024*kZoom), Round(600*kZoom)));

Un grand merci.

Cordialement.

Pierre

**BeanzMaster** · 04/06/2019, 20h43

Envoyé par ChPr

@ BeanzMaster :

Code :

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

    LBmp:= TBGRABitmap(SimpleStretch(LBmp, Round(1024*kZoom), Round(600*kZoom)));

Un grand merci.

Cordialement.

Pierre

Salut

Cela me conforte dans mes dires, BGRABitmap est très bien codé, mais j'ai trouvé quelques incohérences dans le code et la façon de procéder
Sinon tu peux également faire

Code :

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

    LBmp:= SimpleStretch(LBmp, Round(1024*kZoom), Round(600*kZoom)) as TBGRABitmap;

Bientôt ma solution pour gérer les bitmaps plus que 2/3 trucs à régler avant une "Beta version"

A+

Jérôme

**Roland Chastain** · 05/06/2019, 07h24

Bonjour ! La façon recommandée d'utiliser la méthode Resample est la suivante :

Code :

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

BGRAReplace(image, image.Resample(image.Width * 10, image.Height * 10, rmSimpleStretch));

La procédure BGRAReplace se charge de libérer la mémoire qui n'est plus utilisée. Cela est nécessaire car la méthode Resample crée une nouvelle image.

Avec le code que vous avez montré au début (LBmp := LBmp.Resample(...) as TBGRABitmap;), vous perdez l'adresse de l'image initiale.

Bonne continuation !

**ChPr** · 05/06/2019, 10h12

Envoyé par BeanzMaster

... Sinon tu peux également faire

Code :

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

    LBmp:= SimpleStretch(LBmp, Round(1024*kZoom), Round(600*kZoom)) as TBGRABitmap;

...

Ou bien je me trompe ou bien ce que tu me proposes est la même chose que :

Code :

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

    LBmp:= TBGRABitmap(SimpleStretch(LBmp, Round(1024*kZoom), Round(600*kZoom)));

Ce n'est qu'une forme différente d'écrire un transtypage ? En tous cas, le résultat est le même pour moi.

Cordialement.

Pierre

**Jipété** · 07/06/2019, 09h46

Bonjour,

quand je parlais de "documenté", c'était dans le sens de l'infobulle que je présente ci-dessous, avec les deux lignes en bas en italique et couleur vert-bleu, qui s'affiche quand je mets la souris sur RawImage :