把多个文件合并,和拆分的问题(注意文件大小不一定)(50分)

C

coolbee

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-07-27

• #1

例如把两个WORD文件合并,然后在拆分,我用TFileStream合并没问题,但是我想在合并后的文件头出空出一定的空间保存合并前的这两个文件的信息(比如文件名和大小),以便拆分的时候使用
但是拆分的时候怎么从合并的文件头处取出信息呢?

 

M

MikeZ

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-05

• #2

type

THeadRec = record
FileNum: Integer;
Size: Integer;
end;

TFileRec = record
FileName: string[128];
Size: Integer;
end;

把 HeadRec 写道文件偷，接下来写 FileRec，再依次写文件的内容。

 

Z

zeroyoyo

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-04-01

• #3

有用TFileStream合并两个Word文件(.doc)的代码么？
可以到“系统相关”回答我的问题，可行的话就送分
谢谢!

 

H

hyh_china

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-04-01

• #4

我有，如何给你？

 

Z

zqw0117

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-04-01

• #5

定义一个record啊
TFileInfo = packed record
file1Pos, file1Size, file2Pos, file2Size: Integer;
end;
然后用TFileStream.Write写到文件尾啊，不一定要文件头的，当然，写文件头也可以的，这个随便你。需要的时候，读取这些信息就可以了。呵呵，我写的exe文件绑定器就是这么工作的。

 

刘

刘麻子

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-04-01

• #6

你的想法是对的。。。。。。。看看这里，希望有帮助：
http://www.delphibbs.com/delphibbs/dispq.asp?lid=2529565

 

Z

zeroyoyo

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-04-05

• #7

hyh_china你有合并word文件的代码么，太感谢了，帮我发到yoyo@ustc.edu.cn
谢谢!