如何gif转bmp

[dongmei757]

求delphi gif转bmp代码
image1中已经显示了一个gif图片,如何将他转换为bmp显示于image中?(这个gif只有一帧)

[Frank.WU]

var
  gif: TGIFImage;
  Bmp: TBitmap;
begin
  gif := TGIFImage.Create;
  gif.Assign(Image1.Picture);{从 Image 加载 gif}
  Bmp := TBitmap.Create;
  Bmp.Assign(gif);{转换为 Bitmap}
  Image1.Picture.Bitmap.Assign(Bmp);{Image 加载 Bitmap}
  gif.Free;
  Bmp.Free;
end;