二、中级应用篇: 上面我们已经知道如何把一副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用来选择语言种类的。 具体代码如下： 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));
三、高级应用篇 Delphi是个很有效率的开发工具，但是它有一个缺点就是生成的EXE文件太大。一个程序就算只有一个空窗口体积也有286KB。如果直接用API来写的话程序体积是小了，但是又太繁琐，无法立即看到界面效果，根本谈不上是可视化开发。其实并非“鱼与熊掌不可兼得”，利用资源文件我们就可以轻松达到这个目的。 在开始之前，我们需要一个可以编辑资源文件的工具。这类工具很多，比如说Resource WorkShop就是非常好的一个。如果一时找不到，利用VC的编辑器来也是可以的。下面我们就以VC的为例示范如何创建一个窗口资源文件。 运行VC，打开菜单“File/New”，将出现一个多项选择页。我们选择“Files/Resource Template”，在右边的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/Iconv/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)[i] = '' then J := I; Result := copy(ParamStr(0), J + 1, length(ParamStr(0)) - J); end;
function SelectDirectory(handle: hwnd; const Caption: string; const Root: WideString; out Directory: 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.
盒子资源分类大树
