双喜迎门庆新春!Photoshop制作金灿灿的喜字(一)
双喜迎门庆新春!Photoshop制作金灿灿的喜字(二)
用VB将ASP代码封装成DLL
用VB编写入侵监听程序
从源程序看原理:突破防火墙入侵内网
收购后如何发展?2006年Flash软件走势5大预测
让手机也 “ 闪 ” 起来! Flash Lite 2 新功能介绍
C++:谁动了我的指针
Dephi资源文件中级应用篇
Dephi资源文件高级应用篇
关于就业教育网名师网络课堂
软件下载
账户充值
收看课程
收费标准
播放常见问题
联系方式
IT就业班
IT++软件工程师
IT++网站工程师
IT++电脑美术设计师
IT企业培训
编程语言类 软件架构类
操作系统类 数据库类
网络安全类 网络设备类
平面设计类 网页设计类
IT短期培训班
现代商务电脑办公班
Macromedia多媒体网页设计班
Adobe ACCD平面设计班
3DS Max三维软件设计班
[更多]
JSP+Oracle动态网站开发案例精选(1CD)
[作者]孙佳、刘中兵、李伯华
[定价]¥42.00元
二维动画快速制作技巧与实例
(Flash+Moho+Crazy
Talk)
[作者]尹武松
[定价]¥60.00元
ASP.NET+SQL Server
动态网站开发案例精选(1CD)
[作者]刘 斌 张 军
[定价]¥32.00元
Dephi资源文件中级应用篇
出处:delphi论坛 作者:wzmbox
  在上次,我们谈到了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,"输入文字或打开文件后按需要点击按钮即可转换!"
}
  第二步是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的程序就是利用了这个方法。
转载自:太平洋电脑网
ChinaRen - 繁体版 - 搜狐招聘 - 网站登录 - 网站建设 - 设置首页 - 广告服务 - 联系方式 - 保护隐私权 - About SOHU - 公司介绍
Copyright © 2005 Sohu.com Inc. All rights reserved.搜狐公司 版权所有