请问如何把字体文件变成资源文件?(100分)

  • 主题发起人 主题发起人 plf22
  • 开始时间 开始时间
P

plf22

Unregistered / Unconfirmed
GUEST, unregistred user!
如何把字体文件变成资源文件,并且调用它,这样即便系统里面没有该字体,也能在
程序中显示。请各位帮帮忙!
 
把字体一同打包[:D]
 
先把资源文件加到你的工程里,等要用的时候,再释放成字体文件。
 
不是要安装程序里面打包,是在编译过程中打包进程虚里,把字体文件编写进res文件里
 
问题就是怎么把字体加进资源文件,然后再如何调用
 
先建一个RCData的资源,再用下面的代码存成font文件
var
res: TResourceStream;
begin
res:=TResourceStream.Create(HInstance, 'RCDATA_1', RT_RCDATA);
res.SaveToFile('ResFile.dat');
res.Free;
end;
 
一个rc文件,再用drcc32(在DELPHI的BIN目录下)来编译得到res
再链接到程序中就可以了{$ xxx.res}

rc的格式好象是:
Name Type FileName
 
网络上有很多。比如怎样把avi文件打包成res文件,然后程序调用,实际你把字体文件包含进去就可以了,用的时候,释放出来安装字体就可以了
 
delphi菜单 project->resources,进去后右键,再new,再选择user data,添加一个
RCDATA的资源,选择文件的时候选择你的font文件。
 
Milpas:你说的谁都知道,问题是字体的具体该怎么写
dcsdcs:网络很多,也只是AVI的,我想知道字体文件的,就是ttf文件
yeath:你说的好像只能加BMP,ICO等文件,你自己试过加字体文件吗?
 
什么文件都可以的,他是User Data可以的。
我用zip文件试过,没问题。
 
先建一个RCData的资源,再用下面的代码存成font文件
var
res: TResourceStream;
begin
res:=TResourceStream.Create(HInstance, 'RCDATA_1', RT_RCDATA);
res.SaveToFile('ResFile.dat');
res.Free;
end;

再用这段代码释放出来。
 
yeath:
你给这段代码能不能在详细点,怎么把ttf文件包进去,释放后,又怎么调用释放的
字体文件,能让程序用到这个字体。先谢谢了!
 
你添加RCDATA的资源会了???
 
var
res: TResourceStream; //定义一个资源流
begin
res:=TResourceStream.Create(HInstance, 'RCDATA_1', RT_RCDATA); //建立一个资源流对象,并装入RCDATA_1资源
res.SaveToFile('ResFile.dat'); //把资源流存为一个文件,如果是ttf,就把扩展名改一下。
res.Free;//释放资源流。
end;
 
不会,另外这句话不大懂
先建一个RCData的资源,再用下面的代码存成font文件
 
添加RCDATA文件的方法:
delphi菜单 project->resources,进去后右键,再new,再选择user data,添加一个
RCDATA的资源,选择文件的时候选择你的font文件。
 
你用的是那个版的DELPHI,我怎么看不到,你说的?
 
这个都有的,delphi5,delphi6都有的。
delphi的菜单上有一个project
project下有一个Resources
 
后退
顶部