请问有没有办法将GIF分解成BMP图像? ( 积分: 20 )

  • 主题发起人 主题发起人 wei0916
  • 开始时间 开始时间
W

wei0916

Unregistered / Unconfirmed
GUEST, unregistred user!
现在有一个GIF图像,想把他分解成多个BMP图像.不知有没有办法,请赐教.谢谢.
 
现在有一个GIF图像,想把他分解成多个BMP图像.不知有没有办法,请赐教.谢谢.
 
把GIF图像画到Bitmap图片,再用Canvas分区画到Bmp图像保存
 
那应该怎么做呢.能给点提示吗.
 
用Firework(网页三见客之一)打开GIF图像。然后一针一针取
 
要在DELPHI用编程的方式取难道没有办法了吗?
 
用GIFImage.pas这个文件。多少年前大富翁上就有这样的帖子了。自己搜搜。
var GIF:TGIFImage;i:integer;

GIF:=TGIFImage.Create;
GIF.LoadFromFile(GIFFileName);
for i:=0 to GIF.Images.Count-1 do
begin
Image1.Picture.Bitmap.Assign(GIF.Images.SubImages)
Image1.Picture.SaveToFile(TempBmpFileName);
end;
 
多谢lugan0720,效果是有了,但为什么只有第一个图像完全,其它的都是很模糊呢,我在做GIF时每一个都是清楚的呀.这是怎么回事呢.能否再指点一下.
 
加上这一句：(优化作用)
include(GIFImageDefaultDrawOptions, goDirectDraw);
 
lugan0720,你好,这句应加在哪里呢.我在你上面的这个程序里加遍了都不能把后面的几帧图像还原,还是好模糊,看不清楚,能再指点一下吗.谢了.
 
程序初始化时。如：Form.Create时。
没有这么复杂吧。
我把上面的代码复制到D6里，编译，转换。OK，图像很正常。
是不是你用的GIF图像有问题呀？
 
多谢lugan0720,我再试试,要不换成D6试一下,对了,有把BMP换成GIF的方法吗.能否再告知一下.
 
还是用GIFImage.pas呀。
忘了说了：我用的是Delphi6+GIFImge.pas(D6)
 
lugan0720,再帖一点代码好吗,我用GIF.IMAGES.SUBIMAGE[0].LOADFROMFILE('C:/123.BMP')出错呀.
 
多人接受答案了。
 
您必须登录或注册才可回复。

Similar threads

不
关于Delphi中DLL,BPL等无法调试的问题 - 不得闲
回复
0
查看
1K
不得闲
不
D
[原]2015-03-27:发布OrangeUI For FMX 1.47
回复
0
查看
850
DelphiTeacher的专栏
D
S
[原]Delphi2010中DataSnap高级技术(4)—TCP keepAlive和KeepAliveInterval参数详解
回复
0
查看
1K
SUNSTONE的Delphi笔记
S
S
[原]Delphi2010中DataSnap高级技术(4)—TCP keepAlive和KeepAliveInterval参数详解
回复
0
查看
1K
SUNSTONE的Delphi笔记
S
D
[原]OrangeUI之ListView的简单介绍
回复
0
查看
2K
DelphiTeacher的专栏
D
后退
顶部