文件名称:
修改过的适合Delphi7的GifImage程序（经多线程测试）
开发工具:
文件大小: 375kb
下载次数: 0
上传时间: 2020-07-19
详细说明：原GifImage在多线程运行时，经常产生异常。因此特别做了特殊的判断和处理。
在调用时，需要特别注意。
var
gif: TGifImage;
image: TImage;
aFileName: String; // 图片文件名称
begin
....
gif := TGIFImage.Create;
try
gif.LoadFromFile(aFileName);
image.Picture.Assign(gif.Bitmap);
gif.AnimationSpeed := 200;
gif.Animate := true; // 设置为动画，这样才能有动画效果
// 需要加上这个，否则，会出现Out of System Resource
if image.Picture.Graphic.Palette <> 0 then
begin
deleteObject(image.Picture.Graphic.Palette);
image.Picture.Graphic.Palette := 0;
end;
// 注意：这个是关键（没有用Assign），新产生的对象拷贝了原来的Gif信息
image.Picture.Graphic := gif;
finally
if Assigned(gif) then FreeAndNil(gif); // 注意：释放了gif的对象资源
end;
(系统自动生成,下载前可以参看下载内容)
下载文件列表
相关说明
- 本站资源为会员上传分享交流与学习,如有侵犯您的权益,请联系我们删除.
- 本站是交换下载平台，提供交流渠道，下载内容来自于网络，除下载问题外，其它问题请自行百度。
- 本站已设置防盗链，请勿用迅雷、QQ旋风等多线程下载软件下载资源，下载后用WinRAR最新版进行解压.
- 如果您发现内容无法下载，请稍后再次尝试；或者到消费记录里找到下载记录反馈给我们.
- 下载后发现下载的内容跟说明不相乎，请到消费记录里找到下载记录反馈给我们，经确认后退回积分.
- 如下载前有疑问，可以通过点击"提供者"的名字，查看对方的联系方式，联系对方咨询.
