在delphi 2009中创建一个gif动画文件？

gif := TgifImage.Create;
gif.Width := 100;
gif.Height := 100;
gif.AnimationSpeed := 500;
gif.Animate := true;
gif.add(image1.Picture.Bitmap);
gif.add(image2.Picture.Bitmap);
gif.add(image3.Picture.Bitmap);
gif.SavetoFile('gif.gif');

这只循环一次,速度不是500？

如何让它循环并设置速度？

解决方法

编写原始 TGIFImage的Anders Melander有以下 answer.

You need to add a “netscape Loop” extension block to the first frame of your GIF.
The loop block must be the first extension you define for the frame or else it will not work.

See the 07002 for an example of how to build an animated GIF.

以下是Animate demo的代码摘录：

// Add the source image to the animation
Result := GIF.Add(Source);

// netscape Loop extension must be the first extension in the first frame!
if (GIF.Images.Count = 1) then
begin
  LoopExt := TGIFAppExtNSLoop.Create(Result);
  LoopExt.Loops := 0; // Number of loops (0 = forever)
end;

你可以查看TGIFImage documentation here.