1,593
社区成员
发帖
与我相关
我的任务
分享重"弹"谈Delphi编程中资源文件的应用
重"弹"谈Delphi编程中资源文件的应用
初级应用篇:
资源文件一般为扩展名为res的文件.在VC中资源文件用得非常普遍,但Delphi在其联机帮助中对资源文件没作什么介绍,其实利用其自带的资源编译工具BRCC32.EXE(一般位于DelphiBIN目录下）,我们完全可以做出跟VC一样效果奈募础?BR>资源文件最大的好处是能将一些在必要时才调用的文件跟可执行文件一起编译,生成一个文件.这样做最大的好处就是使外部文件免遭破坏.例如在一条程序中你要临时调用一幅图片,一般作法是把图片放在某一路径下（通常是主程序所在路径）,但如果用户路径误删你的图片文件,则可能使程序找不到相应文件而出错崩溃.另外,如果你想自己的程序界面美观,想用一些自定义光标,也要用到资源文件。
资源文件的使用步骤为：
1.编写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.
2.将rc文件编译成res资源文件
将脚本文件和实际文件拷到Brcc32.EXE所在目录，执行DOS命令。格式为：Brcc32 脚本文件(回车)，例如有一名为myfirst.rc的脚本文件，则执行 Brcc32 myfirst.rc(回车)即可。如果你是懒人，也可新建一批处理文件，内容只有一行：Brcc32 mufist.rc.(因为Delphi安装后一般会在自动批处理文件中指明搜索路径的。)如果编译成功，则会生成一个结尾为res的文件，这个文件就是我们需要的资源文件。
3.在Delphi单元中加入资源文件
将生成的res资源文件拷贝到你所编程序的路径下，在单元文件{$R *DFM}后加上一句{$R mufirst.res}，则将res文件加入去，编译后资 源文件即已包含在可执行文件中了。若你有多个资源文件，也按上法依次加入。
4.在Delphi程序中调用资源文件
资源文件在Delphi中的关键字为hinstance.下面给出具体用法.
<1>光标的调用
首先在程序中定义一个值大于0的常量，因为Delphi本身用0-负16来索引默认的光标，所以我们制定的光标应从表面上1开始索引。然后在窗口的Oncreat事件中添加以下代码：
screen.cursor[35]:=Loadcursor (hinstance,'mycur');
其中35为大于1的常量，mycur为光标在资源文件中的名字。如果希望在其他控件上使用定制光标，例如Panel控件，只需在程序的适当处加入以下代码：
Panel1.cursor:=35;
<2>位图的调用
新建一项工程，添加一Timage控件，在需要显示的地方写以下代码：
Var mymap:Hbitmap;
begin
mymap:=LoadBitmap(hinstance,'mypic');
Image1.picture.Bitmap.Handle:=mymap；
end;
其中"mypic"为位图资源文件中的名称。
〈3〉AVI文件的调用
新建一工程，添加一Animate控件，在需要的地方加入：
animater1.resname:='myAVI';
animater1.Active:=true;
其中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之间写下：
writeln('演示程序，按任意键开始！');
readln;
playsound(pchar('mywav'),hinstance,snd_sync or snd_resource);
writeln('演示结束！');
运行程序，将弹出一个标准DOS窗口，按任意键播放声音文件。是不是很COOL呢!我曾下载过一个播放器，在其安装目录下我发现有一"DOS程序",用鼠标双击它便弹出一个DOS窗口，显示DOS时代特有的画图，并有背景音乐！可能就是用这个方法做的。
3.Delphi本身自带了一个叫Image Editor的工具，同样可以编辑资源文本，但和本文的方法比较，可得出下表：
**************************************
Image Editor Brcc32
BMP 只支持16位色 任意色
光标 黑白两色 任意色
ICO 只支持16位色 任意色
AVI 不支持 支持
WAV 不支持 支持
字体
字符串 不支持 支持
其他
****************************************
上面说的是直接在程序本身的调用。其实资源文件还有其它用法。比如说在你的程序携带其它文件，要用的时候释放出来。
例如: myexe exefile 'ha1.exe'//脚本文件
下面是自定义释放函数ExtractRes，本例中使用如下:
ExtractRes('exefile','myexe','c: ew.exe');
就把ha1.exe以new.exe为名字保存到C盘根目录下了.
function TForm1.ExtractRes(ResType, ResName, ResNewName: string): boolean;
var
Res: TResourceStream;
begin
try
Res := TResourceStream.Create(Hinstance, Resname, Pchar(ResType));
try
Res.SavetoFile(ResNewName);
Result := true;
finally
Res.Free;
end;
except
Result := false;
end;
end;
end;
初级应用篇:
资源文件一般为扩展名为res的文件.在VC中资源文件用得非常普遍,但Delphi在其联机帮助中对资源文件没作什么介绍,其实利用其自带的资源编译工具BRCC32.EXE(一般位于DelphiBIN目录下）,我们完全可以做出跟VC一样效果奈募础?BR>资源文件最大的好处是能将一些在必要时才调用的文件跟可执行文件一起编译,生成一个文件.这样做最大的好处就是使外部文件免遭破坏.例如在一条程序中你要临时调用一幅图片,一般作法是把图片放在某一路径下（通常是主程序所在路径）,但如果用户路径误删你的图片文件,则可能使程序找不到相应文件而出错崩溃.另外,如果你想自己的程序界面美观,想用一些自定义光标,也要用到资源文件。
资源文件的使用步骤为：
1.编写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.
2.将rc文件编译成res资源文件
将脚本文件和实际文件拷到Brcc32.EXE所在目录，执行DOS命令。格式为：Brcc32 脚本文件(回车)，例如有一名为myfirst.rc的脚本文件，则执行 Brcc32 myfirst.rc(回车)即可。如果你是懒人，也可新建一批处理文件，内容只有一行：Brcc32 mufist.rc.(因为Delphi安装后一般会在自动批处理文件中指明搜索路径的。)如果编译成功，则会生成一个结尾为res的文件，这个文件就是我们需要的资源文件。
3.在Delphi单元中加入资源文件
将生成的res资源文件拷贝到你所编程序的路径下，在单元文件{$R *DFM}后加上一句{$R mufirst.res}，则将res文件加入去，编译后资 源文件即已包含在可执行文件中了。若你有多个资源文件，也按上法依次加入。
4.在Delphi程序中调用资源文件
资源文件在Delphi中的关键字为hinstance.下面给出具体用法.
<1>光标的调用
首先在程序中定义一个值大于0的常量，因为Delphi本身用0-负16来索引默认的光标，所以我们制定的光标应从表面上1开始索引。然后在窗口的Oncreat事件中添加以下代码：
screen.cursor[35]:=Loadcursor (hinstance,'mycur');
其中35为大于1的常量，mycur为光标在资源文件中的名字。如果希望在其他控件上使用定制光标，例如Panel控件，只需在程序的适当处加入以下代码：
Panel1.cursor:=35;
<2>位图的调用
新建一项工程，添加一Timage控件，在需要显示的地方写以下代码：
Var mymap:Hbitmap;
begin
mymap:=LoadBitmap(hinstance,'mypic');
Image1.picture.Bitmap.Handle:=mymap；
end;
其中"mypic"为位图资源文件中的名称。
〈3〉AVI文件的调用
新建一工程，添加一Animate控件，在需要的地方加入：
animater1.resname:='myAVI';
animater1.Active:=true;
其中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之间写下：
writeln('演示程序，按任意键开始！');
readln;
playsound(pchar('mywav'),hinstance,snd_sync or snd_resource);
writeln('演示结束！');
运行程序，将弹出一个标准DOS窗口，按任意键播放声音文件。是不是很COOL呢!我曾下载过一个播放器，在其安装目录下我发现有一"DOS程序",用鼠标双击它便弹出一个DOS窗口，显示DOS时代特有的画图，并有背景音乐！可能就是用这个方法做的。
3.Delphi本身自带了一个叫Image Editor的工具，同样可以编辑资源文本，但和本文的方法比较，可得出下表：
**************************************
Image Editor Brcc32
BMP 只支持16位色 任意色
光标 黑白两色 任意色
ICO 只支持16位色 任意色
AVI 不支持 支持
WAV 不支持 支持
字体
字符串 不支持 支持
其他
****************************************
上面说的是直接在程序本身的调用。其实资源文件还有其它用法。比如说在你的程序携带其它文件，要用的时候释放出来。
例如: myexe exefile 'ha1.exe'//脚本文件
下面是自定义释放函数ExtractRes，本例中使用如下:
ExtractRes('exefile','myexe','c: ew.exe');
就把ha1.exe以new.exe为名字保存到C盘根目录下了.
function TForm1.ExtractRes(ResType, ResName, ResNewName: string): boolean;
var
Res: TResourceStream;
begin
try
Res := TResourceStream.Create(Hinstance, Resname, Pchar(ResType));
try
Res.SavetoFile(ResNewName);
Result := true;
finally
Res.Free;
end;
except
Result := false;
end;
end;
end;
...全文
请发表友善的回复…
发表回复
山东蓝鸟贵薪 2013-01-02
- 打赏
- 举报
谢谢关注,
"证书导入跟资源文件没有一点关系的"
我是将那个"数字证书"以资料方面"封装"到EXE程序中
当执行EXE程序时,将那个"数字证书"释放出来后,再进行安装的
有空向您(lovejingtao )请教一些问题
还请多多赐教
lovejingtao 2012-12-30
- 打赏
- 举报
function CertAddEncodedCertificateToStore(hCertStore :HCERTSTORE;
dwCertEncodingType :DWORD;
const pbCertEncoded :PBYTE;
cbCertEncoded :DWORD;
dwAddDisposition :DWORD;
var ppCertContext :PCCERT_CONTEXT):BOOL ; stdcall;external 'crypt32.dll' name 'CertAddEncodedCertificateToStore';
例子:
if not CertAddEncodedCertificateToStore(hSystemStore, X509_ASN_ENCODING,
PByte(@CABinBuffer[0]), Length(CABinBuffer),
CERT_STORE_ADD_NEW, Cert) then
begin
ErrCode := GetLastError;
CertCloseStore(hSystemStore, 0);
if ErrCode = CRYPT_E_EXISTS then Result := True;
end
其中CABinBuffer就是根证书内容转换过来的数组.
如果不想弹警告,要么提权,要么做成服务程序.
lovejingtao 2012-12-30
- 打赏
- 举报
这文章是我很多很多年前写的吧
证书导入跟资源文件没有一点关系的
另外,导入只需要调用API即可,传递过去的是字符指针即可,没必要什么资源方式的.
yellsf 2012-12-28
- 打赏
- 举报
Mark一下 学习了！
softneo 2012-10-18
- 打赏
- 举报
唉，我现在好长时间没Delphi了，哥放弃了。。
山东蓝鸟贵薪 2011-09-15
- 打赏
- 举报
继续学习中.........
lin1988925 2011-09-02
- 打赏
- 举报
mark
山东蓝鸟贵薪 2011-07-31
- 打赏
- 举报
几点如下：
1） .rc中可以保存任何格式的文件如下；
mycur cursor move.cur //加入光标
mypic Bitmap Water.BMP //加入位图
mywav WAVE happy.wav //加入声音
myIco ICON CJT.ICO //加入图标
2) 有些资源文件，DELPHI中的控件可以“直接识别这些”如下：
mybmp Bitmap Water.BMP //加入位图
myjpb JPGmap mypic.jpg //图片
3).rc中也可保存“非标准的资源”如下：
myexe exefile 'ha1.exe'//脚本文件
当然这种文件必须“释放出来再运行即可”
ExtractRes('exefile','myexe','c: ew.exe');
当然也有非EXE文件的实例，我的那个“数字证书”就是“封装的.cer”
资源文件如下：
资源文件AB.RC,内容如下：
ABCER CERFILE AB.CER
CDCER CERFILE CD.CER
通过这个方法
WinExec();
ShellExecute();
实现了加载功能
1） .rc中可以保存任何格式的文件如下；
mycur cursor move.cur //加入光标
mypic Bitmap Water.BMP //加入位图
mywav WAVE happy.wav //加入声音
myIco ICON CJT.ICO //加入图标
2) 有些资源文件，DELPHI中的控件可以“直接识别这些”如下：
mybmp Bitmap Water.BMP //加入位图
myjpb JPGmap mypic.jpg //图片
3).rc中也可保存“非标准的资源”如下：
myexe exefile 'ha1.exe'//脚本文件
当然这种文件必须“释放出来再运行即可”
ExtractRes('exefile','myexe','c: ew.exe');
当然也有非EXE文件的实例，我的那个“数字证书”就是“封装的.cer”
资源文件如下：
资源文件AB.RC,内容如下：
ABCER CERFILE AB.CER
CDCER CERFILE CD.CER
通过这个方法
WinExec();
ShellExecute();
实现了加载功能
山东蓝鸟贵薪 2011-07-31
- 打赏
- 举报
好了，大家学习的怎么样了呀，下面总结一下：
山东蓝鸟贵薪 2011-07-28
- 打赏
- 举报
顶呀，再不顶的话，我的“热情”就“下降”了呀
lyhoo163 2011-07-28
- 打赏
- 举报
顶。。顶。。
山东蓝鸟贵薪 2011-07-26
- 打赏
- 举报
[Quote=引用 135 楼 yc_8301 的回复:]
好久没上来了，谢谢Lz分享！
[/Quote]
不用客气，共同学习吗，当然你有好“东东”也要上传哟
好久没上来了，谢谢Lz分享！
[/Quote]
不用客气，共同学习吗，当然你有好“东东”也要上传哟
yc_8301 2011-07-25
- 打赏
- 举报
好久没上来了，谢谢Lz分享！
山东蓝鸟贵薪 2011-07-24
- 打赏
- 举报
Delphi编程乐园
群号:32307764
山东蓝鸟贵薪 2011-07-24
- 打赏
- 举报
Delphi编程乐园
群号:32307764
山东蓝鸟贵薪 2011-07-24
- 打赏
- 举报
人不多呀，努力学习中..............
lyhoo163 2011-07-24
- 打赏
- 举报
分享，收藏。
山东蓝鸟贵薪 2011-07-23
- 打赏
- 举报
[Quote=引用 126 楼 zha208 的回复:]
FBSDFGSDFGSDFGSDFG
[/Quote]
什么乱七八糟的，别发没有技术含量的帖子............
FBSDFGSDFGSDFGSDFG
[/Quote]
什么乱七八糟的，别发没有技术含量的帖子............
hamlet 2011-07-23
- 打赏
- 举报
DELPHI好像学得人不多了
山东蓝鸟贵薪 2011-07-23
- 打赏
- 举报
各位高手也顶顶帖子吧，
希望这个帖子能够再丰富一下
加载更多回复（116）
