La librairie RX contient, entre autres, une classe TGifImage qui permet de charger facilement un cadre d'image d'une image GIF.
var
Gif: TGifImage;
bmp: TBitmap;
begin
bmp := TBitmap.Create;
try
Gif := TGifImage.Create;
try
Gif.LoadFromFile('C:\Images\manu18.gif');
//copie la première image dans le bitmap
bmp.Assign(Gif.Frames[0].Bitmap);
//juste pour visualiser le résultat. N'est pas nécessaire ici
Image2.Picture.Assign(bmp);
finally
Gif.Free;
end;
finally
bmp.Free;
end;
end;
|
NB: cette fameuse librairie Rx déclare un composant TImage qui peut charger directement des .gif ainsi que d'autres types de fichiers graphiques non reconnus par le composant standard livré avec Delphi.
May Delphi be with you