当前位置:首页 > Windows程序 > 正文

Delphi编程中资源文件的应用

2021-03-26 Windows程序

现在的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,‘资源标识符‘); 
Screen.Cursors[2] :=LoadCursor(hInstance,‘资源标识符2‘); 
Image1.Cursor :=1; 
screen.cursor:=2;
end;
同样定义两套鼠标

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

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

在这使用的话需要在rc文件种定义两次鼠标资源文件

温馨提示: 本文由Jm博客推荐,转载请保留链接: https://www.jmwww.net/file/67909.html