本文整理自网络，侵删。
function FileCopy(SourceFile,TargetFile : string;ProgressBar :TRzProgressStatus ) : boolean;
//function FileCopy(SourceFile,TargetFile : string;ProgressBar :TProgressBar ) : boolean;
var
getStream,setStream: TFileStream;
num, n: Integer;
buf: PByte;
BufSize,block: Integer;
begin
result := false;
if not FileExists(SourceFile) then
begin
//ShowMessage('源文件不存在！');
Exit;
end;
getStream := TFileStream.Create(SourceFile, fmOpenRead or fmShareExclusive);
setStream := TFileStream.Create(TargetFile, fmCreate);
num := getStream.Size;
setStream.Size := num;
getStream.Position := 0;
setStream.Position := 0;
BufSize := num;
block := BufSize div 100;
GetMem(buf, BufSize);
// ProgressBar.Max := 100;
ProgressBar.Percent := 0;
//ProgressBar.min := 0;
//ProgressBar.Position := 0;
while num <> 0 do
begin
Application.ProcessMessages;
n := block;
if n > num then n := num;
getStream.ReadBuffer(buf^, n);
setStream.WriteBuffer(buf^, n);
ProgressBar.Percent := Trunc((1 - num / BufSize)*100);
//ProgressBar.Position := Trunc((1 - num / BufSize)*100);
Dec(num, n);
end;
ProgressBar.Percent := 0;
//ProgressBar.Position := 0;
FreeMem(buf, BufSize);
getStream.Free;
setStream.Free;
result := true;
end;
相关阅读 >>
Delphi 用tidsmip和tidmessage发送邮件
更多相关阅读请进入《Delphi》频道 >>
