Voici un exemple de programmation graphique
en delphi pour convertir un gif en bitmap avec le composant TGifImage.
Uses
GifImage;
procedure TForm1.Button1Click(Sender: TObject);
var GIF : TGIFImage;
Bitmapa : TBitmap;
begin
Gif:= TGifImage.Create; //Crée
une image gif
Bitmapa:= TBitmap.Create; //Crée
un bitmap
Bitmapa.LoadFromFile('c:\test.bmp'); //Charge
l'image bmp
Gif.Width:=Bitmapa.Width; //Récupère
la largeur
Gif.Height:=Bitmapa.Height; //Récupère
la hauteur
GIF.Compression := gcLZW; //Type de
compression
GIF.Assign(Bitmapa); //Le gif contient
l'image bitmap
GIF.SaveToFile('c:\test.gif'); //Sauvegarde
le fichier gif
Bitmapa.Free; //Libère
le bitmap
GIF.Free; //Libère le gif
end; |
|
