delphi带进度条复制文件函数


本文整理自网络,侵删。

 

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 xe5在zip文件中添加某个txt文件并写入文字

Delphi 判断图像格式bmp jpg gif pcx png psd ras sgi tiff err

Delphi研究之驱动开发篇(一)--实现原理

Delphi fmx获取屏幕方向

Delphi 把字符串复制到剪贴板

Delphi的rtti实现对象的xml持久化

Delphi 返回程序执行参数的例子

Delphi arp攻击代码

Delphi 多核机器上编程实现将指定进程pid放到指定cpu上运行

Delphi命令行窗口实现9*9乘法表

更多相关阅读请进入《Delphi》频道 >>



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...