Lire des Jpeg, Gif, Png pour texture (Delphi/C++ Builder)

Version imprimable

Si je lis un fichier .bmp avec GlAux:
Code:

1 2 pTextures := auxDIBImageLoadA( PChar(NomFichierBMP) );
... aucun problème. La primitive ci-après fonctionne correctement.
Code:

1 2 3 4 5 glTexImage2D( GL_TEXTURE_2D, 0, GL_RGB , pTextures^.SizeX, pTextures^.SizeY , 0, GL_RGB, GL_UNSIGNED_BYTE , pTextures^.Data);
Si je lis un fichier Jpeg, Gif, Png pour en faire un BitMap (en Delphi)
Code:

1 2 3 ImageJPEG.LoadFromFile(NomFichierJPEG); BitMapJpeg.Assign(ImageJPEG);
...la même primitive fait planter le programme:
Code:

1 2 3 4 5 glTexImage2D( GL_TEXTURE_2D, 0, GL_RGB , BitMapJpeg.Width, BitMapJpeg.Height , 0, GL_RGB, GL_UNSIGNED_BYTE , @BitMapJpeg;
La question que je me pose, c'est si je ne dois pas, après la lecture créer un buffer bitmap, basique, où tous les pixels se suivent à la queue-leuleu en bouclant sur le nombre de lignes et en utilisant la méthode scanline qui délivre un pointeur sur un buffer ligne (méthode analogue en C++Builder):
Code:

1 2 3 4 5 6 7 8 9 10 BitMapJPeg := TBitMap.create; try BitMapJPeg.LoadFromFile(NomFichierJPEG); for y := 0 to BitMapJPeg.Height -1 do begin P := BitMapJPeg.ScanLine[y]; // ... transférer la ligne pointée par P dans un buffer basique.
... ou alors existe-t-il une librairie qui fait cela naturellement (apparemment GlAux ne lit que des .BMP)

19/01/2006, 19h59
Laurent Gomila

Citation:

La question que je me pose, c'est si je ne dois pas, après la lecture créer un buffer bitmap, basique, où tous les pixels se suivent à la queue-leuleu en bouclant sur le nombre de lignes et en utilisant la méthode scanline qui délivre un pointeur sur un buffer ligne (méthode analogue en C++Builder)

C'est effectivement ce qu'attend glTexImage2D, et a priori l'adresse de BitMapJpeg n'est pas un tel tableau. Donc oui, faut soit copier à la main les pixels, soit récupérer à partir de ton objet BitMapJpeg une représentation similaire (contigüe) des pixels.

Citation:

... ou alors existe-t-il une librairie qui fait cela naturellement (apparemment GlAux ne lit que des .BMP)

DevIL (OpenIL -- c'est mieux pour Google), mais je ne pense pas que cela soit utilisable avec Delphi.
20/01/2006, 11h37
jcs2

Merci pour ta réponse rapide, comme à l'habitude, Loulou.

Si scanline existe en Delphi et C++Builder, je pense que l'on ne peut accèder au buffer des pixels contigus que ligne par ligne.
C'est donc ce que je vais faire.

Comme j'ai ramé un certain temps avant de trouver la solution, je poste ici mon code final (Delphi) pour exploiter un fichier Jpeg en tant que texture.
Cela pourrait intéresser des débutants comme moi.

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
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
type
    TPixelBuffer    = array of Byte;
    TptrPixelBuffer = ^TPixelBuffer;
var
    PixelBuffer     : TPixelBuffer;
    ptrPixelBuffer  : TptrPixelBuffer;
 
    ImageJPEG       : TJpegImage;
    BitMapFichier   : TBitmap;
    Largeur,Hauteur : integer;
 
    i,j,c,x         : integer;
...
    ImageJPEG     := TJpegImage.Create;
    BitMapFichier := TBitmap.create;
    BitMapFichier.PixelFormat := pf24bit;
 
    {fichier JPEG lu dans <ImageJPEG> mais transféré aussitôt dans <BitMapFichier>}
    try
      ImageJPEG.LoadFromFile('fichier.jpg');
    except
      on EInvalidGraphic do imageJPEG := nil;
    end;
 
    if ( imageJPEG <> nil ) then begin
      {mettre l'image Jpeg dans <BitMapFichier>}
      BitMapFichier.Assign( ImageJPEG);
      Largeur := ImageJpeg.Width;
      Hauteur := ImageJpeg.Height;   
 
      {transférer les PIXELS à la queue leuleu dans le BUFFER <PixelBuffer>  dimensionné à raison de 3 octets par pixel}
 
      SetLength( PixelBuffer, Hauteur * Largeur * 3 );
      x  := 0;
      {la ligne 0 (haut de l'image) est lue en dernier}
      for i := Hauteur - 1 Downto 0 do begin
        pLine := BitMapFichier.ScanLine[i];
        for j := 0 to Largeur-1 do begin    
          {pour chaque Pixel de la ligne, on récupère dans l'ordre le BLEU, VERT, ROUGE  qu'il faut inverser}
          for c := 2 Downto 0 do begin
            PixelBuffer[x+c] :=  pLine^;
            inc(pLine);
          end;
          inc(x, 3);
        end;
      end;
    end;
    ImageJPEG.Free;
    BitMapFichier.Free;
...
    {le buffer <PixelBuffer> est maintenant directement exploitable en tant que texture dans la primitive glTexImage2D:}
 
    ptrPixelBuffer := @PixelBuffer;
    glTexImage2D( GL_TEXTURE_2D, 0, GL_RGB
                , Largeur, Hauteur
                , 0, GL_RGB , GL_UNSIGNED_BYTE
                , ptrPixelBuffer);