Discussion :

[ChPr]

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é]

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]

... 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é]

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]

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]

Merci Jipété pour ces propositions.

... 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.

... 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.

... 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]

@ 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]

@ 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]

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]

... 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

[ChPr]

@ Roland Chastain : Merci pour cette proposition alternative.

Cordialement.

Pierre

[Jipété]

Bonjour,

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));

c'est documenté ?

Je n'ai pas fouillé, mais si ce n'est pas top d'utiliser .Resample, comment se fait-il que Pierre ait pu l'utiliser ?
Si on fait imageBGRA.Re et qu'on attend les propositions de complétion, Resample apparaît ? Si oui, c'est dommage, alors.

D'un autre côté, valider Replace quand on veut faire un Resample n'est pas très intuitif,

[ChPr]

... Je n'ai pas fouillé, mais si ce n'est pas top d'utiliser .Resample, comment se fait-il que Pierre ait pu l'utiliser ? ...

J'ai trouvé cette fonction en lisant des articles de Gilles Vasseur, je ne sais plus lequel, mais sans fouiller les textes d'accompagnement. C'est en faisant tourner la bête que je me suis aperçu de la fuite de mémoire ... et grâce à vous que j'ai pu retomber sur mes pattes .

Cordialement.

Pierre

[Roland Chastain]

Si la procédure BGRAReplace n'existait pas, il faudrait faire comme ceci :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
var
  image, image2: TBGRABitmap;
 
begin
  image := TBGRABitmap.Create(10, 10);
 
  //BGRAReplace(image, image.Resample(image.Width * 10, image.Height * 10, rmSimpleStretch));
  image2 := image.Resample(image.Width * 10, image.Height * 10, rmSimpleStretch) as TBGRABitmap;
  image.Free;
 
  image2.Draw(Canvas, 0, 0, True);
  image2.Free;
end;

C'est-à-dire utiliser deux pointeurs, pour pouvoir libérer la première image après avoir créé la deuxième. C'est ce que la procédure BGRAReplace fait pour vous.

Donc, ce n'est pas une proposition alternative, c'est la bonne façon de faire.

Je me permets de le dire car l'exemple que j'ai donné provient d'un des tutoriels écrits par, Johann Elsass, l'auteur de cette bibliothèque.

[ChPr]

... Donc, ce n'est pas une proposition alternative, c'est la bonne façon de faire. ...

Ne vous méprenez pas sur la notion d'alternative. Cela ne veut pas dire que votre solution en est une de remplacement. Cela veut simplement dire qu'elle en est une autre, et , comme c'est celle proposée par l'auteur de la bibliothèque, on est en droit de penser que c'est la plus convenable.

Cordialement.

Pierre

[Jipété]

Euh, j'avais posé des vraies questions, je m'attendais à des réponses oui/non :

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));

c'est documenté ?

Si on fait imageBGRA.Re et qu'on attend les propositions de complétion, Resample apparaît ?

Merci,

[Roland Chastain]

Euh, j'avais posé des vraies questions, je m'attendais à des réponses oui/non :

Toutes mes excuses.

La bibliothèque BGRABitmap est très bien documentée. Il y a les tutoriels de l'auteur, plus ses réponses ici même. Quant à l'autocomplétion dans Lazarus, dans mon souvenir, oui, ça fonctionne bien.

[Jipété]

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 :

Quant à la complétion, j'attendais une réponse dans ce genre, où j'ai tapé aBitmap.RawImage.p et il s'est affiché ça :

Si j'avais continué avec un "a", la dernière ligne aurait disparu et c'est dans cet esprit que je demandais pour "Re..."

[gvasseur58]

Bonjour,

Absent durant cette semaine, je n'ai pas pu participer à cette discussion . A la relecture des différents posts, il me semble que Roland est le seul à avoir visé juste : l'erreur initiale tient au fait que Resample crée un nouvel objet et qu'on ne peut en aucun cas le réaffecter directement au TBGRabitmap en cours, sous peine de perdre son adresse première. Si vous examinez BGRAReplace, son code est rudimentaire, mais explique bien le problème initial :

Code pascal :

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

1
2
3
4
5
procedure BGRAReplace(var Destination: TBGRABitmap; Temp: TObject);
begin
  Destination.Free;
  Destination := Temp as TBGRABitmap;
end;

AVANT de procéder à l'affectation, il faut libérer l'objet : par conséquent, la seule solution avec un objet à la fois source et destination est l'utilisation d'un objet temporaire.
Une écriture comme :

Code pascal :

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

LBmp := LBmp.Resample(...

est donc impossible puisqu'elle affecte directement un nouvel objet à celui en cours sans libérer la mémoire qu'il occupe.

La solution de modifier SimpleStretch n'est pas du tout une bonne idée : en effet, cette fonction peut être utilisée en interne et, surtout,
elle n'est pas la seule qui peut être appelée lors du redimensionnement ! Par défaut, c'est même FineResample qui l'est puisque le paramètre mode de type TResampleMode de la méthode Resample est par défaut rmFineResample.

Cordialement,

Gilles