使用DLL封装应用程序的资源

{ Copyrigh 咏南工作室 Author HNXXCXG（大富翁） QQ 254072148（咏南） Email hnxxcxg@yahoo.com.cn Date 2007.04.29 ToDo 使用DLL封装应用程序的资源 } 程序在BDS2006下编译通过。 笔者有些懒，理论说明文档就引用网上的。 笔者的代码应该来说是写得比较简单的。 谈Delphi编程中资源文件的应用 一、初级应用篇 资源文件一般为扩展名为res的文件，在VC中资源文件用得非常普遍，但Delphi在其联机帮助中对资源文件没 作什么介绍。其实利用其自带的资源编译工具BRCC32.EXE(一般位于DelphiBIN目录下）,我们完全可以做出跟VC一 样效果的文件来。 资源文件最大的好处是能将一些在必要时才调用的文件跟可执行文件一起编译，生成一个文件。这样做最大 的好处就是使外部文件免遭破坏。例如在一个程序中你要临时调用一幅图片，一般作法是把图片放在某一路径下 （通常是主程序所在路径）,但如果用户路径误删你的图片文件则可能使程序找不到相应文件而出错崩溃。另外， 如果你想自己的程序界面美观，想用一些自定义光标，也要用到资源文件。 资源文件的使用步骤为： 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控件，在需要显示的地方写以下代码（其中"mypic"为位图资源文件中的名 称）： Var mymap:Hbitmap; begin mymap:=LoadBitmap(hinstance,'mypic'); Image1.picture.Bitmap.Handle:=mymap； end; 〈3〉AVI文件的调用 新建一工程，添加一Animate控件，在需要的地方加入（其中myAVI为视频文件在资源文件中的名称）： animater1.resname:='myAVI'; animater1.Active:=true; 〈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:new.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; 二、中级应用篇: 上面我们已经知道如何把一副BMP图像从资源文件里面读出来，但是BMP文件太大了，JPG文件应用的相对较 多。那么如何把JPG图像读出来呢？用资源文件加流方式即可。具体方法如下: (1)MyJpg JPEG　My.JPG (2)Var 　　　Stream:TStream; 　　　MyJpg:TJpegImage; 　　Begin 　　　Stream：＝TResourceStream.Cceat(HINSTANCE,'MyJpg','JPEG'); 　　　Try 　　　　　MyJpg:=TJpegImage.Create; 　　　　Try 　　　　　　MyJpg.LoadfromStream(Stream); 　　　　　　Image1.Picture.Assignc(MyJpg); 　　　　Finally 　　　　　　MyJpg.Free; 　　　　end; 　　　Finally 　　　　Stream.Free; 　　　end; 　　end; 读取其它图片文件也是一样的。比如说gif动画文件，当然前提是你有一个gif.pas，这个单元很多站点都有 的，可以自己去找找。实际应用中我还发现用上面的代码可以直接显示资源文件中的ICON和BMP。 说到图形处理，实际上还可以用Delphi创建、调用纯图标资源的DLL。比如说你可以看看超级解霸目录下的 Dll,很多就是纯图标资源而已。具体方法如下： (1)创建一个Hicon.RES文件,这里不再重复； (2)新建一文本文件Icon.dpr,内容如下： library Icon; {$R Icon.RES} begin end. 用Delphi打开编译即可得到Icon.dll。 (3)实际调用方法如下: ...... 　Private 　　Hinst:THANDLE; ...... 　Var　Hicon:THANDLE; begin 　Hinst:=Loadlibrary('Icon.dll'); 　If　Hinst=0　Then　Exit； 　Hicon:=Loadicon(Hinst,Pchar(Edit1.Text)); If　Hicon<>0　Then　Image1.Picture.Icon.Handle:=Hicon; 　FreeLibrary(Hinst); end; 如果你的程序想在国际上供使用不同语言的人使用的话，用Dll来存放字符资源将是一个好方法。因为Dll不 象ini文件那样可以被人随便修改，特别是有时侯如果想保存一些版权信息的话用Dll就再好不过了。比如说你准备 开发一个“汉字简繁体翻译器”软件，准备提供Gb32、Big5码和英文三种语言菜单给用户，那么你可以试试用Dll 来保存字符资源。 我们需要建立三个Dll。第一步当然是写Rc文件，举Gb32码为例，内容如下： /*MySc.rc*/ #define IDS_MainForm_Caption 1 #define IDS_BtnOpen_Caption 2 #define IDS_BtnSave_Caption 3 #define IDS_BtnBig5_Caption 4 #define IDS_BtnGb32_Caption 5 #define IDS_BtnHelp_Caption 6 #define IDS_Help_Shelp 7 Stringtable { IDS_MainForm_Caption,"汉字简繁体翻译器" IDS_BtnOpen_Caption,"打开文件" IDS_BtnSave_Caption,"保存文件" IDS_BtnBig5_Caption,"转换成Big5" IDS_BtnGb32_Caption,"转换成Gb32" IDS_BtnHelp_Caption,"帮助" IDS_Help_Shelp,"输入文字或打开文件后按需要点击按钮即可转换!" } 另外两个Dll用同样的方法生成。 第二步是Brcc32编译为Res文件后用上面的方法得到Dll文件。下面来应用一下：新建一个工程，放上五个 Button：BtnOpen、BtnSave、BtnBig5、BtnGb32和BtnHelp，还有一个TComboBox:CbSelect用来选择语言种类的。 具体代码如下：