如何合并 & 分解两个文件?

smallBridge 2000-05-18 09:24:00
我做一个客户程序:该程序包括一个EXE文件和一个数据库文件(有数据).在下发给用户时不想让用户更改这个数据库,因此想把这个数据库追加到EXE文件的结尾,在程序运行时将数据库文件从此EXE文件上截取下来另外存放,但是我花了两天时间仍然不能实现,敬请诸位不吝赐教!多谢!
...全文
226 4 打赏 收藏 转发到动态 举报
写回复
用AI写文章
4 条回复
切换为时间正序
请发表友善的回复…
发表回复
jll 2000-05-19
  • 打赏
  • 举报
回复
你可能还要重新写一个程序来完成文件的合并和分割,如zensst提供的方法。但是,这样做用户仍然可以修改数据库文件(因为使用时必须将数据库文件分离出来)。如果不在乎这一点的话,倒是可以用zensst的方法....
RIAEasy 2000-05-19
  • 打赏
  • 举报
回复
用TFileStream来实现。
FStream1对应EXE,FStream2对应DB。新的Stream.Size:=FStream1.Size
+FStream2.Size+4。最后的4字节,用来保存EXE文件的字节数。
保存时,
I:=FStream1.Size;
Stream.Position:=0;
Stream.CopyFrom(FStream1, I);
Stream.CopyFrom(FStream2, FStream2.Size);
Stream.WriteBuffer(I, 4);
解包:
Stream.Position:=Stream.Size-4;
Stream,ReadBuffer(I, 4);
Stream.Position:=0;
FStream1.Size:=0;
FStream.CopyFrom(Stream, I);
FStream2.Size:=0;
FStream2.CopyFrom(Stream, Stream.Size-I-4);

好了.
zhouzq 2000-05-18
  • 打赏
  • 举报
回复
用XML自定义格式,自己再读取
popeye 2000-05-18
  • 打赏
  • 举报
回复
listen

5,379

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 开发及应用
社区管理员
  • VCL组件开发及应用社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧