荔园在线
荔园之美,在春之萌芽,在夏之绽放,在秋之收获,在冬之沉淀
[回到开始]
[上一篇][下一篇]
发信人: Chengal (浩气冲天), 信区: Visual
标 题: delphi实现文件的切割与合并
发信站: 荔园晨风BBS站 (Wed Jul 30 13:28:21 2003), 站内信件
一、 文件切割/组合原理
所谓文件切割,就是把一个文件切割成若干个小文件。做法就是
将一个文件对象以"文件流"的方式读出,然后按照一定的块(Block
大小分别存成文件。文件组合,就是把若干个文件组合成一个文件。
比如像打包工具(Wise)用到的就是这个原理。如果大家对"流"这个概
念熟悉的话,那么实现起来就很容易了,以下就是实现步骤。
二、 实现
在DELPHI中新建一个工程,然后在窗体中加入两个BUTTON,一个
DIT,一个OPENDIALOG,一个SAVEDIALOG,再将BUTTON1的CAPTION改
为"切割",BUTTON2的CAPTION改为"组合"(注:其它控件的属性略)
。再双击BUTTON1和BUTTON2,写下如下代码:
//切割文件
procedure TForm1.Button1Click(Sender: TObject);
var
i, WantedFragSize, RealToWrite : Integer;
//声明两个文件流对象
//InStream为输入源文件流对象,OutStream为输出切割文件流对象
InStream, OutStream : TFileStream;
S : String;
begin
if Opendialog1.Execute then
begin
SaveDialog1.Title := '输入你要保存的切割文件名';
If SaveDialog1.Execute then
begin
WantedFragSize := StrtoInt(Edit1.Text); //定义切割块大小
i := 0;
//以只读的方式创建一个输入文件流对象
InStream:=TFileStream.Create(
OpenDialog1.FileName,fmOpenRead);
Try
//如果Instream流的当前指针位置不在末尾,就按照定义的块大
小//来读出数据并存成文件
while (InStream.Position < InStream.Size) do
Begin
s := IntToStr(I);
while Length(s) < 3 do s := '0'+s;
s := '.'+s;
//生成切割文件的扩展名,用三位数字来作为扩展名,方便
组合文件
//如果InStream所剩的块大小小于定义的块大小,则将剩下的
块数//据存成文件
If InStream.Size - InStream.Position
< WantedFragSize then
RealToWrite := InStream.Size - InStream.Position
else
RealToWrite := WantedFragSize;
//创建一个输出文件流对象
OutStream:=TFileStream.Create
(SaveDialog1.FileName+s,fmCreate);
try
OutStream.CopyFrom(InStream,RealToWrite);
Inc(i);
Finally
//释放输出文件流对象
OutStream.Free;
end;
end;
Finally
InStream.Free;
end;
end;
end;
end;
//组合文件
procedure TForm1.Button2Click(Sender: TObject);
var
i : Integer;
InStream, OutStream : TFileStream;
SourcePath, FragName, S : String;
begin
Opendialog1.Title := '请选择切割文件';
if Opendialog1.Execute then
begin
//得到当前打开的切割文件的路径
SourcePath := ExtractFilePath(Opendialog1.FileName);
//得到当前打开的切割文件的文件名
FragName := ExtractFileName(Opendialog1.FileName);
SaveDialog1.Title := '请输入你要组合的文件名';
If SaveDialog1.Execute then
begin
i := 0;
s := IntToStr(I);
while Length(s) < 3 do s := '0'+s;
s := '.'+s;
FragName := ChangeFileExt(FragName, s);
//如果目录中有以.000为扩展名的文件存在,则创建一
个输出文件流//对象
If FileExists(SourcePath+FragName) then
begin
OutStream:=TFileStream.Create
(Savedialog1.FileName,fmCreate);
Try
//按照以文件扩展名递增的方式组合文件
While FileExists(SourcePath+FragName) do
Begin
InStream:=TFileStream.Create
(SourcePath+FragName,fmOpenRead);
Try
//将输入文件流的数据写入到输出文件流中
OutStream.CopyFrom(InStream,0);
Inc(i);
s := IntToStr(I);
while Length(s) < 3 do s := '0'+s;
s := '.'+s;
FragName := ChangeFileExt(FragName, s);
finally
InStream.Free;
end;
end;
finally
OutStream.Free;
end;
end;
end;
end;
end;
{*注释:请注意COPYFROM方法的使用,当第二个参数为0时,
表示将输入流InStream的数据全部写入输出流OutStream;当大于0
为N时,表示从输入流InStream的当前流指针位置开始,将N个字节
数据写入输出流OutStream,并且InStream的流指针会向后偏移N个
三、结束语
在我们用到的很多日常工具中,有很多都会用到的"流"这个对象,
它的作用也非常大,例如文件加密,文件下载等都会涉及到"流",所以
笔者认为,掌握它是很有用的,也是比较重要的。
--
※ 来源:·荔园晨风BBS站 bbs.szu.edu.cn·[FROM: 192.168.26.88]
[回到开始]
[上一篇][下一篇]
荔园在线首页 友情链接:深圳大学 深大招生 荔园晨风BBS S-Term软件 网络书店