网站导航免费论文 原创论文 论文搜索 原创论文 网学软件 学术大家 资料中心 会员中心 问题解答 原创论文 论文素材 设计下载 最新论文 下载排行 论文上传 在线投稿 联系我们
返回网学首页
网学联系
最新论文 推荐专题 热门论文 素材专题
当前位置: 网学 > 编程文档 > DELPHI > 正文
谈Delphi编程中资源文件的应用
来源:Http://myeducs.cn 联系QQ:点击这里给我发消息 作者: 用户投稿 来源: 网络 发布时间: 12/10/12
下载{$ArticleTitle}原创论文样式
G  
(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用来选择

网学推荐

免费论文

原创论文

浏览:
设为首页 | 加入收藏 | 论文首页 | 论文专题 | 设计下载 | 网学软件 | 论文模板 | 论文资源 | 程序设计 | 关于网学 | 站内搜索 | 网学留言 | 友情链接 | 资料中心
版权所有 QQ:3710167 邮箱:3710167@qq.com 网学网 [Myeducs.cn] 您电脑的分辨率是 像素
Copyright 2008-2015 myeducs.Cn www.myeducs.Cn All Rights Reserved
湘ICP备09003080号