GetMem/FreeMem, un couple en instance de divorce ?

Version imprimable

1 pièce(s) jointe(s)

Salut,

Nouvelle semaine, nouvelles blagues et donc, rions un peu avec d'un côté la théorie et tout ce qu'on nous apprend sur l'allocation de mémoire et sa libération (exemple extrait de l'aide Lazarus :
Pièce jointe 332322
), et d'un autre côté la pratique et sa mise en application dans la vraie vie :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 type TPointeurDeLigne = array[0..359] of TColor; pPointeurDeLigne = ^TPointeurDeLigne; var PointeurDeLigne: pPointeurDeLigne; begin GetMem(PointeurDeLigne, 360 * SizeOf(TColor));// mémoire pour 1 ligne // utilisation parfaite, c'est pour générer un dégradé en mode Scanline // et juste avant de sortir de la proc (image affichée ok, bmp libéré, etc.) // bim ! paf ! boum ! FreeMem(PointeurDeLigne, 360 * SizeOf(TColor)); // idem end;
:koi:
C'est lassant la programmation, des fois...

04/12/2017, 09h25
Andnotor
Code:

1 2 3 GetMem(PointeurDeLigne); Inc(PointeurDeLigne); FreeMem(PointeurDeLigne);
Rien ne te choque ?

Tu réserves 360 emplacements et tu avances de 360. Tu tentes donc une libération de 361 à 720...
04/12/2017, 09h58
M.Dlb
Citation:
Envoyé par Andnotor

Code:

1 2 3 GetMem(PointeurDeLigne); Inc(PointeurDeLigne); FreeMem(PointeurDeLigne);

Rien ne te choque ?

Tu réserves 360 emplacements et tu avances de 360. Tu tentes donc une libération de 361 à 720...
Désolé je vois pas le inc() dans le code plus haut.

Jipété, tu déclares un type que tu n'utilises jamais -> A quoi ça sert ?
Théoriquement, j'aurais plutôt écrit :
Code:

1 2 GetMem(PointeurDeLigne, SizeOf(TPointeurDeLigne)); FreeMem(PointeurDeLigne, SizeOf(TPointeurDeLigne));
Si tu n'es pas sûr de la taille de ton objet, il vaut mieux laisser faire le compilateur.

Citation:

Envoyé par M.Dlb

Jipété, tu déclares un type que tu n'utilises jamais -> A quoi ça sert ?

Si tu n'es pas sûr de la taille de ton objet, il vaut mieux laisser faire le compilateur.

Je n'avais pas mis la cuisine interne et l'utilisation vis-à-vis du bitmap pour alléger.

Du coup ça m'a mis la puce à l'oreille, et j'ai fait ce test avec juste ça :
Code:

1 2 3 4 begin GetMem(PointeurDeLigne, 360 * SizeOf(TColor));// mémoire pour 1 ligne FreeMem(PointeurDeLigne, 360 * SizeOf(TColor)); end;
et ça ne plante pas.
PS : je suis sûr de la taille de mon objet, voir le commentaire en bout de ligne GetMem.

À force de décommentages (:mrgreen:) des lignes commentées, je cerne le problème autour de cette ligne (y a pas tout, c'est le cœur du remplissage du TBitmap) :
Code:

1 2 3 4 5 6 BeginUpdate; for h := 0 to 100 do begin // balayage vertical PointeurDeLigne := pPointeurDeLigne(RawImage.GetLineStart(h)); // avec cette ligne présente, AV au FreeMem + bas // for w := 0 to 359 do PointeurDeLigne^[w] := LCH2Color(h, trkPos, w, true); // ma proc pour générer les couleurs end; EndUpdate();
Si qqun a une idée, ça m'intéresse.

Je pense déjà avoir répondu : le pointeur après utilisation ne correspond plus à l'adresse d'origine. Après, que le pointeur soit incrémenté par inc ou toute autre méthode importe peu :roll:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 var pOrigine :pointer; PointeurDeLigne: pPointeurDeLigne; begin GetMem(pOrigine, 360 * SizeOf(TColor)); PointeurDeLigne := pOrigine; //Utilisation de PointeurDeLigne FreeMem(pOrigine); end;

04/12/2017, 11h46
Jipété

Citation:

Envoyé par Andnotor

Je pense déjà avoir répondu

Oui mais c'était en mode ésotérique, subliminal, codé à l'économie de mots et écrit à l'encre sympathique :mouarf:

Bien joué, t'es le plus fort :ccool:
:plusser:
04/12/2017, 11h58
Andnotor
Pas plus que la donnée qui une fois les commentaires nettoyés est pour le moins succincte. Boule de Crystal obligatoire ;)
Code:

1 2 3 GetMem(PointeurDeLigne, 360 * SizeOf(TColor)); // bim ! paf ! boum ! FreeMem(PointeurDeLigne, 360 * SizeOf(TColor));
Et à noter encore que spécifier la taille sur FreeMem est optionnel si le bloc complet est libéré.

Citation:
Envoyé par Andnotor
Code:

1 2 3 4 5 6 7 8 9 10 11 12 var pOrigine :pointer; PointeurDeLigne: pPointeurDeLigne; begin GetMem(pOrigine, 360 * SizeOf(TColor)); PointeurDeLigne := pOrigine; //Utilisation de PointeurDeLigne FreeMem(pOrigine); end;
Ah tiens, tout-à-l'heure j'ai passé mon code de Lazarus à D7, 2-3 adaptations mineures mais dans l'ensemble ça roule, juste ce message du compilo qui m'interpelle, à propos de la ligne 7 :

Citation:

Envoyé par compilo D7

[Conseil] : La valeur affectée à 'PointeurDeLigne' n'est jamais utilisée

Mais pourquoi les compilateurs ne sont jamais contents :koi:

06/12/2017, 18h17
Andnotor

Tu as certainement deux affectations PointeurDeLigne := ... sans aucun traitement sur la première. Le compilateur attire ton attention pour éventuellement te permettre de nettoyer/alléger le code.

Citation:

Envoyé par Andnotor

Tu as certainement deux affectations PointeurDeLigne := ... sans aucun traitement sur la première.

Si tu vois où, ça m'arrange parce que moi, je donne ma langue au chat :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
procedure TForm1.Button1Click(Sender: TObject);
var
  pOrigine: pointer;  // ajout Andnotor /!\ +1 /!\
  PointeurDeLigne: pPointeurDeLigne;
  h,w: Integer;
  aBmp: TBitmap;
begin
  GetMem(pOrigine, 360 * SizeOf(TColor)); // mémoire pour 1 ligne
  PointeurDeLigne := pOrigine;  // ajout Andnotor /!\ +1 /!\
 
  aBmp := TBitmap.Create;
  with aBmp do begin
    try
      PixelFormat := pf32bit;
      Width  := 360;
      Height := 101;
      for h := 0 to 100 do begin
        PointeurDeLigne := pPointeurDeLigne(Scanline[h]); // [Conseil] : La valeur affectée à 'PointeurDeLigne' n'est jamais utilisée
        for w := 0 to 359 do PointeurDeLigne^[w] := newLCH2Color(50, 50, w);
      end;
      Image3.Picture.Graphic := aBmp;
    finally
      Free;
    end;
  end;
  FreeMem(pOrigine);
end;

Ou alors c'est sur la ligne 18 ? Mais comment faire autrement ?
Merci,

il suffit de supprimer quelques petites lignes

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
 
procedure TForm1.Button1Click(Sender: TObject);
var
//  pOrigine: pointer;  // ajout Andnotor /!\ +1 /!\
  PointeurDeLigne: pPointeurDeLigne;
  h,w: Integer;
  aBmp: TBitmap;
begin
//  GetMem(pOrigine, 360 * SizeOf(TColor)); // mémoire pour 1 ligne
//  PointeurDeLigne := pOrigine;  // ajout Andnotor /!\ +1 /!\
 
  aBmp := TBitmap.Create;
  with aBmp do begin
    try
      PixelFormat := pf32bit;
      Width  := 360;
      Height := 101;
      for h := 0 to 100 do begin
        PointeurDeLigne := pPointeurDeLigne(Scanline[h]); // [Conseil] : La valeur affectée à 'PointeurDeLigne' n'est jamais utilisée
        for w := 0 to 359 do PointeurDeLigne^[w] := newLCH2Color(50, 50, w);
      end;
      Image3.Picture.Graphic := aBmp;
    finally
      Free;
    end;
  end;
//  FreeMem(pOrigine);
end;

ton allocation ne sert strictement à rien puisque tu veux manipuler les pixels du bitmap qui a DEJA alloué sa mémoire :)

07/12/2017, 08h19
Jipété

Citation:

Envoyé par Paul TOTH

il suffit de supprimer quelques petites lignes

Parfaitement fonctionnel sous Lazarus/Linux, je testerai à l'occasion sous D7perso (ton livre ;))/Win2000.

Merci et bonne journée,