Delphi XE 7 VCL中的GIF动画

Question

我尝试了delphi 2010和XE7中建议的解决方案

How to use Animated Gif in a delphi form

他们都通过以下消息引发异常

  

“异常类EInvalidCast，消息'无效类类型转换'。”

Answer 1

您引用的代码是：

(Image1.Picture.Graphic as TGIFImage).Animate := True;

错误消息表明已检查的as强制转换失败。这意味着Image1.Picture.Graphic不会来自TGIFImage。无论你放入图像控制器，它看起来都不是GIF图像。

我意识到这个答案并没有为您提供精确的工作程序步骤。但是，我认为第一步是了解错误消息的含义。一旦您了解到您知道在哪里寻找解决方案。

Answer 2

问题来自组件。在Delphi 2010中，图形类由JEDI VCL更改为TJvGIFImage，在XE7上，图形类由devExpress更改为TdxSmartImage。之后我从安装包中删除了相关的包，问题解决了。

感谢您的帮助。