Delphi中资源文件使用小结 « IT元素

最新推荐文章于 2024-04-28 11:12:11 发布

weixin_30662011

最新推荐文章于 2024-04-28 11:12:11 发布

阅读量60

点赞数

文章标签： php 网络操作系统

原文链接：http://www.cnblogs.com/xe2011/archive/2012/05/26/2518885.html

版权

IT元素

Hector的编程笔记夹，如果喜欢，收藏一个

« 解决Microsoft Expression Blend 4安装后没有WP7模版

事务的脏读，不可重复读，虚读 »

Delphi中资源文件使用小结

4 九月 2011 - by Hector

一．编写 RC 脚本文本

用记事本或其它文本编辑器编写一个扩展名为“.rc”的文件。格式如下：

　　AVI 无声动画
　　BITMAP 位图文件
　　CURSOR 光标文件
　　ICON 图标文件
　　WAVE 声音文件

RC脚本编写格式如下

    mycur cursor move.cur //加入光标　　mypic Bitmap Water.BMP //加入位图　　mywav WAVE happy.wav //加入声音　　myAVI AVI EPOEN.AVI //加入视频　　myIco ICON CJT.ICO //加入图标

以上所列均为标准资源类型，也可以给资源自定义一个类型，如：“GIFTYPE”。不过两者在调用方式上有些不同。

二．根据 RC 脚本文件编译成 RES 资源文件

在命令提示符中输入以下内容：
brcc32 FileName.rc //注：brcc32.exe在DelphiX\Bin目录中,一般Delphi会添加到环境变量中，所以直接执行brcc32命令就可以了，之后会生成一个FileName.RES的文件。

三．在Delphi单元中加入资源文件

将生成的 RES 资源文件复制到相应程序所在的目录中，在单元文件中的“{$R *DFM}”后面加上“{$R FileName.res}”，编译后资源文件就被包含在可执行文件中了。
说明：如果嫌2、3两步麻烦，可以采用更简便的做法，即：将 RC 文件直接添加到项目中，在编译Delphi项目时，会自动编译该资源文件。
如下图：

四．资源文件调用示例

（1）存取资源文件中的位图

低版本的 delphi支持的位图色可能不一样， delphi6不能支持256色以上的位图。

 
         1//RC: testBmp bitmap res\test.bmp
 
         2Image1.Picture.Bitmap.LoadFromResourceName(HInstance, 'testBmp');
 
         3//RC: testBmp bmptype res\test.bmp
 
         4//此方法支持自定义格式
 
         5var
 
         6resStream: TResourceStream;
 
         7begin
 
         8resStream := TResourceStream.Create(HInstance, 'testBmp', 'bmptype');
 
         9Image1.Picture.Bitmap.LoadFromStream(resStream);
 
         10resStream.Free;
 
         11end;

（2）存取资源文件中的图标

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

`1`	`//RC: testIcon icon res\test.ico`

`2`	`Application.Icon.Handle := LoadIcon(HInstance,` `'testIcon');`

（3）存取资源文件中的AVI动画

 
         1//RC: testAvi avi res\test.avi
 
         2Animate1.ResName := 'testAvi';
 
         3Animate1.Active := True;

（4）存取资源文件中的JPEG图像

为了能够处理JPEG图像，必须在Interface处引用JPEG单元。

 
         1var
 
         2jpg: TJPEGImage;
 
         3resStream: TResourceStream;
 
         4begin
 
         5jpg := TJPEGImage.Create;
 
         6resStream := TResourceStream.Create(HInstance, 'testJpg', 'jpgtype');
 
         7jpg.LoadFromStream(resStream);
 
         8Image1.Picture.Assign(jpg);
 
         9jpg.Free;
 
         10resStream.Free;
 
         11end;

（5）光标的调用

首先在程序中定义一个值大于0的常量，因为Delphi本身用0-负16来索引默认的光标，所以我们制定的光标应从表面上1开始索引。然后在窗口的Oncreat事件中添加以下代码：

`1`	`screen.cursor[35]:=Loadcursor (hinstance,'mycur');`

其中35为大于1的常量，mycur为光标在资源文件中的名字。如果希望在其他控件上使用定制光标，例如Panel控件，只需在程序的适当处加入以下代码：

`1`	`Panel1.cursor:=35;`

（6）调用WAV文件

在uses中加入mmsystm单元，以便在程序中播放WAV文件。播放时

`1`	`Playsound(pchar('mywav'),hinstance,sndsync` `or` `snd_resource);`

其中mywav为声音文件在资源中的名称。

资源类型除上述类型外，还可以字体文件，字符串文件等。

在控制台下使用资源文件

新建一工程，将唯一的一个Form删除，然后修改工程文件。增加一句{$Apptype console},在uses子句中加入mmsystem,并将其它引用单元删掉。将Begin和end之间语句删掉。至此，我们就可和Turbo PASCAL下编程序一样，且还可以调用windows的API和资源。将资源文件—-{$R myfist.res}加入。在Begin和end之间写下：

 
       1writeln('演示程序，按任意键开始！');
 
       2readln;
 
       3playsound(pchar('mywav'),hinstance,snd_sync or snd_resource);
 
       4writeln('演示结束！');

使用Image Editor工具

Delphi本身自带了一个叫Image Editor的工具，同样可以编辑资源文本，但和本文的方法比较，可得出下表：

Image	Editor	Brcc32
BMP	只支持16位色	任意色
光标	黑白两色	任意色
ICO	只支持16位色	任意色
AVI	不支持	支持
WAV	不支持	支持
字符串	不支持	支持

上面说的是直接在程序本身的调用。其实资源文件还有其它用法。比如说在你的程序携带其它文件，要用的时候释放出来。
例如:

`1`	`myexe exefile` `'ha1.exe'//脚本文件`

下面是自定义释放函数ExtractRes，本例中使用如下:

`1`	`ExtractRes('exefile','myexe','c:\new.exe');`

就把ha1.exe以new.exe为名字保存到C盘根目录下了.

 
       1function TForm1.ExtractRes(ResType, ResName, ResNewName: string): boolean;
 
       2var
 
       3Res: TResourceStream;
 
       4begin
 
       5try
 
       6Res := TResourceStream.Create(Hinstance, Resname, Pchar(ResType));
 
       7try
 
       8Res.SavetoFile(ResNewName);
 
       9Result := true;
 
       10finally
 
       11Res.Free;
 
       12end;
 
       13except
 
       14Result := false;
 
       15end;
 
       16end;

Tags: delphi
In: Delphi | No comments »

还没有评论呢。

点击这里取消回复。

姓名 (必填)

电子邮件 (不会被公开) (必填)

站点

有人回复时邮件通知我

« 解决Microsoft Expression Blend 4安装后没有WP7模版

事务的脏读，不可重复读，虚读 »

Search:

請選取語言▼
Archives
Categories
- Coding (111)
  - Ajax/JavaScript (18)
  - ASP/C#/.NET (25)
  - Delphi (4)
  - HTML/CSS/XML/XSL (12)
  - JAVA (1)
  - 数据库 (23)
  - 数据结构 (11)
- 其他平台 (33)
  - linux (30)
  - wp7 (3)
- 杂七杂八 (7)
  - 心情乱弹 (7)
- 网络观察 (105)
  - IT杂谈 (61)
  - SEO (11)
  - 垂直搜索 (12)
  - 网站开发 (16)
  - 网络安全 (1)
  - 酷软使用 (1)

Articles (RSS) et Commentaires (RSS)
Theme by Dreamweaver Gratuit
Powered by WordPress
站长统计

Original Text:

顯示其他翻譯

通过 Wiz 发布

转载于:https://www.cnblogs.com/xe2011/archive/2012/05/26/2518885.html

weixin_30662011

关注

0
点赞
踩
0

收藏

觉得还不错? 一键收藏
0
评论
Delphi中资源文件使用小结 « IT元素

首页关于友情链接 IT元素Hector的编程笔记夹，如果喜欢，收藏一个« 解决Microsoft Expression Blend 4安装后没有WP7模版事务的脏读，不可重复读，虚读 »Delphi中资源文件使用小结4 九月 2011 - by Hector一．编写 RC 脚本文本用记事本或其它文本编辑器编写一个扩展名为“.rc”的文件。格式如下：　　AVI 无...
复制链接

扫一扫