网站导航免费论文 原创论文 论文搜索 原创论文 网学软件 学术大家 资料中心 会员中心 问题解答 原创论文 论文素材 设计下载 最新论文 下载排行 论文上传 在线投稿 联系我们
返回网学首页
网学联系
最新论文 推荐专题 热门论文 素材专题
当前位置: 网学 > 编程文档 > DELPHI > 正文
Delphi 中把文本文件装入资源文件中
来源:Http://myeducs.cn 联系QQ:点击这里给我发消息 作者: 用户投稿 来源: 网络 发布时间: 12/10/12
下载{$ArticleTitle}原创论文样式
   怎么把动画文件(avi)、位图文件(bitmap)、光标文件(cursor)、图标文件(icon)、声音文件(wave)和字符串等装入 res 资源文件,有关文章已经很多了(参看:http://www.why100000.com/_articles/index.asp?tab=tabDelphi&remark=计算机语言-Delphi)。但是怎么把文本文件也装入资源文件中,资料并不多。
   其实我们可以把文本文件作为一种自定义的资源类型加入到资源文件中。做法如下:

(1)资源文件的定义和生成:
   编辑资源定义文件 myres.rc,内容如下:
   html1 mytext test1.htm
   html2 mytext test2.htm
   然后,把 myres.rc 加入工程中,会自动在 prj 文件的开头加入语句 {$R ''myrec.res'' ''myrec.rc''}。将来编译程序时会自动生成资源文件 myrec.res,并把资源加入 exe 文件中。其中 mytext 我我们自定义的资源类型,html1 和 html2 是对应的文本文件 test1.htm 和 test2.htm 的资源标识名字,以后调用资源时就是用这个区别不同的资源。一旦生成了 exe 文件,myrec.rc、myrec.res 和 test1.htm 以及 test2.htm 就没有用处了,不必与 exe 文件一起发布。

(2)资源的调用:
   用一段代码来说明(在 Delphi7.0下调试通过),主要牵涉到对内存中流的操作,TResourceStream.Create() 是流的创建函数。可以把资源直接还原成一个文本文件。还可以把流全部读入到 buf 数组里,用了流的 read 方法,然后把 buf 赋值给字符串变量。
procedure TForm1.Button1Click(Sender: TObject);
var
 Res: TResourceStream;
 buf: array[0..10000] of char;
 sHTML: string;
begin
 Res := TResourceStream.Create(HInstance, ''html1'', PChar(''mytext''));

 //将资源保存为文件,即还原文件
 Res.SaveToFile(''text1.htm'');

 //还可以进行流操作,取出文本文件的内容到一个字符串变量中
 res.Read(buf, res.Size);
 sHTML := buf;  //将 pchar 类型转换为 string 类型
 ShowMessage(sHTML);  //对 ShowMessage 函数,ShowMessage(buf) 也正确
 Res.Free;
end;

   与生成文本文件的资源类似,我们还可以把 mp3、rm、mwv、flash、jpg、gif 等等多媒体资源加入到资源文件中,然后编译到 exe 文件中使用。
  • 上一篇资讯: delphi金额转成英文
  • 下一篇资讯: Delphi网络游戏外挂制作
  • 网学推荐

    免费论文

    原创论文

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