依星源码资源网,依星资源网

 找回密码
 立即注册

QQ登录

只需一步,快速开始

查看: 128|回复: 0

Delphi中实现文件Copy的三种方法

[复制链接] 主动推送

6958

主题

7010

帖子

7266

积分

管理员

Rank: 9Rank: 9Rank: 9

积分
7266
发表于 2023-12-29 09:07:55 | 显示全部楼层 |阅读模式
Delphi中实现文件Copy的三种方法
 核心提示:1.调用API函数 procedure CopyFile(FromFileName,ToFileName:string); var f1,f2:file; Begin AssignFile(f1,Fro...
1.调用API函数
  1. procedure CopyFile(FromFileName,ToFileName:string);
  2. var
  3. f1,f2:file;
  4. Begin
  5. AssignFile(f1,FromFileName); file://指定源文件名
  6. AssignFile(f2,ToFileName); file://指定目标文件名
  7. Reset(f1);
  8. Try
  9. Rewrite(f2);
  10. Try
  11. If Lzcopy(TfileRec(f1).handle,TfileRec(f2).Handle)<0
  12. Then
  13. Raise EinoutError.creat(’文件复制错误’)
  14. Finally
  15. CloseFile(f2); file://关闭 f2
  16. End;
  17. Finally
  18. Until length(sLine)<=0;
  19. End;
  20. End;
复制代码
2.文件流
  1. procedure copyfile;
  2. var f1,f2: tfilestream ;
  3. begin
  4. f1:=Tfilestream.Create(sourcefilename,fmopenread);
  5. try
  6. f2:=Tfilestream.Create(targetfilename,fmopenwrite or fmcreate);
  7. try
  8. f2.CopyFrom(f1,f1.size);
  9. finally
  10. f2.Free;
  11. end;
  12. finally
  13. f1.Free;
  14. end;
  15. end;
复制代码
3.利用内存块读写buffer实现
  1. Procudure FileCopy(const Fromfile,Tofile:string);
  2. Var
  3. F1,F2:file;
  4. NumRead,Numwritten:word;
  5. Buf:array [1..2048] of char;
  6. Begin
  7. AssignFile(F1,Fromfile);
  8. Reset(F1,1);
  9. AssignFile(F2,Tofile);
  10. Rewrite(F2,1);
  11. Repeat
  12. BlockRead(F1,buf,sizeof(buf),NumRead);
  13. BlockWrite(F2,buf,Numread,NumWritten);
  14. Until (NumRead=0) or (NumWritten<>NumRead);
  15. CloseFile(F1);
  16. CloseFile(F2);
  17. End;
复制代码



扫码关注微信公众号,及时获取最新资源信息!下载附件优惠VIP会员5折;永久VIP免费
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

免责声明:
1、本站提供的所有资源仅供参考学习使用,版权归原著所有,禁止下载本站资源参与商业和非法行为,请在24小时之内自行删除!
2、本站所有内容均由互联网收集整理、网友上传,并且以计算机技术研究交流为目的,仅供大家参考、学习,请勿任何商业目的与商业用途。
3、若您需要商业运营或用于其他商业活动,请您购买正版授权并合法使用。
4、论坛的所有内容都不保证其准确性,完整性,有效性。阅读本站内容因误导等因素而造成的损失本站不承担连带责任。
5、用户使用本网站必须遵守适用的法律法规,对于用户违法使用本站非法运营而引起的一切责任,由用户自行承担
6、本站所有资源来自互联网转载,版权归原著所有,用户访问和使用本站的条件是必须接受本站“免责声明”,如果不遵守,请勿访问或使用本网站
7、本站使用者因为违反本声明的规定而触犯中华人民共和国法律的,一切后果自己负责,本站不承担任何责任。
8、凡以任何方式登陆本网站或直接、间接使用本网站资料者,视为自愿接受本网站声明的约束。
9、本站以《2013 中华人民共和国计算机软件保护条例》第二章 “软件著作权” 第十七条为原则:为了学习和研究软件内含的设计思想和原理,通过安装、显示、传输或者存储软件等方式使用软件的,可以不经软件著作权人许可,不向其支付报酬。若有学员需要商用本站资源,请务必联系版权方购买正版授权!
10、本网站如无意中侵犯了某个企业或个人的知识产权,请来信【站长信箱312337667@qq.com】告之,本站将立即删除。
郑重声明:
本站所有资源仅供用户本地电脑学习源代码的内含设计思想和原理,禁止任何其他用途!
本站所有资源、教程来自互联网转载,仅供学习交流,不得商业运营资源,不确保资源完整性,图片和资源仅供参考,不提供任何技术服务。
本站资源仅供本地编辑研究学习参考,禁止未经资源商正版授权参与任何商业行为,违法行为!如需商业请购买各资源商正版授权
本站仅收集资源,提供用户自学研究使用,本站不存在私自接受协助用户架设游戏或资源,非法运营资源行为。
 
在线客服
点击这里给我发消息 点击这里给我发消息 点击这里给我发消息
售前咨询热线
312337667

微信扫一扫,私享最新原创实用干货

QQ|免责声明|依星源码资源网 ( 鲁ICP备2021043233号-3 )|网站地图

GMT+8, 2024-5-20 11:52

Powered by Net188.com X3.4

邮箱:312337667@qq.com 客服QQ:312337667(工作时间:9:00~21:00)

快速回复 返回顶部 返回列表