如何用GIFImage.pas将8位位图转为兼容播放器的动画GIF？

问题根源 #

在线工具报错TypeError: Cannot read properties of null (reading 'delay')，说明生成的GIF中部分帧缺少延迟控制块（Graphic Control Extension）。Anders Melander的TGIFImage直接添加TBitmap时，不会自动为帧创建必要的延迟元数据，而Windows Media Player和VLC等播放器要求每个动画帧必须包含延迟参数。

修复步骤 #

针对Anders Melander的GIFImage.pas库，需手动为每个帧初始化延迟属性，并确保帧的元数据完整：

• 用TGIFFrame管理每帧的元数据，不要直接调用GIFImg.Add(TBitmap)
• 显式设置循环次数，告知播放器动画的循环规则
• 确保所有帧的元数据设置完成后再执行优化操作，避免关键参数丢失

修改后的完整代码 #

Unit Prova;

(* Fixed GIF saving test - now compatible with Windows Media Player and VideoLan VLC *)

Interface

Uses Graphics,GIFImage; (* Copyright: (c) 1997-99 Anders Melander *)

Procedure SaveBitmaps(Picture1,Picture2,Picture3:TBitMap; GIFFN:String);

Implementation

Procedure SaveBitmaps(Picture1,Picture2,Picture3:TBitMap; GIFFN:String);

Var 
  GIFImg: TGIFImage;
  Frame: TGIFFrame;
  DelayMS: Integer;
Begin
  GIFImg := TGIFImage.Create;
  Try
    // 设置全局动画参数
    GIFImg.AnimationSpeed := 30;
    GIFImg.Transparent := False;
    GIFImg.Animate := True;
    GIFImg.LoopCount := 0; // 0 = 无限循环

    // 计算单帧延迟（Anders库中AnimationSpeed 1-100对应10*Speed毫秒延迟）
    DelayMS := GIFImg.AnimationSpeed * 10;

    // 添加第一帧
    Frame := TGIFFrame.Create(GIFImg);
    Try
      Frame.Assign(Picture1);
      Frame.Delay := DelayMS; // 显式设置帧延迟
      GIFImg.Add(Frame);
    Finally
      Frame.Free;
    End;

    // 添加第二帧
    Frame := TGIFFrame.Create(GIFImg);
    Try
      Frame.Assign(Picture2);
      Frame.Delay := DelayMS;
      GIFImg.Add(Frame);
    Finally
      Frame.Free;
    End;

    // 添加第三帧
    Frame := TGIFFrame.Create(GIFImg);
    Try
      Frame.Assign(Picture3);
      Frame.Delay := DelayMS;
      GIFImg.Add(Frame);
    Finally
      Frame.Free;
    End;

    // 优化颜色映射和帧数据（确保元数据已设置完成）
    GifImg.OptimizeColorMap;
    GifImg.Optimize([ooMerge, ooCrop], rmNone, dmNearest, 0);

    GIFImg.SaveToFile(GifFN);
  Finally
    GIFImg.Free; // 用Free替代Destroy更符合Delphi规范
  End;
End;

End.

关键改动说明 #

• TGIFFrame的使用：通过TGIFFrame包装每个TBitmap，显式设置Delay属性，确保每个帧都包含有效的延迟控制块，解决播放器读取delay时的null错误。
• LoopCount设置：添加GIFImg.LoopCount := 0，让播放器识别动画为无限循环，部分播放器需要此参数才能正常播放。
• 延迟计算：Anders Melander的库中AnimationSpeed的取值范围是1-100，对应实际延迟为AnimationSpeed * 10毫秒，手动计算后赋值给Frame.Delay，保证延迟值准确。
• Free替代Destroy：遵循Delphi对象释放的规范，用Free更安全。

内容的提问来源于stack exchange，提问作者Paolo Fassin