copy1.pas

Delphi7高级应用开发随书源码

unit copy1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, FileCtrl;

type
  TForm1 = class(TForm)
    Label1: TLabel;
    edtSFile: TEdit;
    Label2: TLabel;
    btnOK: TButton;
    edtTFile: TEdit;
    DirectoryListBox1: TDirectoryListBox;
    FileListBox1: TFileListBox;
    lbMesg: TLabel;
    DriveComboBox1: TDriveComboBox;
    procedure FileListBoxDbClick(Sender: TObject);
    procedure CopyOK(Sender: TObject);
    procedure SlectChange(Sender: TObject);
    procedure DirChange(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FileListBoxDbClick(Sender: TObject);
begin
    edtSFile.Text := FileListBox1.FileName;
end;

procedure TForm1.CopyOK(Sender: TObject);
var
    FormF,ToF :file;
    NumRead,NumWritten :Integer;
    Buf:array[1..2048] of char;
begin
    lbMesg.Caption := '';
    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;


procedure TForm1.SlectChange(Sender: TObject);
begin
    DirectoryListBox1.Drive := DriveComboBox1.Drive;
    FileListBox1.Drive := DriveComboBox1.Drive;
    FileListBox1.Directory := DirectoryListBox1.Directory;
end;
procedure TForm1.DirChange(Sender: TObject);
begin
    FileListBox1.Directory := DirectoryListBox1.Directory;
end;

end.