如何在 Delphi 2010 中显示动画 gif

Question

我已在 Delphi 2010 中尝试了以下各项以在我的表单上显示动画 gif。所有都会导致访问冲突。 （每次尝试时，三个变体中的两个都被注释掉了。）非常感谢。

uses
  ... GIFImg,...

Image1: TImage;

procedure TForm1.FormCreate(Sender: TObject);
begin
  // A valid animated gif was loaded into Image1 at design time
  TGIFImage(image1).Animate := true;
  TGIFImage(image1.Picture).Animate := true;
  TGIFImage(image1.Picture.Graphic).Animate := true;
end;

我试图按照上面链接的问题中的答案进行操作，但该解决方案对我不起作用（并且该问题被明确标记为 Delphi-7，我不知道是否发生了变化）。重写为“（image1.Picture.Graphic as TGIFImage）.Animate := true;”导致“...异常类 EInvalidCast 带有消息‘无效类类型转换’。”我不清楚为什么类型转换无效，因为我确信动画 gif 已经在设计时加载。

编辑以澄清问题，这是修改后的代码。 showmessage 告诉我该图像是 TdxSmartImage。不知道为什么会这样想。 （我曾尝试将图像加载到 devExpress 控件中以查看是否可行，但随后我从表单/项目中删除了所有 dexExpress 元素并重新生成了 gif 文件。

procedure TForm1.FormCreate(Sender: TObject);
begin
  image1.Picture.LoadFromFile('C:\ChronSource\ChronDialogs\11.0 job menu.gif');
  ShowMessage(image1.Picture.Graphic.ClassName);
  // this says "TdxSmartImage"
  (image1.Picture.Graphic as TGIFImage).Animate := true;
end;

Answer 1

您有一个第三方库替换了 TPicture 属性编辑器。编辑器正在创建库自己的 gif 实现类，但显然它不支持动画图像。

如果您想恢复默认设计时行为，您必须卸载属性编辑器。一次性覆盖，在加载图片后，编辑 dfm 文件以更改图片的类名并编辑 pas 文件以更改所需的单位名称也可能有效（我不确定）。

在运行时使用你想要的类更容易。如果第三方库中负责 gif 图像的单元已链接，请先取消注册。

TPicture.UnRegisterGraphicClass(TdxSmartImage);
Image1.Picture.LoadFromFile('...');
(Image1.Picture.Graphic as TGIFImage).Animate := True;

如果没有，您应该可以毫无问题地将图像加载为 TGifImage。

Answer 2

使用上面的各种回复，我想出了这种可行的方法；

procedure TForm1.FormCreate(Sender: TObject);
  var
    aGIF:TGIFImage;
    sFile: string;
begin
  try
    ...
    aGIF := TGIFImage.Create;
    aGIF.LoadFromFile(sfile);
    aGIF.Animate := true;
    image1.Picture.Graphic := aGIF;
  except
  ...