Delphi 中资源文件使用详解

[b]编写 RC 脚本文本[/b]
用记事本或其它文本编辑器编写一个扩展名为“.rc“的文件。格式如下：

资源标识符 资源类型关键字 资源文件名

其中“资源类型关键字“用于标识资源文件的类型：

AVI 无声动画
BITMAP 位图文件
CURSOR 光标文件
ICON 图标文件
WAVE 声音文件

以上所列均为标准资源类型，也可以给资源自定义一个类型，如：“mytype“。不过两者在调用方式上有些不同（在后面示例“存取资源文件中的位图“中有详细描述）。

2．根据 RC 脚本文件编译成 RES 资源文件

在命令提示符中输入以下内容：

brcc32 FileName.rc //注：brcc32.exe在DelphiX\Bin目录中

3．在Delphi单元中加入资源文件

将生成的 RES 资源文件复制到相应程序所在的目录中，在单元文件中的“{$R *DFM}“后面加上“{$R FileName.res}“，编译后资源文件就被包含在可执行文件中了。

说明：如果嫌2、3两步麻烦，可以采用更简便的做法，即：将 RC 文件直接添加到项目中，在编译Delphi项目时，会自动编译该资源文件。

4．资源文件调用示例

（1）存取资源文件中的位图
//RC: testBmp bitmap res\test.bmp
Image1.Picture.Bitmap.LoadFromResourceName(HInstance, ’res\test.bmp’);
或:
//RC: testBmp bmptype res\test.bmp
var
resStream: TResourceStream;
begin
resStream := TResourceStream.Create(HInstance, ’testBmp’, ’bmptype’);
Image1.Picture.Bitmap.LoadFromStream(resStream);
resStream.Free;
end;

请注意上面两种调用方式的不同之处。

（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;

补充：
　　1.资源类型除上述类型外，还可以字体文件，字符串文件等。

　　2.资源文件不但可以在标准图形界面下使用还可在控制台下使用。

　　下面我们来试验一下：

　　新建一工程，将唯一的一个Form删除，然后修改工程文件。增加一句{$Apptype console},在uses子句中加入mmsystem,并将其它引用单元删掉。将Begin和end之间语句删掉。至此，我们就可和Turbo PASCAL下编程序一样，且还可以调用windows的API和资源。将资源文件----{$R myfist.res}加入。在Begin和end之间写下：

writeln(’演示程序，按任意键开始！’);
readln;
playsound(pchar(’mywav’), hinstance, snd_sync or snd_resource);
writeln(’演示结束！’);

　　运行程序，将弹出一个标准DOS窗口，按任意键播放声音文件。是不是很COOL呢!我曾下载过一个播放器，在其安装目录下我发现有一“DOS程序“,用鼠标双击它便弹出一个DOS窗口，显示DOS时代特有的画图，并有背景音乐！可能就是用这个方法做的。

　　3.Delphi本身自带了一个叫Image Editor的工具，同样可以编辑资源文本，但和本文的方法比较，可得出下表：
Image Editor Brcc32
BMP 只支持16位色 任意色
光标 黑白两色 任意色
ICO 只支持16位色 任意色
AVI 不支持 支持
WAV 不支持 支持
字符串 不支持 支持

　　上面说的是直接在程序本身的调用。其实资源文件还有其它用法。比如说在你的程序携带其它文件，要用的时候释放出来。
　　例如: myexe exefile ’ha1.exe’//脚本文件

　　下面是自定义释放函数ExtractRes，本例中使用如下:

ExtractRes(’exefile’,’myexe’,’c:\new.exe’);

　　就把ha1.exe以new.exe为名字保存到C盘根目录下了.

function TForm1.ExtractRes(ResType, ResName, ResNewName: string): boolean;
var
Res: TResourceStream;
begin
try
Res := TResourceStream.Create(Hinstance, Resname, Pchar(ResType));
try
Res.SavetoFile(ResNewName);
Result := true;
finally
Res.Free;
end;
except
Result := false;
end;
end;