Bonjour,
J'ai créé quelques fonctions qui retournent des TBitmap. Je rencontre actuellement une augmentation de l'espace mémoire alloué à mon programme au fil de l'exécution de ces fonctions. Je suppose donc que je ne dois pas libérer les images correctement.


A chaque fin de procédure mes images intermédiaires sont libérées par

if Assigned(mon_img) then mon_img.Free;

Je me posais la questions si mes images étaient copiées ou transmises par références dans ce genre de situation :

function get_img() : TBitmap;
begin
result:=TBitmap.Create;
result.width:=10;
result.height:=10;
[...] bref on alloue cette image [...]
end;

procedure test_img (img : TBitmap) : Boolean;
begin
// fait quelque chose avec cette image
end;

Et dans ma fonction main :
if test_img(get_img) then ....

Je me demande si je peux écrire

if test_img(get_img) then ....

ou si je dois écrire :

tmp_img:=get_img;
if test_img(tmpImg) then ....
if Assigned(tmp_img) then tmp_img.Free;

De même (mais je pense avoir la réponse), j'ai un doute quand à l'utilisation de boucles pour parcourir les pixels des Canvas des Bitmap : doit-je itérer de 0 à Height-1 (ce que je pense) ou de 0 à Height ?
Je me pose la question car itérer de 0 à Height ne semble pas gérer de message d'erreur à l'exécution, mais un résultat incertain.

J'espère avoir été assez clair et je vous remercie par avance de votre aide

Merci beaucoup du temps que tu as du passer pour me répondre, c'est très complet et très clair. Bravo !
Je n'ai plus qu'à remodifier mon code pour voir ce que cela m'a apporté et il est vrai que mon code était lent... je m'attend donc à avoir une agréable surprise lorsque j'aurais appliqué tes fonctions :)
Puis-je encore abuser de ton temps et demander pourquoi lorsque tu veux créer des pointeurs, tu les définies comme étant des pointeurs de tableau d'une taille max ?
Est-ce que la taille max a une importance ? Je pensais qu'un pointeur n'avait besoin que de savoir le type de donnée pointée, pas le nombre d'éléments de mémoire qui se trouve dans la zone pointée...
Je me doute qu'il faille faire comme tu l'as mis mais c'était pour mieux comprendre.

Quoi qu'il en soit si tu n'as pas le temps de répondre tu auras déja répondu à ma question donc encore merci pour ton dévouement et ton efficacité !

Je précise que j'ai un problème lorsque j'utilise
function CreateBitmap(BMP : TBitmap; const AWidth, AHeight : integer; const APixelFormat : TPixelFormat = pf32bit) : boolean;
begin
   result := false;
   if not Assigned(BMP) then begin
      BMP := TBitmap.Create;
      BMP.Width := AWidth;
      BMP.Height:= AHeight;
      BMP.PixelFormat := APixelFormat;
      result := true;
   end;
end;

Il semble que je sois obligé de mettre ma variable à nil avant d'appeler CreateBitmap.
Lorsque je met :
result:=nil;
CreateBitmap(result,4,7);

result vaut toujours nil. Néanmoins si je rajoute var devant BMP dans la déclaration de CreateBitmap comme ceci :

function CreateBitmap(var BMP : TBitmap; const AWidth, AHeight : integer; const APixelFormat : TPixelFormat = pf32bit) : boolean;
le problème semble résolu.
En tout cas merci j'espère ne pas avoir fait d'erreur en mettant ce var devant BMP
A+

c'est ce que j'allai dire, il manque un var devant le BMP de createBitmap et FreeBitmap aussi.

oui il manque le var... mais uniquement pour Create et Free.
pour les autres on peu trés bien travailler sur le Bitmap d'un TImage donc pas de var.

sinon, pour les pointeurs c'est une question inerrante a scanline.
en effet les anciens bitmap etait limité a 2048 pixels de long.
soit :
array[0..2047] of ...

mais maintenant, le format ayant evolué, la taille n'est plus limitée et donc on peu definir une taille min/max a ce buffer.

quand on recupere pPL := BMP.ScanLine[Y], pPL contient tout les pixels de la ligne Y.
ensuite on appel pPL[X] pour travailler sur le pixel X de la ligne Y.

sincerement je crois avoir tenter une fois d'utiliser un tableau dynamique pour scanline, mais il me semble que ça ne fonctionne pas.

j'explique aussi pourquoi j'utilise des structure Record.
comme tu le sais un bitmap peut avoir un format de pixel different :
pf8bit (byte)
pf16bit (word)
pf24bit (...)
pf32bit (integer)

le probleme, c'est que par exemple il n'existe pas de type scalaire 24bit (3x1byte). et donc il nous faut une structure record ou un tableau de 3 bytes :

TPixel24 = record B,G,R : byte end;
TPixel24 = array[0..2] of byte;

pour le pf32bit, un structure record ou un integer est identique, sauf que la structure record offre quelques avantage, comme par exemple d'eviter de faire des SHL et SHR pour travailler sur lun des octet de couleur RGB.

---

Croc (click me)

salut les gas!!!!!!!
quelle est l'avatage d'utiliser scanline par apport a getpixel
je voudrai savoir que fait le fonction assign

F1