Discussion :

[Jipété]

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 :

), et d'un autre côté la pratique et sa mise en application dans la vraie vie :

Code :

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

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;

C'est lassant la programmation, des fois...

[Andnotor]

Code :

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

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

[M.Dlb]

Code :

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

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 :

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

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.

[Jipété]

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 :

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

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 () 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 :

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

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.

[Andnotor]

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

Code :

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

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;

[Jipété]

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

Bien joué, t'es le plus fort

[Andnotor]

Pas plus que la donnée qui une fois les commentaires nettoyés est pour le moins succincte. Boule de Crystal obligatoire

Code :

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

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

[Jipété]

Code :

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

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 :

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

Mais pourquoi les compilateurs ne sont jamais contents

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

[Jipété]

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 :

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

[Paul TOTH]

il suffit de supprimer quelques petites lignes

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

[Jipété]

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,