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

delphi 资源文件详解的更多相关文章

  1. res文件夹及xml资源文件详解

    目录 一.values文件:存放字符串(strings).颜色(colors).尺寸(dimens).数组(arrays).样式(styles类似于CSS文件).类型等资源 二.drawable:存放 ...

  2. web.xml文件详解

      web.xml文件详解 Table of Contents 1 listener. filter.servlet 加载顺序 2 web.xml文件详解 3 相应元素配置 1 listener. f ...

  3. Linux中/proc目录下文件详解

    转载于:http://blog.chinaunix.net/uid-10449864-id-2956854.html Linux中/proc目录下文件详解(一)/proc文件系统下的多种文件提供的系统 ...

  4. [转]AndroidManifest.xml文件详解

    转自:http://www.cnblogs.com/greatverve/archive/2012/05/08/AndroidManifest-xml.html AndroidManifest.xml ...

  5. VSFTPD全攻略(/etc/vsftpd/vsftpd.conf文件详解)

    /etc/vsftpd/vsftpd.conf文件详解,分好类,方便大家查找与学习 #################匿名权限控制############### anonymous_enable=YE ...

  6. PE文件详解(三)

    本文转自小甲鱼的PE文件详解系列传送门 PE文件到内存的映射 在执行一个PE文件的时候,windows 并不在一开始就将整个文件读入内存的,二十采用与内存映射文件类似的机制. 也就是说,windows ...

  7. Maven pom.xml文件详解

    Maven pom.xml文件详解 一.简介 POM全称是Project Object Model,即项目对象模型. pom.xml是maven的项目描述文件,它类似与antx的project.xml ...

  8. 附005.Docker Compose文件详解

    一 Docker Compose文件简介 compose文件使用yml格式,主要分为了四个区域: version:用于指定当前docker-compose.yml语法遵循哪个版本 services:服 ...

  9. tomcat 加载顺序 web.xml文件详解

    一. 1.启动一个WEB项目的时候,WEB容器会去读取它的配置文件web.xml,读取<listener>和<context-param>两个结点. 2.紧急着,容创建一个Se ...

随机推荐

  1. java中的==和!=

    java中一般很少用到==和!=,除了用于和null比较,如: if(null==o){ } //或者 if(null!=o){ } 其他地方比较一律用equals(); 建议:写完代码后在整个项目中 ...

  2. java环境变量完整版

    jdk默认安装 Key: JAVA_HOME(新建) Value: C:\Program Files\Java\jdk1.8.0_25 Key: Path(编辑) Value: %JAVA_HOME% ...

  3. <iOS>other linker flags[转]

    包含静态库时候需要在Target的Other linker flags里面加上值:-objC,-all_load,-force_load 对于64位机子和iPhone OS应用 解决方法是使用-all ...

  4. Android 中获取 debug 测试 SHA1 和 release SHA1 证书指纹数据的方法

    百度地图开发的时候要申请KEY,需要提供SHA1证书指纹数据 Eclipse eclipse中直接查看:windows -> preferance -> android -> bui ...

  5. xml规范及xml解析

    http://www.cnblogs.com/wang-meng/p/5374498.html 1,XML基础介绍 xml的概念: XML 指可扩展标记语言(EXtensible Markup Lan ...

  6. iOS指纹识别代码

    1:添加LocalAuthentication.framework框架 2:实现过程 #import "ViewController.h" #import <LocalAut ...

  7. 如何让 Drupal 使用 Wordpress 形式的编辑代码?

    如果你曾有过将 Wordpress 网站迁移到 Drupal 的经验,很可能客户会问的第一件事就是如何为 Drupal 添加编辑代码. Wordpress 中的 Shortcodes 插件让使用者可以 ...

  8. Android开发-API指南-<uses-configuration>

    <uses-configuration> 英文原文:http://developer.android.com/guide/topics/manifest/uses-configuratio ...

  9. SDUT 3345 数据结构实验之二叉树六:哈夫曼编码

    数据结构实验之二叉树六:哈夫曼编码 Time Limit: 1000MS Memory Limit: 65536KB Submit Statistic Problem Description 字符的编 ...

  10. memcached学习(二)

    Slab Allocation机制:整理内存以便重复使用 最近的memcached默认情况下采用了名为Slab Allocator的机制分配.管理内存. 在该机制出现以前,内存的分配是通过对所有记录简 ...