讀取Gif檔案

首先可到此下載 http://finn.mobilixnet.dk/delphi/ Gif所需用到的GIFImage.pas檔案(依Delphi的版本去下載)

uses GIFImage;

procedure TForm1.Button1Click(Sender: TObject);
var
  gif: TGifImage;
begin
  gif := TGifImage.Create;
  try
    gif.Assign(Bmp);
    gif.SaveToFile('test.gif');
  finally
    gif.Free;
  end;
end;