[GLScene] Comment enregistrer une image au format TGA

:lol: Pour ceux que ça intéresse, voici la solution: (elle nécessite USES GraphicEx)

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
Uses graphicEx;
 
procedure TfrmTMain.btnSnapshot2Click(Sender: TObject);
var
 bm:TBitmap;
 bmp32 : TGLBitmap32;
 tm: TTargaGraphic ;
 
begin
 bmp32:=GLSceneViewer1.Buffer.CreateSnapShot ; // Copie l'écran GLScene en mémoire dans BMP32 (au format TGLBitmap32)
 try
   tm := TTargaGraphic.Create() ; // ajout créé l'objet image TGA
   bm:=bmp32.Create32BitsBitmap; // converti le TGLBitmap32 en TBitmap pour être "compatible" avec le ASSIGN suivant
   try
     tm.Assign(bm); // assign BM à TM
     tm.SaveToFile('z:\temp\snapshot.tga'); // Enregistrement de l'image.
   finally
     bm.Free;
   end;
 finally
   bmp32.Free;
   tm.Free ;
 end;
end;

Dans mon cas, comme j'utilise GLSCene, j'obtiens d'abord un TGLBitmap32 au lieu d'un TBitmap classique.

_______________________________
Balises [Code] rajoutées par yobenzen