delphi 资源文件详解

delphi资源文件详解

一、引子：

现在的Windows应用程序几乎都使用图标、图片、光标、声音等，我们称它们为资源（Resource）。最简单的使用资源的办法是把这些资源的源文件打入软件包，以方便程序需要的时候调用。资源是程序的一部分，程序要正常运行就离不了资源文件。但是它是不可执行代码。

为了更好地管理资源，Delphi中提供了一种.RES类型的资源文件。它可以把我们程序中所需要的资源整合到一个资源文件(.RES)下来。在编译应用程序时直接编译进了可执行程序里，成为应用程序的整合体。

这样做的好处是：1。由于定位资源比在磁盘中定位文件花费时间少，所以应用程序执行会更快。2。多种资源可以放在一个文件中，减少了图标、图片、光标、声音等文件数量。不用怕用户在使用过程中的不小心而损坏了资源文件致使程序无法正常运行。

缺点是：因为资源文件的加入从而加大了编译出的可执行程序的字节数，当资源文件较大时会使应用程序变得看起来雍肿。

使用资源文件的优点很显著，其缺点也很突出。所以在实际应用中就要根据情况权衡利弊、灵活使用，这已不在本文的讨论之列。下面仅就Delphi系统编程中对于资源文件的使用方法做一个大致的总结。

二、创建资源文件：

注意事项：创建的资源文件名不要和工程名相同，因为Delphi创建工程时会自动创建一个和工程名相同的资源文件。并且最好将资源文件保存到和工程文件同一个文件夹中。

1．首先创建一个.Rc的纯文本文件。格式如下：

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

格式说明：

① 资源标识符：程序中调用资源时的特定标号；

② 关键字：标识资源文件类型；例如：

Wave ： 资源文件是声音文件；

RCDATA： JPEG文件；

AVI ： AVI动画；

ICON ： 图标文件；

BITMAP： 位图文件；

CURSOR： 光标文件；

RMI ： RMI音乐文件；

MIDI ： MIDI音乐文件

③ 资源文件名：加入的资源文件名(要带扩展名，可以带路径名构成全文件名)；

④ 举例：

MyWav WAVE "FileName.Wav"

MyMID MIDI "C:\My Documents\my music\canyon.MID"

MyAVI AVI "SpeedIs.AVI"

例中资源文件名可以不加引号。假设我们把上述三行保存成Sample.RC文件。

2．使用Borland资源编译器（BRCC32.EXE）转化.Rc文件成.Res文件。

在DOS命令行下输入下列命令：

C： //转在C:驱

CD\ //退回根目录

CD\Program Files\Borland\Delphi7\Bin //进入BRCC32.EXE的所在目录

Brcc32 Sample.Rc //把Sample.RC转换成资源文件Sample.RES

注意转换前需要把Sample.RC文件中指定的未带全路径名的文件Copy进当前目录C:\Program Files\Borland\Delphi7\Bin中来,才可保证转成.RES文件不出错。如果转换过程没有报错，则成功。

三、引用资源文件

把上一步骤生成的资源文件Sample.RES放到要建立的工程的同一个目录中来。

为了存取我们的资源文件，必须告诉Delphi链接我们的资源文件到应用程序中。因此要在源代码中加入一条编译指令完成上述功能。这条指令必须紧跟在窗口指令后，如下形式：

{$R *.DFM} //Delphi自带编译指令

{$R Sample.RES}　 //新加入的编译资源文件的指令

不要删除{$R *.DFM}指令，因为这行代码告诉Delphi链接下面的资源到窗口的资源中。

四、调用资源文件

1．存取资源文件中的位图(Bitmap)

程序中如果想存取资源，必须调用一些Windows API函数。保存在资源文件中的位图、光标和图标可以通过调用LoadBitmap、LoadCursor和LoadIcon函数存取。

现举例说明如何存取资源文件中位图并显示在Timage控件中。

procedure TfrMain.btnCanvasPic(Sender: TObject);

begin

Image1.Picture.Bitmap.Handle :=LoadBitmap(hInstance,'资源标识符');

end;

注：如果位图没有装载成功，程序仍旧执行，但是Image将不再显示图片。可以根据LoadBitmap 函数的返回值判断是否装载成功，如果装载成功返回值是非0，如果装载失败返回值是0。

另外一个存取显示位图的方法如下：

procedure TfrMain.btnLoadPicClick(Sender: TObject);

begin

Image1.Picture.Bitmap.LoadfromResourceName(hInstance,'资源标识符');

end;

2．存取资源文件中的光标

Screen.Cursors[]是一个光标数组，使用光标文件我们可以将定制的光标加入到这个属性中。因为默认的光标在数组中索引值是0，所以除非想取代默认光标，最好将定制的光标索引值设为1。

procedure TfrMain.btnUseCursorClick(Sender: TObject);

begin

Screen.Cursors[1] :=LoadCursor(hInstance,'资源标识符');

Image1.Cursor :=1;

end;

3．存取资源文件中的图标

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

procedure TfrMain.LoadIconClick(Sender: TObject);

begin

Application.Icon.Handle := LoadIcon(hInstance,'资源标识符');

End;

4．存取资源文件中的AVI

在工程中添加一TAnimate控件(在Win32控件面板上)，在需要的地方加入：

procedure TfrMain.LoadIconClick(Sender: TObject);

begin

Animate1.ResName :='MyAvi' ; //资源标识

Animate1.Active := True ;

End ;

实 践中的一点总结:并不是所有的AVI资源都可以用TAnimate组件来播放，编定程序时要测试。遇到不能用TAnimate组件来播放的AVI资源，则 可以把它从资源文件里分离出来，再使用相应的播放组件比如TMediaPlayer来播放。使用完再把分离出来的临时文件删除掉。可以参考后面 “7。”的说明。

5．存取资源文件中的JPEG

把jpeg单元加入到Interface的uses中。

procedure TForm1.LoadJPGClick(Sender: TObject);

var

Fjpg : TJpegImage ;

FStream : TResourceStream ;

begin

Fjpg := TJpegImage.Create ;

FStream := TResourceStream.Create(hInstance,'资源标识符',RT_RCDATA) ;

FJpg.LoadfromStream(FStream) ;

Image1.Picture.Bitmap.Assign(FJpg);

end;

6．存取资源文件中的Wave

把MMSystem加入到Interface的uses中

procedure TForm1.LoadWaveClick(Sender: TObject);

begin

PlaySound('MyWav',hInstance,Snd_ASync or Snd_Memory or snd_Resource) ;

end;

实践中的一点结论：PlaySound()的参数Snd_ASync表示异步播放方式，Snd_Sync表示同步播放方式。（1）当采用异步方式的时 候，WAV资源可以作为背景音乐来应用；但是当有连续多次异步调用的时候，则可能会丢弃最后一次调用之前的所有播放，用户得到的效果只是最后一次调用的声 音。（2）当采用同步方式的时候，WAV资源会独占资源，导致WAV文件未播放完之前用户无法对应用程序进行任何操作，直至它的调用结束。所以如果有大的 同步WAV资源时，会造成应用程序界面的停滞。但是这种方式却可以连续地一个不漏地执行多次调用。

7．其他资源的调用：

首先把要嵌入的文件以　RCDATA （Window 规定的自定义格式）格式存入资源文件，调用时把资源文件中的源文件通过“流”分离出来，建立一个临时的物理文件存在于应用程序路径下，然后可以用相应类型的组件来或方法来使用该文件。当程序退出时再不忘把该临时文件删除掉。

例如：

var

tmpDirectory : string;

myres : TResourceStream;

begin

tmpDirectory := ExtractFilePath(paramstr(0));

if not FileExists(tmpDirectory + 'Music1.RMI') then

begin

myres := TResourceStream.Create(hinstance,'music1','RMI');

myres.SaveToFile(tmpDirectory + 'Music1.RMI');//从资源文件中分离出来

myres.Free;

。。。。。。。。。。

end;

程序退出的时候删除:

if FileExists(tempDirectory + 'music1.RMI') then

DeleteFile(tempDirectory + 'music1.RMI');

举例：

1. 嵌入可执行EXE 文件

//尽管　Windows　规定　RCDATA　用作自定义格式,　我们也可以自定义格式名称,　譬如本例(rc　文件):

MyFile1　RCDATA　"c:\Windows\system32\notepad.exe"

MyFile2　MyRes　"c:\Windows\System32\calc.exe"

{上面把　notepad.exe　时指定为　RCDATA　格式;　把　calc.exe　就指定成了自定义的　MyRes　格式}

//本例在资源中嵌入了记事本和计算器,　然后提取并调用:

unit　Unit1;

interface

uses

　Windows,　Messages,　SysUtils,　Variants,　Classes,　Graphics,　Controls,　Forms,

　Dialogs,　StdCtrls;

type

　TForm1　=　class(TForm)

　　Button1:　TButton;

　　Button2:　TButton;

　　procedure　Button1Click(Sender:　TObject);

　　procedure　Button2Click(Sender:　TObject);

　end;

var

　Form1:　TForm1;

implementation

{$R　*.dfm}

procedure　TForm1.Button1Click(Sender:　TObject);

var

　rs:　TResourceStream;

begin

　rs　:=　TResourceStream.Create(HInstance,　'MyFile1',　RT_RCDATA);

　rs.SaveToFile('c:\temp\pad.exe');

　WinExec('c:\temp\pad.exe',　1);

　rs.Free;

end;

procedure　TForm1.Button2Click(Sender:　TObject);

var

　rs:　TResourceStream;

begin

　rs　:=　TResourceStream.Create(HInstance,　'MyFile2',　'MyRes');

　rs.SaveToFile('c:\temp\sum.exe');

　WinExec('c:\temp\sum.exe',　1);

　rs.Free;

end;

end.　

2．嵌入文本文件

(1)资源文件的定义和生成：
编辑资源定义文件 myres.rc，内容如下：
txt1 mytext test1.txt
txt2 mytext test2.txt
然后，把 myres.rc 加入工程中，会自动在 prj 文件的开头加入语句 {$R 'myrec.res' 'myrec.rc'}。将来编译程序时会自动生成资源文件 myrec.res，并把资源加入 exe 文件中。其中 mytext 我我们自定义的资源类型，html1 和 html2 是对应的文本文件 test1.txt 和 test2.txt 的资源标识名字，以后调用资源时就是用这个区别不同的资源。一旦生成了 exe 文件，myrec.rc、myrec.res 和 test1.txt 以及 test2.txt 就没有用处了，不必与 exe 文件一起发布。

(2)资源的调用：
用一段代码来说明(在 Delphi7.0下调试通过)，主要牵涉到对内存中流的操作，TResourceStream.Create() 是流的创建函数。可以把资源直接还原成一个文本文件。还可以把流全部读入到 buf 数组里，用了流的 read 方法，然后把 buf 赋值给字符串变量。
procedure TForm1.Button1Click(Sender: TObject);
var
Res: TResourceStream;
buf: array[0..10000] of char;
sTXT: string;
begin
Res := TResourceStream.Create(HInstance, 'txt1', PChar('mytext'));

//将资源保存为文件，即还原文件
Res.SaveToFile('text1.txt');

//还可以进行流操作，取出文本文件的内容到一个字符串变量中
res.Read(buf, res.Size);
sTXT := buf; //将 pchar 类型转换为 string 类型
ShowMessage(sTXT); //对 ShowMessage 函数，ShowMessage(buf) 也正确
Res.Free;
end;

###############################################################################

Delphi学习使用资源文件 - 嵌入和提取任何类型的文件

//下面是　Windows　支持的资源格式:

RT_CURSOR　　　　=　MakeIntResource(1);

RT_BITMAP　　　　=　MakeIntResource(2);

RT_ICON　　　　　=　MakeIntResource(3);

RT_MENU　　　　　=　MakeIntResource(4);

RT_DIALOG　　　　=　MakeIntResource(5);

RT_STRING　　　　=　MakeIntResource(6);

RT_FONTDIR　　　=　MakeIntResource(7);

RT_FONT　　　　　=　MakeIntResource(8);

RT_ACCELERATOR　=　MakeIntResource(9);

RT_RCDATA　　　　=　Types.RT_RCDATA;　//MakeIntResource(10);

RT_MESSAGETABLE　=　MakeIntResource(11);

　　DIFFERENCE　　=　11;

RT_GROUP_CURSOR　=　MakeIntResource(DWORD(RT_CURSOR　+　DIFFERENCE));

RT_GROUP_ICON　　=　MakeIntResource(DWORD(RT_ICON　+　DIFFERENCE));

RT_VERSION　　　=　MakeIntResource(16);

RT_DLGINCLUDE　　=　MakeIntResource(17);

RT_PLUGPLAY　　　=　MakeIntResource(19);

RT_VXD　　　　　=　MakeIntResource(20);

RT_ANICURSOR　　=　MakeIntResource(21);

RT_ANIICON　　　=　MakeIntResource(22);