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


首先,要为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方法,所以可以不释放出来,保存在内存中也可以一样调用了~

自己试吧~


发表回复

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

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