怎样把图片资源导入Dll,并且取出来? （转）

谈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控件，在需要显示的地方写以下代码：
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;

(二)中级应用篇:
      上面我们已经知道如何把一副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,"输入文字或打开文件后按需要点击按钮即可转换!"
}
      第二步是Brcc32编译为Res文件后用上面的方法得到Dll文件,另外两个Dll用同样的方法生成.下面来应用一下:
      新建一个工程,放上五个Button:BtnOpen,BtnSave,BtnBig5,BtnGb32和BtnHelp.还有一个TComboBox:CbSelect用来选择语言种类的.
具体代码如下:
unit   Unit1;
interface
......
private
SHelp:   string;
function   SearchLanguagePack:   TStrings;
procedure   SetActiveLanguage(LanguageName:   string);
{   Private   declarations   }
......
implementation
procedure   TForm1.CbSelectChange(Sender:   TObject);
begin
SetActiveLanguage(CbSelect.Text);//调用相应Dll文件读取相应字符.
end;
procedure   TForm1.FormCreate(Sender:   TObject);
begin
CbSelect.Items.AddStrings(SearchLanguagePack);//搜索当前目录下所有的Dll文件名称
end;
function   TForm1.SearchLanguagePack:   TStrings;
var
ResultStrings:   TStrings;
DosError:   integer;
SearchRec:   TsearchRec;
begin
ResultStrings   :=   TStringList.Create;
DosError   :=   FindFirst(ExtractFilePath(ParamStr(0))   +   '*.dll',   faAnyFile,   SearchRec);
while   DosError   =   0   do
begin
ResultStrings.Add(ChangeFileExt(SearchRec.Name,   ''));
DosError   :=   FindNext(SearchRec);
end;
FindClose(SearchRec);
Result   :=   ResultStrings;
end;

procedure   TForm1.SetActiveLanguage(LanguageName:   string);
var
Hdll:   Hmodule;
MyChar:   array[0..254]   of   char;
DllFileName:   string;
begin
DllFileName   :=   ExtractFilePath(ParamStr(0))   +   LanguageName   +   '.dll';
if   not   FileExists(DllFileName)   then   Exit;
Hdll   :=   loadlibrary(Pchar(DllFileName));

Loadstring(hdll,   1,   MyChar,   254);
Self.Caption   :=   MyChar;
//读取字符资源，1表示资源文件中定义的1
Loadstring(hdll,   1,   MyChar,   254);
Self.Caption   :=   MyChar;

Loadstring(hdll,   2,   MyChar,   254);
BtnOpen.Caption   :=   MyChar;

Loadstring(hdll,   3,   MyChar,   254);
BtnSave.Caption   :=   MyChar;

Loadstring(hdll,   4,   MyChar,   254);
BtnBig5.Caption   :=   MyChar;

Loadstring(hdll,   5,   MyChar,   254);
BtnGb32.Caption   :=   MyChar;

Loadstring(hdll,   6,   MyChar,   254);
BtnHelp.Caption   :=   MyChar;

Loadstring(hdll,   7,   MyChar,   254);
SHelp   :=   MyChar;

Freelibrary(hdll);
Application.Title   :=   Self.Caption;
//------------------------
BtnOpen.Visible   :=   True;
BtnSave.Visible   :=   True;
BtnBig5.Visible   :=   True;
BtnGb32.Visible   :=   True;
BtnHelp.Visible   :=   True;
//------------------------
end;
procedure   TForm1.BtnHelpClick(Sender:   TObject);
begin
Application.MessageBox(Pchar(SHelp),   'Http://lovejingtao.126.com',   MB_ICONINFORMATION);
end;
end.
      可能你会说,这种方法还不如我自己在程序中直接定义三种具体的值来的方便.甚至我自己自定义一个结构好了，用不着用DLL那么麻烦的。但是如果你的程序要用的字符很多呢?比如说Windows操作系统,本身就有简体中文,繁体中文,英文等等版本,用Dll的话只要直接替换DLL即可,而不用每发行一个版本就打开代码来修改一次。这样一来可以大大减少工作量和出错的机会.说到这里,再多说一句:Windows系统本身很多Dll带有了图片等资源,我们可以在程序中直接调用,这样一来我们的EXE也可以减少不少!当然最小的方法是实时生成技术.老外曾经写了一个67KB的程序就是利用了这个方法.