Delphi中资源文件使用详解

[align=center]Delphi中资源文件使用详解[/align]
一．编写 RC 脚本文本
　　用记事本或其它文本编辑器编写一个扩展名为“.rc”的文件。格式如下：
　　AVI 无声动画
　　BITMAP 位图文件
　　CURSOR 光标文件
　　ICON 图标文件
　　WAVE 声音文件
　　以上所列均为标准资源类型，也可以给资源自定义一个类型，如：“mytype”。不过两者在调用方式上有些不同（在后面示例“存取资源文件中的位图”中有详细描述）。
二．根据 RC 脚本文件编译成 RES 资源文件
　　在命令提示符中输入以下内容：
　　brcc32 FileName.rc //注：brcc32.exe在DelphiX\Bin目录中
三．在Delphi单元中加入资源文件
　　将生成的 RES 资源文件复制到相应程序所在的目录中，在单元文件中的“{$R *DFM}”后面加上“{$R FileName.res}”，编译后资源文件就被包含在可执行文件中了。
　　说明：如果嫌2、3两步麻烦，可以采用更简便的做法，即：将 RC 文件直接添加到项目中，在编译Delphi项目时，会自动编译该资源文件。



[align=left]四．资源文件调用示例
　　（1）存取资源文件中的位图[/align]

[align=left]//RC: testIcon icon res\test.ico
Application.Icon.Handle := LoadIcon(HInstance, 'testIcon');[/align]
[align=left]　　（3）存取资源文件中的AVI动画[/align]

[align=left]Var[/align]
[align=left]begin
jpg := TJPEGImage.Create;
resStream := TResourceStream.Create(HInstance, 'testJpg', 'jpgtype');
jpg.LoadFromStream(resStream);
Image1.Picture.Assign(jpg);
jpg.Free;
resStream.Free;
end;[/align]
[align=left]附：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事件中添加以下代码：[/align]

[align=left]Panel1.cursor:=35;[/align]
2.位图的调用
　　新建一项工程，添加一Timage控件，在需要显示的地方写以下代码：

[align=left]begin
mymap:=LoadBitmap(hinstance,'mypic');
Image1.picture.Bitmap.Handle:=mymap；animater1.resname:='myAVI';
animater1.Active:=true;[/align]
[align=left]　　其中myAVI为视频文件在资源文件中的名称。
　　4.调用WAV文件
　　在uses中加入mmsystm单元，以便在程序中播放WAV文件。播放时Playsound(pchar('mywav'),hinstance,sndsync or snd_resource);其中mywav为声音文件在资源中的名称。
　　5.加入光标
　　加入光标比较容易，只要将res文件加入单元文件中即可。但需注意,名称最好取"W"."WW"等，使第一个字母尽量靠后，以免与主程序的图标顺序颠倒。这样一来，别人在使用你的程序时如果想选择其它图标就有很多选择了。
补充：
　　1.资源类型除上述类型外，还可以字体文件，字符串文件等。
　　2.资源文件不但可以在标准图形界面下使用还可在控制台下使用。
　　下面我们来试验一下：
　　新建一工程，将唯一的一个Form删除，然后修改工程文件。增加一句{$Apptype console},在uses子句中加入mmsystem,并将其它引用单元删掉。将Begin和end之间语句删掉。至此，我们就可和Turbo PASCAL下编程序一样，且还可以调用windows的API和资源。将资源文件----{$R myfist.res}加入。在Begin和end之间写下：[/align]

[align=left]');
readln;
playsound(pchar('mywav'),hinstance,snd_sync or snd_resource);
writeln('演示结束！ExtractRes('exefile','myexe','c:\new.exe');[/align]
[align=left]　　就把ha1.exe以new.exe为名字保存到C盘根目录下了. [/align]

[align=left]Var
　　MyJpg:TJpegImage;
　Stream：＝Try
　　　　Try
　　　　　Image1.Picture.Assignc(MyJpg);
　　　MyJpg.Free;
　　　Finally
　　　end;
　library Icon;
{$R Icon.RES}
begin
end[/align]
[align=left]　　用Delphi打开编译即可得到Icon.dll.
　　3:实际调用方法如下:[/align]

[align=left]Private
　　Var　 Hinst:=Loadlibrary('Icon.dll');
　Hinst=0　Exit；Hicon:=Loadicon(Hinst,Pchar(Edit1.Text));
If　Then　FreeLibrary(Hinst);
end;[/align]
　　如果你的程序想在国际上供使用不同语言的人使用的话,用Dll来存放字符资源将是一个好方法.因为Dll不象ini文件那样可以被人随便修改,特别是有时侯如果想保存一些版权信息的话用Dll就再好不过了。比如说你准备开发一个"汉字简繁体翻译器"软件,准备提供Gb32,Big5码和英文三种语言菜单给用户,那么你可以试试用Dll来保存字符资源.
[align=left]我们需要建立三个Dll.第一步当然是写Rc文件,举Gb32码为例,内容如下:[/align]

[align=left]"
IDS_BtnSave_Caption,"保存文件Big5"
IDS_BtnGb32_Caption,"转换成"
IDS_Help_Shelp,"输入文字或打开文件后按需要点击按钮即可转换Dll文件读取相应字符Dll文件名称1表示资源文件中定义的Uses Windows,Messages;
{$R Demo.Res}
function MainDialogProc(DlgWin:hWnd;DlgMessage:UINT;DlgWParam:WPARAM;DlgLParam:LPARAM):[/align]
[align=left]Uses Windows;
{$R Demo.Res}
function MainDialogProc: integer;
begin
Result := 0;
end;
begin
DialogBox(hInstance, 'MAINFORM', 0, @MainDialogProc);
end[/align]
[align=left]　　上面的程序只不过是一个空窗口而已,现在我们来写代码响应按下相应按钮响应的事件.完整代码如下:[/align]

[align=left]', '', Sdir)
then SendMessage(GetDlgItem(DlgWin, ID_Edit), WM_SETTEXT, 0, lParam(pChar(Sdir)));
end;
ID_Setup: begin
if My_Gettext = '' then
begin
MessageBox(DlgWin, '请先选择安装文件夹', MB_ICONINFORMATION + MB_OK);
Exit;
end;
CopyFile(pchar(ParamStr(0)), pchar(My_Gettext + Getmyname), false);
MessageBox(DlgWin, '安装完毕', MB_ICONINFORMATION + MB_OK);
PostQuitMessage(0);
Exit;
end;
ID_Quit: begin
PostQuitMessage(0);
EXIT;
end;
ID_Exit: begin
if MessageBox(DlgWin, '你点击了菜单”，你确定退出程序吗', MB_ICONQUESTION + MB_OKCANCEL) = IDOK then
PostQuitMessage(0);
Exit;
end;
end;
end;
end;
begin
DialogBox(hInstance, 'MAINFORM', 0, @MainDialogProc);
end[/align]　　其中SelectDirectory函数的作用是返回一个选择的文件路径.然后把自己拷贝到选择的目录下,当然很多处理没有写,读者可以自行添加.文件编译后大小为22KB,如果直接用Delphi的VCL来写的话,将为338KB!