Delphi中如何利用资源[转载]

[点评:在许多时候,将一些资源文件放在程序外面,容易造成许多问题,诸如文件丢失导致程序无法运行,资源泄露,等.通过做成资源文件,可以有效的避免这种情况的发生.] 在Delphi项目中，通常有一个与项目名称主文件名相同的.RES文件，该文件用于保存应用程序图标等资源，对应于此文件，在项目文件中一定含有编译指 示“{$R *.res}”，告诉编译器编译时需要包含与项目主文件名相同的.RES文件。同样，如果需要在应用程序中以资源形式包含任何文件类型，也可以利用. RES文件。本文将告诉你如何利用RES文件在Delphi程序内部包含文件。 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:\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; end; 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), '', MB_ICONINFORMATION); end; end. 可 能你会说,这种方法还不如我自己在程序中直接定义三种具体的值来的方便.甚至我自己自定义一个结构好了，用不着用DLL那么麻烦的。但是如果你的程序要用 的字符很多呢?比如说Windows操作系统,本身就有简体中文,繁体中文,英文等等版本,用Dll的话只要直接替换DLL即可,而不用每发行一个版本就 打开代码来修改一次。这样一来可以大大减少工作量和出错的机会.说到这里,再多说一句:Windows系统本身很多Dll带有了图片等资源,我们可以在程 序中直接调用,这样一来我们的EXE也可以减少不少!当然最小的方法是实时生成技术.老外曾经写了一个67KB的程序就是利用了这个方法.感兴趣的朋友可 以到下载. Delphi 是个很有效率的开发工具,但是它有一个缺点就是生成的EXE文件太大.一个程序就算只有一个空窗口体积也有286KB.如果直接用API来写的话程序体积 是小了,但是又太繁琐,无法立即看到界面效果,根本谈不上是可视化开发.其实并非"鱼与熊掌不可兼得",利用资源文件我们就可以轻松达到这个目的. 在 开始之前,我们需要一个可以编辑资源文件的工具.这类工具很多,比如说Resource WorkShop就是非常好的一个.如果一时找不到,利用VC的编辑器来也是可以的.下面我们就以VC的为例示范如何创建一个窗口资源文件.运行VC,打 开菜单File-->New,将出现一个多项选择页.我们选择Files-->ResourceTemplate,在右边的File填上 Demo,Location选择保存路径,然后点击按钮OK返回VC开发环境. 选择菜单Insert-->Resource,将出现一个资 源类型选择框.我们把鼠标移到Dialog上面.不用展开,点击右边的New即可,这时候返回VC开发环境并出现一个只有关闭按钮和两个Button的窗 体.将鼠标选定窗体,击右键选择最后一项Properties,将出现一个设置窗口,将ID改为"MAINFORM"(注意:跟下面添加的其它控件的属性 设置方法不同,主窗口的ID必须把双引号写上去,而且名称必须为大写.否则程序将找不到资源.程序会一运行就退出了.)Caption改为"安装程序", 这时候可以立刻看到窗口的标题变成了"安装程序",把Styles的Minimize box选上,More Styles的Center勾上使程序运行时的位置居中.当然你也可以设置它的坐标.其它保留默认值即可.回到开发环境,在控件框里面分别选择一个 Static Text,一个Edit Box,一个Button和一个Group Box添加到窗体上面.把它们按照自己的爱好排列整齐.然后逐个修改它们的属性.方法就是按照上面说的选定控件后击右键选择最后一项 Properties,在出现的属性框里面修改.其中属性如下:Group Box的Caption属性清空,Static Text的Caption属性改为"请选择安装目录:",Edit Box的ID改为10001.第一个Button的ID为10002,Caption属性为"选择",第二个Button的ID为10003, Caption属性为"安装",第三个Button的ID为10004,Caption属性为"退出".为了使程序更加完美,我们为它再添加一个菜单 IDR_MENU1.选择Insert-->Resource-->Menu,我们这里只简单添加一项"文件-->退出",其中"退出 "的ID为10005.然后在主窗口的属性Menu设定为IDR_MENU1即可. 为了使程序更加美观,我们再添加一个小图标,同时这也将是我们 程序的图标.选择Insert-->Resource-->Icon-->Import,选择一个图标文件.并将它的ID设置为 "MAINICON"(注意:必须把双引号写上而且字母为大写),为窗口添加一个Picture控件并设置它的属性Type:Icon,Image下拉选 择刚才的图标MainIcon即可. 如果你想为程序在鼠标添加一些信息也是可以的.选择Insert-->Resource-->Version即可. 到 这里我们已经完成了一个简单的"安装程序"的窗体设计.实际上我们现在就可以在Delphi中调用它了.我们先把"劳动成果"保存起来.选择File-- >Save As,在文件类型里选择"32-bit Resource File(.res)"保存为"Demo.res",文件大小大约为2.65KB. 新建一个扩展名为dpr的文本文件MyDemo.Dpr,键入如下代码: Uses Windows,Messages; {$R Demo.Res} function MainDialogProc(DlgWin:hWnd;DlgMessage:UINT;DlgWParam:WPARAM;DlgLParam:LPARAM):integer;stdcall; begin Result := 0; case DlgMessage of WM_Close: begin PostQuitMessage(0); Exit; end; end; end; begin DialogBox(hInstance, 'MAINFORM', 0, @MainDialogProc); end. 用Delphi打开它编译一次即可产生一个大小为19KB的EXE.是不是很小!实际上,你甚至只用一行代码就把它Show出来,不过程序无法关闭而已. Uses Windows; {$R Demo.Res} function MainDialogProc: integer; begin Result := 0; end; begin DialogBox(hInstance, 'MAINFORM', 0, @MainDialogProc); end. 上面的程序只不过是一个空窗口而已,现在我们来写代码响应按下相应按钮响应的事件.完整代码如下: program MyDemo; uses Windows, Messages, shlobj; const ID_Edit = 10001; ID_Selet = 10002; ID_Setup = 10003; ID_Quit = 10004; ID_Exit = 10005; {$R Demo.Res} var MainWin: HWND; function My_Gettext: string; var Textlength: Integer; Text: PChar; s: string; begin TextLength := GetWindowTextLength(GetDlgItem(MainWin, ID_Edit)); GetMem(Text, TextLength + 1); GetWindowText(GetDlgItem(MainWin, ID_Edit), Text, TextLength + 1); s := text; FreeMem(Text, TextLength + 1); Result := s; end; function Getmyname: string; var i, j: integer; begin J := 3; for i := 1 to length(ParamStr(0)) do if ParamStr(0) = '\' then J := I; Result := copy(ParamStr(0), J + 1, length(ParamStr(0)) - J); end; function SelectDirectory(handle: hwnd; const Caption: string; const Root:WideString;outDirectory:string): Boolean; var lpbi: _browseinfo; buf: array[0..MAX_PATH] of char; id: ishellfolder; eaten, att: cardinal; rt: pitemidlist; initdir: pwidechar; begin result := false; lpbi.hwndOwner := handle; lpbi.lpfn := nil; lpbi.lpszTitle := pchar(caption); lpbi.ulFlags := BIF_RETURNONLYFSDIRS + BIF_EDITBOX; SHGetDesktopFolder(id); initdir := pwchar(root); id.ParseDisplayName(0, nil, initdir, eaten, rt, att); lpbi.pidlRoot := rt; getmem(lpbi.pszDisplayName, MAX_PATH); try result := shgetpathfromidlist(shbrowseforfolder(lpbi), buf); except freemem(lpbi.pszDisplayName); end; if result then begin directory := buf; if length(directory) <> 3 then directory := directory + '\'; end; end; function MainDialogProc( DlgWin: hWnd; DlgMessage: UINT; DlgWParam: WPARAM; DlgLParam: LPARAM ) : integer; stdcall; var MyIcon: HICON; Sdir: string; begin Result := 0; case DlgMessage of WM_INITDIALOG: begin MyIcon := LoadIcon(hInstance, 'MainIcon'); SetClassLONG(DlgWin, GCL_HICON, MyIcon); MainWin := DlgWin; end; WM_Close: begin PostQuitMessage(0); Exit; end; WM_COMMAND: case LOWORD(DlgWParam) of ID_Selet: begin if SelectDirectory(DlgWin, '请选择安装目录', '', Sdir) then SendMessage(GetDlgItem(DlgWin, ID_Edit), WM_SETTEXT, 0, lParam(pChar(Sdir))); end; ID_Setup: begin if My_Gettext = '' then begin MessageBox(DlgWin, '请先选择安装文件夹!', '信息', MB_ICONINFORMATION + MB_OK); Exit; end; CopyFile(pchar(ParamStr(0)), pchar(My_Gettext + Getmyname), false); MessageBox(DlgWin, '安装完毕!', '信息', MB_ICONINFORMATION + MB_OK); PostQuitMessage(0); Exit; end; ID_Quit: begin PostQuitMessage(0); EXIT; end; ID_Exit: begin if MessageBox(DlgWin, '你点击了菜单“退出”，你确定退出程序吗?', '信息', MB_ICONQUESTION + MB_OKCANCEL) = IDOK then PostQuitMessage(0); Exit; end; end; end; end; begin DialogBox(hInstance, 'MAINFORM', 0, @MainDialogProc); end. 其中SelectDirectory函数的作用是返回一个选择的文件路径.然后把自己拷贝到选择的目录下,当然很多处理没有写,读者可以自行添加.文件编译后大小为22KB,
玉惨花愁出凤城，莲花楼下柳青青。尊前一唱阳关后，别个人人第五程。寻好梦，梦难成，况谁知我此时情。枕前泪共帘前雨，隔个窗儿滴到明。
[楼 主] | Posted: 2004-12-27 09:29

不解风情的猪 级别: 新手上路 精华: 发帖: 72 威望: 9 点 金钱: 114 RMB 贡献值: 0 点 注册时间:2004-12-20 最后登录:2005-10-10

使用Delphi的资源创建一个单独运行的MP3程序 在此文中，我们用资源的方式将mp3文件进行整合，在一个应用程序中进行调用mp3的资源，我们发布的时候就是一个exe文件，这个exe文件就是一个mp3的播放器。 一创建.RES文件 这里以一组音频文件为例。首先用记事本等任何文本编辑器编写文件“MyMusic.RC”。文件的格式及内容如下： SRC1 FILE1 OnlyYou.mp3 SRC2 FILE2 YesterdayOnceMore.mp3 SRC3 FILE3 MoonRiver.mp3 其中，每一行表示声明一项资源，每一项资源的声明包含三个参数定义，第一个参数是资源的名称，第二个参数是资源的类型描述（本例定义了三类），第三个参数是文件名。参数之间必须由空格隔开。 编 写完成“MyMusic.RC”文件后，将其与上述三个.MP3文件放置在同一文件夹中（为了避免由设置路径带来的麻烦）。然后以下面的命令行运行应用程 序brcc32.exe（位于..\Delphi6\Bin）：brcc32 mymusic.rc需要注意的是，该命令只能在命令行方式下执行。如果系统的PATH环境变量中不包含Delphi的运行路径，那么你还需要将 brcc32.exe与MyMusic.RC、三个.MP3文件放置在同一路径中进行。运行上述命令行后，将在同一路径中得到文件 “MyMusic.RES”，这就是一个独立完整的资源文件，其格式是遵循Windows 标准的，因此可以在诸如VB、VC、CBuilder等多种开发环境中使用。 二在程序中声明包含.RES文件 你只需要在项目中的某个单元中（最好是你需要利用这些资源的单元，这样会使你的应用程序更具有可读性）加入如下编译指示： $R MyMusic.RES} { 尽 管该编译指示可以位于单元的任何位置，但为了使你的源代码结构合理，最好还是将其并列位于编译指示“{$R *.dfm}”（每个含有窗体文件的单元中都含有该行编译指示）。这里的编译指示就明确告诉编译器，在编译应用程序时需要将资源文件 “MyMusic.RES”包含到应用程序中。 三在运行时获取资源 上述两步工作仅仅是基础（但一定是必要的），利用资源才是根本目的。下面的过程将告诉你如何将应用程序中包含的资源（文件）重新还原。 procedure MusicResToFile(const ResName, ResType,FileName: string); var Res: TResourceStream; begin Res := TResourceStream.Create(HInstance,ResName, PChar(ResType)); Res.SaveToFile(FileName); //将资源保存为文件，即还原文件 //你还可以进行其它的流操作，在内存中实现对资源利用而不必另存为文件 Res.Free; end; 调用该过程的示例如： MusicResToFile('SRC2', 'FILE2', 'TheSecondMusic.MP3'); 值 得一提的是，利用此方法，你完全可以制作自己的安装程序，该安装程序仅包含一个可执行文件，在该可执行文件中以资源的形式包含所有将要安装的内容（文 件）。此外，如果在你的应用程序中需要播放外部音频文件（如背景音乐、声音提示等），也可通过此方法将这些外部文件包含到应用程序中，从而避免用户误删这 些音频文件导致应用程序的不完整