readme.txt

delphi 文件拷贝的超级源码,值得收藏喔

//--------------------------------------------------------------
//---------------WVFileCopyLib v0.2-----------------------------
//------------------2003.02.25----------------------------------
//--------------------------------------------------------------
//------------作者：王韵----------------------------------------
//------------地址：贵州省都匀市州建公司宿舍--------------------
//----------E_Mail：[e-mail]-------------------------
//------------邮编：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;
    取消文件拷贝操作，并删除目标文件。