delphi 拷贝文件时有进度显示


本文整理自网络,侵删。

 procedure TForm1.mycopyfile(sourcef,targetf:string);
var
FromF, ToF: file;
NumRead, NumWritten: Integer;
Buf: array[1..2048] of Char;
n:integer;
begin
AssignFile(FromF, sourcef);
Reset(FromF, 1); { Record size = 1 }
AssignFile(ToF,targetf); { Open output file }
Rewrite(ToF, 1); { Record size = 1 }
n:=0;
repeat
BlockRead(FromF, Buf, SizeOf(Buf), NumRead);
form1.label1.caption:=IntToStr(sizeof(buf)*n*100 div FileSize(FromF))+'100%';
application.ProcessMessages;
//显示进度
BlockWrite(ToF, Buf, NumRead, NumWritten);
inc(n);
until (NumRead = 0or (NumWritten <> NumRead);
form1.Label1.Caption:='100%';
CloseFile(FromF);
CloseFile(ToF);
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
mycopyfile('e:\123.zip','c:\123.zip');
end;   

相关阅读 >>

Delphi api读写ini文件

Delphi 与 xml 示例(直接利用ixmldocument)

Delphi应用synedit完美实现sql语法高亮

Delphi 给字加边的又一个算法

Delphi 用ado从文本文件中导入数据库的两种方法比较

Delphi xe5 android openurl

Delphi中获取当前用户sid

Delphi 如何快速读取非常大的文本文件

Delphi xe6开发的android应用实现在线升级完成后自动安装apk代码

Delphi截获和干扰窗体最小化�p最大化和关闭消息

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



打赏

取消

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

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

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

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

评论

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

    正在狠努力加载,请稍候...