readme.txt

布林电话收费管理系统

//--------------------------------------------------------------
//---------------WVFileCopyLib v0.1-----------------------------
//------------------2003.02.25----------------------------------
//--------------------------------------------------------------
//------------作者：王韵----------------------------------------
//------------地址：贵州省都匀市州建公司宿舍--------------------
//----------E_Mail：[e-mail]-------------------------
//------------邮编：558000--------------------------------------
//--------------------------------------------------------------

WVFileCopyLib v0.1 组件简介

一、介绍
    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组件的基本功能
    能拷贝一个源文件到一个目标文件，并实现了断点续拷。：)

//--------------------------------------------------------

WVFileCopy组件介绍
属性：
  ExistingFile
    property ExistingFile: string;
    返回或设置源文件名。在拷贝过程中无法设置。

  NewFile
    property NewFile: string;
    返回或设置目标文件名。在拷贝过程中无法设置。

  BreakPoint
    property BreakPoint: Longword;
    返回或设置当前断点位置，单位：字节。
    在拷贝过程中无法设置。

事件：
  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;
    取消文件拷贝操作，并删除目标文件。