Discussion :

[TheSeb]

Bonjour,

Bien qu'ayant regardé la FAQ Delphi sur les pointeurs, je n'arrive pas à faire ce que je veux. En gros j'ai crée un buffer qui contient des éléments et je veux les parcourir. Voici les portions de code avec une instruction fausse mais qui montre ce que je veux faire :

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
type 
   TPixel = array[0..2] of Byte;
   PTPixel = ^TPixel;
   TPixelData = array of array of TPixel;
 
var
   myPixel : TPixel;
   PixelData : TPixelData;
   buffer, bufferIt : Pointer;
 
   GetMem(buffer, Img.Width * Img.Height * SizeOf(TPixel));
   glReadPixels(0, 0, Img.Width - 1, Img.Height - 1, GL_RGB, GL_UNSIGNED_BYTE, buffer);
   bufferIt := buffer;
   for i := 0 to Img.Width - 1 do
   begin
      for j := 0 to Img.Height - 1 do
      begin
         pixelData[i][j] := (TPixel (bufferIt^));
         bufferIt := bufferIt + 1;  // Op non applicable à ce type d'opérande.
      end;
   end;

[ShaiLeTroll]

Essaye donc Inc pour passer au pointeur suivant

Code :

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

Inc(bufferIt, SizeOf(TPixel));

[TheSeb]

J'ai l'erreur Type ordinal requis.

[ShaiLeTroll]

Inc fonctionne avec les PChar ou les pointeurs typés ... mais pas avec les pointeurs évidemment ...

BufferIT c'est un pointeur mais sur quoi ?

sinon reste

Code :

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

bufferIt := Pointer(Integer(bufferIt) + 1);

d'après quelques survols avec google, tu ne pourrais pas simplement ceci ?

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
type 
   TPixel = array[0..2] of Byte;
   PPixel = ^TPixel;
   TPixelData = array of array of TPixel;
   PPixelData = ^TPixelData;
 
var
   myPixel : TPixel;
   PixelData : PPixelData;
 
   GetMem(PixelData, Img.Width * Img.Height * SizeOf(TPixel));
   glReadPixels(0, 0, Img.Width - 1, Img.Height - 1, GL_RGB, GL_UNSIGNED_BYTE, Pointer(PixelData));

[TheSeb]

Après l'exécution de l'instruction :

Code :

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

glReadPixels(0, 0, Img.Width - 1, Img.Height - 1, GL_RGB, GL_UNSIGNED_BYTE, buffer);

mon buffer va contenir des éléments (longueur * hauteur) TPixels (3 byte) qui représentent la surface de mon contexte opengl afin d'enregistrer cela dans une image.

BufferIt c'était juste pour parcourir les éléments.

[ShaiLeTroll]

Oui, c'est ce que j'ai cru compendre ... je dirais que tu pourrais même faire

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
type 
   TPixel = array[0..2] of Byte;
   PPixel = ^TPixel;
   TPixelData = array of array of TPixel;
 
var
   myPixel : TPixel;
   PixelData : TPixelData;
 
   SetLength(PixelData, Img.Width);
   for i:= 0 to Img.Width - 1 do SetLength(PixelData[i], Img.Heigth);
 
   glReadPixels(0, 0, Img.Width - 1, Img.Height - 1, GL_RGB, GL_UNSIGNED_BYTE, @PixelData[0][0]);

le .h (version pascal et version c) pourrait aider ... je n'ai pas opengl