将图片序列保存为GIF文件

最新推荐文章于 2022-07-21 15:53:15 发布

weixin_30740295

最新推荐文章于 2022-07-21 15:53:15 发布

阅读量303

点赞数

原文链接：http://www.cnblogs.com/xe2011/p/3876040.html

版权

http://stackoverflow.com/questions/11459568/issue-with-rebuilding-and-saving-gifs-using-tgifimage

将图片序列如 01.jpg 02.jpg 03.jpg... 保存GIF是什么原理多个JPG文件合并成一个GIF文件写入

uses Vcl.Imaging.GIFImg, Vcl.Imaging.pngimage;
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
var
  Bmp: TBitmap;
 
  Png: TPngImage;
  Gif: TGIFImage;
  i, j: Integer;
begin
  Bmp := TBitmap.Create;
  Gif := TGIFImage.Create;
  try
 
    // Bmp.LoadFromFile('img0.bmp');
    // Bmp.Transparent := True;
    // Gif.Add(Bmp);
//    Bmp.LoadFromFile('01.bmp');
//    Bmp.Transparent := True;
//    Gif.Add(Bmp);
//    Bmp.LoadFromFile('02.bmp');
//    Bmp.Transparent := True;
//    Gif.Add(Bmp);
//    Bmp.LoadFromFile('03.bmp');
//    Bmp.Transparent := True;
//    Gif.Add(Bmp);
 
    Png := TPngImage.Create;
    for i := 0 to 159 do
    begin
      Png.LoadFromFile(Format('%d.png', [i]));
      Png.Transparent:=True;
      Gif.Add(Png);
    end;
 
    // for i := 0 to Gif.Images.Count - 1 do
    // for j := 0 to Gif.Images[i].Extensions.Count - 1 do
    // if Gif.Images[i].Extensions[j] is TGIFGraphicControlExtension then
    // TGIFGraphicControlExtension(Gif.Images[i].Extensions[j]).Disposal :=
    // dmBackground;
 
    // add netscape loop if we want animation to keep repeating
    TGIFAppExtNSLoop.Create(Gif.Images.Frames[0]).Loops := 0;
    Gif.Pack;
    Gif.SaveToFile('test.gif');
  finally
    Bmp.Free;
    Gif.Free;
  end;
end;