把程序中用的图象文件合并成一个文件(50分)

  • 主题发起人 主题发起人 enong
  • 开始时间 开始时间
E

enong

Unregistered / Unconfirmed
GUEST, unregistred user!
有没有办法可以把程序中调用的真彩JPG,BMP图象文件合并
成一个文件来用,不要加在可执行文件中。
 
use a filestream
and bitmap type singal
for example:
Save=====================

Type TbmType=(bmJpeg,bmBmp);

Var FS:TfileStream;
Singal:TbmType;
Begin
FS:=TfileStream.Create(AfileName,fmOpenwrite or fmCreate);
Singal:=bmJpeg;
FS.write(Singal,Sizeof(Singal)); //write a Jpeg Image and it's type prefix
Ajpeg.Saveto(FS);

Singal:=bmBmp;
FS.write(Singal,Sizeof(Singal)); //write a BMP Image and it's type prefix
ABmp.Saveto(FS);

.........


Load======================================
.........
 
随便创建个有Canvas的东西,如TImage。
将你要的图象都画到Canvas上,
然后这个Canvas就可用来复制到任意要输出的地方了。
 
我要的是就象外部调用的资源文件RES一样,
把程序中调用的大小图片合并在它里面。

我要程序运行时外部调入RES文件,
但RES中好象不能用真彩JPG和BMP。
 
自己设计一个文件结构,把文件相关的信息如文件名、类型、大小放在文件头,做一个指针,
其他的都放在文件中,用指针调用。
 
enong:如果你还要继续讨论请定期提前你的帖子,如果不想继续讨论请结束帖子。
 
多人接受答案了。
 
后退
顶部