Delphi指定目录复制文件的示例.rar
复制文件的Delphi代码示例，用自定义的窗体来实现传统的复制文件功能，主要是展示在Delphi下如何定义复制文件的函数，打基础的代码。复制的核心代码：
if edtSFile.Text <> '' then
begin
AssignFile(FormF,edtSFile.Text);
Reset(FormF,1);
if edtTFile.Text <> '' then
begin
AssignFile(ToF,edtTFile.Text);
ReWrite(ToF,1);
lbMesg.Caption := lbMesg.Caption IntToStr(FileSize(FormF)) 'bytes已经拷贝完成！';
repeat
BlockRead(FormF,Buf,SizeOf(BUf),NumRead);
BlockWrite(ToF,Buf,NumRead,NumWritten);
until (NumRead = 0) or (NumWritten <> NumRead);
CloseFile(FormF);
CloseFile(ToF);
ShowMessage('文件复制完成！');
end else ShowMessage('源文件有问题！');
end else ShowMessage('目标文件有问题！');
end;
if edtSFile.Text <> '' then
begin
AssignFile(FormF,edtSFile.Text);
Reset(FormF,1);
if edtTFile.Text <> '' then
begin
AssignFile(ToF,edtTFile.Text);
ReWrite(ToF,1);
lbMesg.Caption := lbMesg.Caption IntToStr(FileSize(FormF)) 'bytes已经拷贝完成！';
repeat
BlockRead(FormF,Buf,SizeOf(BUf),NumRead);
BlockWrite(ToF,Buf,NumRead,NumWritten);
until (NumRead = 0) or (NumWritten <> NumRead);
CloseFile(FormF);
CloseFile(ToF);
ShowMessage('文件复制完成！');
end else ShowMessage('源文件有问题！');
end else ShowMessage('目标文件有问题！');
end;
文件下载
资源详情
[{"title":"（ 7 个子文件 7KB ） Delphi指定目录复制文件的示例.rar","children":[{"title":"srcfans.com","children":[{"title":"FileCopy","children":[{"title":"FileCopy.cfg <span style='color:#111;'> 434B </span>","children":null,"spread":false},{"title":"FileCopy.res <span style='color:#111;'> 876B </span>","children":null,"spread":false},{"title":"FileCopy.dof <span style='color:#111;'> 1.97KB </span>","children":null,"spread":false},{"title":"copy1.dfm <span style='color:#111;'> 1.61KB </span>","children":null,"spread":false},{"title":"FileCopy.dpr <span style='color:#111;'> 188B </span>","children":null,"spread":false},{"title":"copy1.pas <span style='color:#111;'> 2.18KB </span>","children":null,"spread":false},{"title":"copy1.dcu <span style='color:#111;'> 6.06KB </span>","children":null,"spread":false}],"spread":true}],"spread":true}],"spread":true}]
评论信息
其他资源
- 中山大学C++机考试题汇总.pdf
- ntripclient-MATLAB
- 使用GIS Arc Map将世界地图改成太平洋中心的坐标系设置
- IOT_one_net.rar
- STM32实现PID算法，很实用
- FPGA VHDL FIFO 源代码
- 0.96 OLED 显示屏 STM8 IIC 例程
- RS485温湿度数据采集系统（串口通信）
- HTML大作业.zip
- 从混合有GPGGA报文的数据中提取GGA，并且计算固定解标准差
- osg三维引擎+QT gui结合，显示三维
- MODIS NDVI
- 电脑机箱设计图
- python自然语言处理-学习笔记(三)之文本相似度计算-附件资源
- 爬虫脚本项目源码-让电脑蜂鸣器哼歌
- 嵌入式操作系统原理与应用教案
- 最新汽车继电器基础知识.ppt
- AFNOR SPEC S76-001：2020 最新法国口罩标准
- 整理总结20201225.txt
- VC实现TCP数据包发送(挺好的源代码)
- 大华摄像头开发SDK
- DIB图像的打开与保存显示
- 仿魅族官网的静态页面
- HTML5+JQUERY文件上传，手机浏览器兼容性好（asp.net例子) 源码
免责申明
【只为小站】的资源来自网友分享，仅供学习研究，请务必在下载后24小时内给予删除，不得用于其他任何用途，否则后果自负。基于互联网的特殊性，【只为小站】 无法对用户传输的作品、信息、内容的权属或合法性、合规性、真实性、科学性、完整权、有效性等进行实质审查；无论 【只为小站】 经营者是否已进行审查，用户均应自行承担因其传输的作品、信息、内容而可能或已经产生的侵权或权属纠纷等法律责任。
本站所有资源不代表本站的观点或立场，基于网友分享，根据中国法律《信息网络传播权保护条例》第二十二条之规定，若资源存在侵权或相关问题请联系本站客服人员，zhiweidada#qq.com，请把#换成@，本站将给予最大的支持与配合，做到及时反馈和处理。关于更多版权及免责申明参见 版权及免责申明
本站所有资源不代表本站的观点或立场，基于网友分享，根据中国法律《信息网络传播权保护条例》第二十二条之规定，若资源存在侵权或相关问题请联系本站客服人员，zhiweidada#qq.com，请把#换成@，本站将给予最大的支持与配合，做到及时反馈和处理。关于更多版权及免责申明参见 版权及免责申明