一、 文件切割/組合原理
所謂文件切割，就是把一個文件切割成若干個小文件。做法就是將一個文件對像以"文件流"的方式讀出，然後按照一定的塊(Block)大小分別存成文件。文件組合，就是把若干個文件組合成一個文件。比如像打包工具(Wise)用到的就是這個原理。假如大家對"流"這個概念熟悉的話，那麼實現起來就很輕易了，以下就是實現步驟。 二、 實現
在Delphi中新建一個工程，然後在窗體中加入兩個BUTTON，一個EDIT，一個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;
在我們用到的很多日常工具中，有很多都會用到的"流"這個對象，它的作用也非常大，例如文件加密，文件下載等都會涉及到"流"，所以筆者認為，把握它是很有用的，也是比較重要的。