Charger un Gif dans un Bitmap

Question

Je ne sais pas charger une image dans un Bitmap
J'aimerais charger un Gif si c'est possible..existe-t-il une procédure ou une fonction spéciale??
Pourriez vous m'aider svp

Jerem :shy)

cs_Delphiprog · Answer

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.

Charger un Gif dans un Bitmap

1 réponse

Votre réponse

Discussions similaires