blockfrm.pas

关于利用DELPHI来进行企业级方案解决的著作的附书源码

unit BlockFrm;

interface

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

type
  TForm1 = class(TForm)
    OpenDialog1: TOpenDialog;
    SaveDialog1: TSaveDialog;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
  FromF, ToF: file;
  NumRead, NumWritten: Integer;
  Buf: array[1..2048] of Char;
begin
  if OpenDialog1.Execute then
  begin
    //打开源文件
    AssignFile(FromF, OpenDialog1.FileName);
    //说明原文件的记录大小为1字节
    Reset(FromF, 1);	
    if SaveDialog1.Execute then
    begin
      //打开目的文件
      AssignFile(ToF, SaveDialog1.FileName);
      //说明原文件的记录大小为1字节
      Rewrite(ToF, 1);
      Canvas.TextOut(10, 10, '拷贝' + IntToStr(FileSize(FromF))
        + ' 字节...');
      repeat
        BlockRead(FromF, Buf, SizeOf(Buf), NumRead);
        BlockWrite(ToF, Buf, NumRead, NumWritten);
      until (NumRead = 0) or (NumWritten <> NumRead);
      CloseFile(FromF);
      CloseFile(ToF);
    end;
  end;
end;

end.