Копирование файлов.

[Leo20]

Привет люди.

Копирую файл старым добрым способом.

Procedure myCopy(InFile,OutFile: String);
var
f1, f2: File;
cop: array [1..2048] of Char;
sizefile, sizeread: Int64;
colRead, colWrite : Integer;
begin
{$I-}
try
AssignFile(f1,InFile);
AssignFile(f2, OutFile);
system.Reset(f1, 1);
sizefile := FileSize(f1);
system.Rewrite(f2, 1);
colRead := 0;
colWrite := 0;
sizeread := 0;
while colRead = colWrite do begin
BlockRead(f1, cop, SizeOf(cop), colRead);
if colRead = 0 then break;
BlockWrite(f2, cop, colRead, colWrite);
sizeread := sizeread + colRead;
form1.Gauge1.Progress := Round(100*sizeread/sizefile);
end;
finally
CloseFile(f1);
CloseFile(f2);
end;
{$I+}
end;

пару вопросов, почему форма становится не доступна в процессе копирования(ее нельзя перетаскивать и ничего нельзя выбрать на ней) и КАК ЕЕ СДЕЛАТЬ ДОСТУПНОЙ!

[Hollander]

Тут два варианта:
1. Сделать копирование в потоке
2. Или добавь в while - Application.ProcessMessages

[Usov]

используй поток (TThread) для копирования

[russian-stalker]

Первое в определенном смысле лучше.

[Leo20]

а как в потоке сделать индикацию копирования, друзья мои????

[russian-stalker]

unit Unit1;

interface

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


type
  TForm1 = class(TForm)
    Button1: TButton;
    Gauge1: TGauge;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

type
  TCopyFile = class(TThread)
   i,o:string;
   p:integer;
  private
    { Private declarations }
  protected
    procedure Execute; override;
    procedure setprogress;
  end;
var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
 cf:TCopyFile;
begin
 cf:=tcopyfile.Create(true);
 cf.Priority:=tpNormal;
 cf.FreeOnTerminate:=true;
 cf.i:='C:\dumpDoc.txt';
 cf.o:='C:\dumpDocres.txt';
 cf.Resume;
end;

procedure TCopyFile.Execute;
var
f1, f2: File;
cop: array [1..2048] of Char;
sizefile, sizeread: Int64;
colRead, colWrite : Integer;
begin
{$I-}
try
AssignFile(f1,I);
AssignFile(f2, O);
system.Reset(f1, 1);
sizefile := FileSize(f1);
system.Rewrite(f2, 1);
colRead := 0;
colWrite := 0;
sizeread := 0;
while colRead = colWrite do begin
BlockRead(f1, cop, SizeOf(cop), colRead);
if colRead = 0 then break;
BlockWrite(f2, cop, colRead, colWrite);
sizeread := sizeread + colRead;
p:=Round(100*sizeread/sizefile);
Synchronize(setprogress);
end;
finally
CloseFile(f1);
CloseFile(f2);
end;
{$I+}
end;


procedure TCopyFile.setprogress;
begin
form1.Gauge1.Progress := p;
end;

end.

[Leo20]

всем спасибо)