正在阅读：Delphi中资源文件使用详解Delphi中资源文件使用详解

2005-07-06 10:33 出处：作者：doubon 责任编辑：moningfeng

　　（2）存取资源文件中的图标

　　将图标放在资源文件中，可以实现动态改变应用程序的图标。

//RC: testIcon icon res\test.ico

Application.Icon.Handle := LoadIcon(HInstance, 'testIcon');

　　（3）存取资源文件中的AVI动画

//RC: testAvi avi res\test.avi

Animate1.ResName := 'testAvi';

Animate1.Active := True;

　　（4）存取资源文件中的JPEG图像

　　为了能够处理JPEG图像，必须在Interface处引用JPEG单元。

var

jpg: TJPEGImage;

resStream: TResourceStream;

begin

jpg := TJPEGImage.Create;

resStream := TResourceStream.Create(HInstance, 'testJpg', 'jpgtype');

jpg.LoadFromStream(resStream);

Image1.Picture.Assign(jpg);

jpg.Free;

resStream.Free;

end;

附：Delphi编程中资源文件的应用：初级应用篇

　　资源文件一般为扩展名为res的文件.在VC中资源文件用得非常普遍,但Delphi在其联机帮助中对资源文件没作什么介绍,其实利用其自带的资源编译工具BRCC32.EXE(一般位于\Delphi\BIN目录下）,我们完全可以做出跟VC一样效果的文件来。

　　资源文件最大的好处是能将一些在必要时才调用的文件跟可执行文件一起编译,生成一个文件.这样做最大的好处就是使外部文件免遭破坏.例如在一条程序中你要临时调用一幅图片,一般作法是把图片放在某一路径下（通常是主程序所在路径）,但如果用户路径误删你的图片文件,则可能使程序找不到相应文件而出错崩溃.另外,如果你想自己的程序界面美观,想用一些自定义光标,也要用到资源文件。

　　资源文件的使用步骤为：

一.编写rc脚本文本
　　用记事本或其它文本编辑器编写一个扩展名为rc的文件。例如：

　　mycur cursor move.cur //加入光标
　　mypic Bitmap Water.BMP //加入位图
　　mywav WAVE happy.wav //加入声音
　　myAVI AVI EPOEN.AVI //加入视频
　　myIco ICON CJT.ICO //加入图标

　　格式分别为在资源文件中的名称->类型->实际文件名称，例如上面第一行定义一个名为mycur的光标，实际名称为加入光标move.cur.

二.将rc文件编译成res资源文件
　　将脚本文件和实际文件拷到Brcc32.EXE所在目录，执行DOS命令。格式为：Brcc32 脚本文件(回车)，例如有一名为myfirst.rc的脚本文件，则执行 Brcc32 myfirst.rc(回车)即可。如果你是懒人，也可新建一批处理文件，内容只有一行：Brcc32 mufist.rc.(因为Delphi安装后一般会在自动批处理文件中指明搜索路径的。)如果编译成功，则会生成一个结尾为res的文件，这个文件就是我们需要的资源文件。

三.在Delphi单元中加入资源文件
　　将生成的res资源文件拷贝到你所编程序的路径下，在单元文件{$R *DFM}后加上一句{$R mufirst.res}，则将res文件加入去，编译后资源文件即已包含在可执行文件中了。若你有多个资源文件，也按上法依次加入。

四.在Delphi程序中调用资源文件
　　资源文件在Delphi中的关键字为hinstance.下面给出具体用法.

　　1.光标的调用
　　首先在程序中定义一个值大于0的常量，因为Delphi本身用0-负16来索引默认的光标，所以我们制定的光标应从表面上1开始索引。然后在窗口的Oncreat事件中添加以下代码：

screen.cursor[35]:=Loadcursor (hinstance,'mycur');

　　其中35为大于1的常量，mycur为光标在资源文件中的名字。如果希望在其他控件上使用定制光标，例如Panel控件，只需在程序的适当处加入以下代码：

Panel1.cursor:=35;