文件列表:

FileCopy.dcr (476, 2003-10-23)
FileCopy.pas (11175, 2004-02-08)
CopyThread.pas (737, 2003-10-23)
WVCopyFile5.res (1536, 2004-02-07)
CopyThread.dcu (1618, 2004-01-28)
FileCopy.dcu (11087, 2004-02-08)
WVCopyFile5.cfg (390, 2004-02-08)
WVCopyFile5.dcu (1057, 2004-02-08)
WVCopyFile5.dof (1250, 2004-02-08)
WVCopyFile5.dpk (636, 2004-02-07)
2ccc.com.txt (985, 2003-12-06)

//-------------------------------------------------------------- //---------------WVFileCopyLib v0.2----------------------------- //------------------2003.02.25---------------------------------- //-------------------------------------------------------------- //------------作者：王韵---------------------------------------- //------------地址：贵州省都匀市州建公司宿舍-------------------- //----------E_Mail：wyz1737_cn@sina.com------------------------- //------------邮编：558000-------------------------------------- //-------------------------------------------------------------- WVFileCopyLib v0.2 组件简介 一、介绍 WVFileCopyLib是一个文件拷贝组件库，它包含一系列有关 文件拷贝的组件，该组件库是免费组件，并附源代码。 该组件你可以任意使用在任何软件中，也可以修改，在你 使用该组件的过程中发现错误，请你来信告诉我，以便我进行 修改；或者你自己进行了修改，也请你来信告诉我，并附上修 改后的源代码。 你的来信对于我是一种支持，也是一种鼓励，在此我深表 感谢。 二、安装 删除以前安装在Delphi 3, 4, 5，6，7中的WVFileCopyLib 组件，将新版本WVFileCopyLib的所有文件放在一个新的目录中。 单击Delphi IDE的“File/Open”菜单项打开WVFileCopyLib 的源代码文件，先后单击“Compile”按钮和“Install”按钮注 册WVFileCopyLib在Delphi IDE中。WVFileCopyLib的所有组件将 会增加在“System”面板中，如果面板和图标没有出现，就重新 安装一次。 三、组件列表 WVFileCopy 拷贝一个文件的组件，该组件不但可以正常的拷贝 文件，还可以象网络蚂蚁一样在拷贝文件时进行 “断点续拷”。 四、WVFileCopyLib组件的发展历史 v0.1 2003.11.01 实现了WVFileCopy组件的基本功能 能拷贝一个源文件到一个目标文件，并实现了断点续拷。：) v0.2 2004.2.8 增加了Time、Priority、Buffer属性。 //-------------------------------------------------------- WVFileCopy组件介绍 属性： ExistingFile property ExistingFile: string; 返回或设置源文件名。在拷贝过程中无法设置。 NewFile property NewFile: string; 返回或设置目标文件名。在拷贝过程中无法设置。 BreakPoint property BreakPoint: Longword; 返回或设置当前断点位置，单位：字节。 在拷贝过程中无法设置。 Buffer property Buffer: Longword; 返回或设置拷贝缓冲区的大小，单位：字节。 在拷贝过程中无法设置。 备注：该属性是设置在拷贝时从内存中分配的拷贝内存大小，恰当设置可以提高拷贝速度。 注意：请不要把缓冲区设得太大，不然会拖慢系统速度或出现莫明其妙的错误。 Priority TThreadPriority = (tpIdle, tpLowest, tpLower, tpNormal, tpHigher, tpHighest, tpTimeCritical); property Priority: TThreadPriority; 返回或设置拷贝线程的优先权。 Time property CreationTime: boolean; 返回或设置文件创建时间。 设置为true，在拷贝结束后，目标文件的创建时间会与源文件 的创建时间一致。 property LastAccessTime: boolean; 返回或设置最后访问时间。 设置为true，在拷贝结束后，目标文件的最后访问时间会与源 文件的最后访问时间一致。 property LastWriteTime: boolean; 返回或设置最后修改时间。 设置为true，在拷贝结束后，目标文件的最后修改时间会与源 文件的最后修改时间一致。 事件： OnStart property OnStart: TNotifyEvent; 开始拷贝文件操作前触发该事件。 OnFinish property OnFinish: TNotifyEvent; 文件拷贝完成后触发该事件。 OnRestore property OnRestore: TNotifyEvent; 继续从BreakPoint处拷贝文件前触发该事件。 OnStop property OnStop: TNotifyEvent; 文件拷贝操作被用户停止后触发该事件。 OnCancel property OnCancel: TNotifyEvent; 文件拷贝操作被用户取消，并且目标文件被删除后触发该事件。 OnCopyProgress TOnCopyProgress = procedure(Sender: TObject; TotalFileSize: Longword; TotalBytesTransferred: Longword; Rate: Byte) of object; property OnCopyProgress: TOnCopyProgress; 每次成功拷贝源文件中的数据到目标文件中，则触发该事件。 TotalFileSize: Longword; 所要拷贝的文件的大小，单位：字节。 TotalBytesTransferred: Longword; 已经从源文件拷贝到目标文件的字节数，单位：字节。 Rate: Byte; 拷贝进度，范围：0-100%。 OnError TOnError = procedure(Sender: TObject; Msg: string; Code: integer) of object; property OnError: TOnError; 发生错误时触发该事件。 Msg: string; 错误信息。 Code: integer; 错误代码。 注意：只要发生错误，WVFileCopy组件都会立刻中止文件拷贝操作， 并关闭源文件和目标文件，但保留目标文件，你可以在下次 拷贝时指定相同的源文件和目标文件，并从指定BreakPoint 处继续拷贝。 方法： Start procedure Start; 开始拷贝一个源文件到一个目标文件。 如果指定的目标文件已经存在，则拷贝失败。 Restore procedure Restore; 在指定与上一次拷贝操作同样的源文件和目标文件后，可以从 BreakPoint处继续文件拷贝操作。 Stop procedure Stop; 停止文件拷贝操作，并保留目标文件，从BreakPoint处取得断点 位置，以便下次继续拷贝时使用。 Cancel procedure Cancel; 取消文件拷贝操作，并删除目标文件。

近期下载者：

相关文件：

评论：[我要评论] [举报此文件]

收藏者：