readme.txt

作者: dmzn @163.com 2006- 12 描述: 线程方式的文件拷贝组件. 声明: 本单元公开源码,个人/商业可免费使用,不过请保留此处的说明文字.如果你 对本单元作了合理

{*******************************************************************************
  作者: dmzn [e-mail] 2006-06-12
  描述: 线程方式的文件拷贝组件.

  声明: 本单元公开源码,个人/商业可免费使用,不过请保留此处的说明文字.如果你
  对本单元作了合理修改,请邮件通知我,谢谢!
*******************************************************************************}

&.安装组件
启动Delphi,选择菜单Component -> Install Component -> Into Existing.. -> 在UnitFileName文本框中输入ZnCopy单元的全路径,在SearchPath中输入ZnCopy单元所在的目录,选择PackageFileName,点击Ok按钮.

&.使用说明
组件面板上找到RunSoft页面,拖一个ZnCopy组件到工程窗体上.
TZnCopy组件属性如下:
*.AutoDel: 若复制没有完成,是否自动删除已拷贝的目标文件.如果不自动删除,目标位置会保存不完整的文件.
*.BufSize: 拷贝时使用的缓冲区大小.大小从1K至10K,具体多大速度最快,我也不清楚.呵呵.
*.CopyMode: cmCopy,复制模式; cmCut,剪切模式,拷贝成功后,自动删除源文件.
*.FileNum: 拷贝列表中文件的个数,也就是有FileNum个文件需要执行复制操作
*.IsBusy: 拷贝操作是否正在进行
*.Priority: 拷贝时线程的优先级,一般默认即可.

TZnZip组件方法如下:
*.AddFile: 添加文件到拷贝列表,需要两个参数:源文件/目的文件全路径
*.StartCopy: 对拷贝列表中的文件执行复制操作.
*.StopCopy: 停止拷贝操作.
*.ClearFileList: 使用StopCopy停止复制操作,并不会清空拷贝列表.所以如果要重新开始一个拷贝操作,请执行该过程.

TZnZip组件事件如下:
*.OnMsg: 显示拷贝过程中产生的错误,提示信息等.
*.OnInit: 拷贝列表中每一个文件执行拷贝操作前都会触发该事件,用于提示源/目标文件的路径,以及询问拷贝操作是否
继续.设置nDoCopy := False, 则该文件会中止拷贝操作,继续执行列表中的下一个.
*.OnBegin: 操作开始执行,传递源文件的大小.
*.OnProcess: 操作进行中,传递已完成的大小.
*.OnEnd: 操作完毕,传递"是否"成功拷贝,及列表中还有多少文件未拷贝.

例程:
ZnCopy1.AddFile('c:\a.rar', 'd:\a.rar');
ZnCopy1.StartCopy;

if ZnCopy1.IsBusy then ZnCopy1.StopCopy;

*******************************************************************************}
本组件使用RunSoft标志,源于RunSoft工作室(Running & 我们一直在努力)
介绍:
  RunSoft是一个正在成长中的软件工作室,它的成员遍布各地,依靠国际互联网作为沟通手段.
如果您有基本的软件知识,有足够的闲暇时间,即可参与RunSoft.
  当有项目需要您参与时,依据需求文档和您填写的资料,符合要求后会与您取得联系.研发过程
使用QQ群和E-mail来控制.测试版本完成后,支付您全部应得的10%,两个稳定版本后全部支付.源
码由您自愿交给RunSoft来管理,或者自己保留,在稳定版本发布后一年内,提供软件维护!
  当您有项目需要外协时,可以联系RunSoft.确定我们有能力来研发时,会编写需求文档和组织人员,
测试版本完成后,支付项目预算的20%,两个稳定版本后全部支付.源码有RunSoft管理,提供一年的
软件维护!

QQ群: 10904845 
E-Mail: [e-mail] (资料注册可发送到该邮箱)
*******************************************************************************}