¹ØÓÚ Delphi ÖÐÁ÷µÄʹÓÃ:·Ö¸îÓëºÏ²¢ÎļþµÄº¯Êý

unit
Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class
(TForm)
Button1: TButton;
Button2: TButton;
procedure
Button1Click(Sender: TObject);
procedure
Button2Click(Sender: TObject);
end
;
var
Form1: TForm1;
implementation
{$R *.dfm}
//·Ö¸îÎļþµÄº¯Êý
{²ÎÊý 1 ÊÇÒª·Ö¸îµÄÎļþÃû; ²ÎÊý 2 ÊÇÒª·ç¸ñÎļþµÄ´óС, µ¥Î»ÊÇ KB}
{·Ö¸îºóµÄÎļþÃûÀ©Õ¹ÃûÓÃÐòºÅÌæ»»}
function
SplitFile(const
FileName: string
; Size: Cardinal): Boolean;
var
fStream: TFileStream; {ԭʼÎļþ}
toStream: TMemoryStream; {·ÖÎļþ}
p,i: Integer; {p ¼Ç¼µ±Ç°Ö¸ÕëλÖÃ; i ¼Ç¼ÕâÊǵڼ¸¸ö·ÖµÄÎļþ}
begin
Result := False;
Size := Size * 1024
; {°Ñ´óСµÄµ¥Î»×ª»»Îª×Ö½Ú}
fStream := TFileStream.Create(FileName, fmOpenRead);
p := 0
;
i := 0
;
toStream := TMemoryStream.Create;
while
p < fStream.Size do
begin
toStream.Clear; {Çå¿ÕÉÏ´ÎÊý¾Ý}
fStream.Position := p; {·ÅºÃÖ¸ÕëλÖÃ}
if
fStream.Size-p < Size then
Size := fStream.Size-p; {×îºóÒ»¸öʱ, ÓжàÉÙËã¶àÉÙ}
toStream.Copyfrom(fStream, Size); {¸´ÖÆ}
toStream.SaveToFile(FileName + '.'
+ IntToStr(i)); {±£´æ}
Inc(i);
p := p + Size;
end
;
fStream.Free;
toStream.Free;
Result := True;
end
;
//ºÏ²¢Îļþ, ²ÎÊýÊÇÆäÖÐÒ»¸ö·ÖÎļþÃû
function
MergeFile(const
FileName: string
): Boolean;
var
ms: TMemoryStream; {¶ÁÈ¡·ÖÎļþ}
fs: TFileStream; {ºÏ²¢ºóµÄÎļþ}
path: string
;
i: Integer;
begin
path := ChangeFileExt(FileName,''
); {È¥µôÐòºÅÀ©Õ¹Ãû}
ShowMessage(path);
i := 0
;
ms := TMemoryStream.Create;
fs := TFileStream.Create(path, fmCreate);
while
FileExists(path + '.'
+ IntToStr(i)) do
begin
ms.LoadfromFile(path + '.'
+ IntToStr(i));
fs.Copyfrom(ms, 0
); {TFileStream ²»ÐèÒª SetSize; µ«Èç¹ûÓà TMemoryStream ¾ÍÐèÒª}
Inc(i);
end
;
ms.Free;
fs.Free;
end
;