实例:在Delphi中使用RES资源文件保存Gif文件

作者: Nishizhen 分类: Delphi学习 发布时间: 2010-01-18 07:46 ė 6没有评论

首先,要为Delphi7安装TGIFImage.v.2.2.D7

点这里下载:TGIFImage.v.2.2.D7

安装完成后,Delphi7就可以支持Gif了。

然后使用RES文件的话肯定是先要新建一个RC文件。

比如说我们新建一个文件images.rc,使用一种文本编辑器打开这个文件然后在里面写上如下类型的内容:

waitGIF GIF wait.gif

第一个‘waitGIF’是以后程序里面能够调用到的名称。

第二个‘GIF’ 是对类型的描述,随便你自己定义。

第三个‘wait.gif’ 这个是实际文件和这个RC文件的相对位置。(打完包后实际文件就被包含在RES文件中了)

然后可以在Delphi中加载这个文件: 

然后就可以了。

在程序中可以这样使用:

方法:

procedure ExtractRes(ResType, ResName, ResNewName : String);
var
Res : TResourceStream;
begin
Res := TResourceStream.Create(Hinstance, Resname, Pchar(ResType));
Res.SavetoFile(ResNewName);
Res.Free;
end;

调用:

ExtractRes(‘GIF’,’waitGIF’,’wait.gif’);

这样的话那个文件就可以被从RES中释放出来了。

然后想怎么用就怎么用了。

当然Res还有SaveToStream方法,所以可以不释放出来,保存在内存中也可以一样调用了~

自己试吧~

本文出自 逆时针's Place,转载时请注明出处及相应链接。

本文永久链接: http://www.nishizhen.cn/%e5%ae%9e%e4%be%8b%ef%bc%9a%e5%9c%a8delphi%e4%b8%ad%e4%bd%bf%e7%94%a8res%e8%b5%84%e6%ba%90%e6%96%87%e4%bb%b6%e4%bf%9d%e5%ad%98gif%e6%96%87%e4%bb%b6/

0

发表评论

电子邮件地址不会被公开。 必填项已用*标注

验证码 * Time limit is exhausted. Please reload CAPTCHA.

Ɣ回顶部