Discussion :

[Invité]

Bonjour,

J'utilise Delphi7 (et GLScene).

Je souhaite enregistrer une image de mon application au format TGA.

Quelqu'un sait-il comment faire ?

En cherchant, j'ai trouvé le lien suivant: http://www.developpez.net/forums/vie....php?p=1380637 mais ça m'a tout l'air d'être du C et non du Delphi et je n'arrive pas à l'adapter.

Par avance, merci.

[Invité]

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

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