- 1、本文档共25页,可阅读全部内容。
- 2、有哪些信誉好的足球投注网站(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
- 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
- 5、该文档为VIP文档,如果想要下载,成为VIP会员后,下载免费。
- 6、成为VIP后,下载本文档将扣除1次下载权益。下载后,不支持退款、换文档。如有疑问请联系我们。
- 7、成为VIP后,您将拥有八大权益,权益包括:VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
- 8、VIP文档为合作方或网友上传,每下载1次, 网站将根据用户上传文档的质量评分、类型等,对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档
查看更多
dephi5中资源文件的创建和使用_陈经韬
《Dephi5 中资源文件的创建和使用》
几乎每个Windows应用程序都使用图标、图片、光标等资源。资源是程序的一部分,但是
它是不可执行代码。下面我们就详细介绍资源文件在Delphi5 中建立和使用方法。
1.把资源放到Exe 文件的优点
由于定位资源比在磁盘中定位文件花费时间少,所以应用程序执行会更快。多种资源可以
放在一个文件中,减少了图标、图片、光标等文件数量。保存资源文件时不要和工程名相
同,因为Delphi 创建工程时会自动创建一个和工程名相同的资源文件。并且最好将资源文
件保存到和工程文件同一个文件夹中。
2.创建资源文件
首先创建一个.Rc 的纯文本文件。格式如下:
资源标识符 + 关键字 + 资源文件名
① 资源标识符:程序中调用资源时的特殊标号;
② 关键字:标识资源文件类型;
Wave: 资源文件是声音文件;
RCDATA: JPEG 文件;
AVI: AVI 动画;
ICON: 图标文件;
BITMAP: 位图文件;
CURSOR: 光标文件;
资源文件名:资源文件名;
③ 资源文件名:编译的资源文件,比如动画、位图、光标等;
④ 如:MyWav WAVE FileName.Wav
使用Borland 资源编译器 (BRCC32.EXE)转化.Rc 文件成.Res文件。在DOS命令行下输入
下列命令:
Brcc32FileName.Rc// Brcc32.Exe在Delphi5\Bin 文件下。
3.在工程中引用资源文件
为了存取我们的资源文件,必须告诉Delphi链接我们的资源文件到应用程序中。因此我们
可以在源代码中加入一条编译指令完成上述功能。这条指令必须紧跟在窗口指令后,如下
形式:
{$R *.DFM}//Delphi 自带编译指令
{$RFileName.Res} //新加入的编译资源文件的指令。
不要删除{$R *.DFM}指令,因为这行代码告诉Delphi链接下面的资源到窗口的资源中。
4.调用资源文件
(1)存取资源文件中的位图(Bitmap)
程序中如果想存取资源,你必须调用一些WindowsAPI 函数。保存在资源文件中的位图、
光标和图标可以通过调用LoadBitmap、LoadCursor 和LoadIcon 函数存取。
本例举例说明如何存取资源文件中位图并显示在Timage 控件中。
procedureTfrMain.btnCanvasPic(Sender:TObject);
Image1.Picture.Bitmap.Handle : LoadBitmap(hInstance
资源标识符);
end;
注:如果位图没有装载成功,程序仍旧执行,但是Image 将不再显示图片。你可以根据
LoadBitmap 函数的返回值判断是否装载成功,如果装载成功返回值是非0,如果装载失败
返回值是0。
另外一个存取显示位图的方法如下
procedureTfrMain.btnLoadPicClick(Sender:TObject);
begin
Image1.Picture.Bitmap.LoadFromResourceName(hInstance
资源标识符);
end;
(2)存取资源文件中的光标
Screen.Cursors[]是一个光标数组,使用光标文件我们可以将定制的光标加入到这个属性中。
因为默认的光标在数组中索引值是0,所以除非想取代默认光标,最好将定制的光标索引
值设为1。
procedureTfrMain.btnUseCursorClick(Sender:TObject);
begin
Screen.Cursors[1] : LoadCursor(hInstance
资源标识符);
Image1.Cursor : 1;
end;
(3)存取资源文件中的图标
将图标放在资源文件中,可以实现动态改变应用程序图标。
procedureTfrMain.LoadIconClick(Sender:TObject);
begin
Application.Icon.Handle : LoadIcon(hInstance
资源标识符);
End;
(4)存取资源文件中的AVI
procedureTfrMain.LoadIconClick(Sender:TObject);
begin
Animate1.ResName : MyAvi ;//资源标识
Animate1.Active : True ;
End ;
(5)存取资源文件中的JPEG
把jpeg 单元加入到Interface 的uses单元中。
文档评论(0)