在上次，我们谈到了Dephi中资源文件使用详解以及Dephi资源文件的初级应用篇，在您对Dephi资源文件有了一定的了解后，我们现在来谈一下Dephi资源文件的中、高级应用篇。

　　中级应用篇

　　上面我们已经知道如何把一副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,"输入文字或打开文件后按需要点击按钮即可转换!"
　　}