Копирование файла(с Gauge) с использованием TfileStream на выходе пишет гигабитных монстов

[Человек_Борща]

Всем привет!

Вот искал готовый код копирования файлов с указанием индекатора копирования...

и нашёл:

Type   
  TCallBack=procedure (Position,Size:Longint); {Для индикации процесса копирования}  
    
procedure FastFileCopy(Const InfileName, OutFileName: String; CallBack: TCallBack);   
Const BufSize = 3*4*4096; { 48Kbytes дает прекрасный результат }  
Type   
  PBuffer = ^TBuffer;   
  TBuffer = array [1..BufSize] of Byte;   
var  
  Size             : integer;   
  Buffer           : PBuffer;   
  infile, outfile  : File;   
  SizeDone,SizeFile: Longint;   
begin  
  if (InFileName <> OutFileName) then  
  begin  
   buffer := Nil;   
   AssignFile(infile, InFileName);   
   System.Reset(infile, 1);   
   try  
     SizeFile := FileSize(infile);   
     AssignFile(outfile, OutFileName);   
     System.Rewrite(outfile, 1);   
     try  
       SizeDone := 0; New(Buffer);   
       repeat  
         BlockRead(infile, Buffer^, BufSize, Size);   
         Inc(SizeDone, Size);   
         CallBack(SizeDone, SizeFile);   
         BlockWrite(outfile,Buffer^, Size)   
       until Size < BufSize;   
       FileSetDate(TFileRec(outfile).Handle,   
         FileGetDate(TFileRec(infile).Handle));   
     finally  
      if Buffer <> Nil then Dispose(Buffer);   
      System.close(outfile)   
     end;   
   finally  
     System.close(infile);   
   end;   
 end else  
  Raise EInOutError.Create('File cannot be copied into itself');   
end;

решил переписать под использование TFileStream;

Вот что получилось:

procedure FastCopFile(aInFile, aOutFile: string; CallBackProc: TCallBack);
const
  BuffSize = 3 * 4 * 4096; // 48 kb
var
  Buff: array [1 .. BuffSize] of Byte;
  InFile, OutFile: TFileStream;
  fSize: Int64; // File size
  fPosition: Integer; // file position
  cSize: Int64; // Copyed size
begin
  If not(aInFile <> aOutFile) then
  begin
    MessageBox(Application.Handle,
      'Пути входного и выходного файлов совпадают! Копирование невозможно!',
      'Внимание!', MB_OK or MB_ICONWARNING);
    Exit;
  end;

  InFile := TFileStream.Create(aInFile, fmOpenRead);
  OutFile := TFileStream.Create(aOutFile, fmCreate or fmOpenWrite);
  try
    InFile.Seek(0, soFromBeginning);
    OutFile.Seek(0, soFromBeginning);
    fSize := InFile.Size;
    fPosition := 0;
    repeat
      InFile.Read(Buff, BuffSize);
      Inc(fPosition, cSize);
      CallBackProc(fPosition, fSize);
      OutFile.Write(Buff, BuffSize);
    until cSize < BuffSize;
  finally
    InFile.Free;
    OutFile.Free;
  end;
end;

собственно проблема:
Запустил, поставил копировать файл размером 6 мб из одной папки в другую.

Пошёл пить чай. ПРишел, файлик на выходе 7 гб.

Откуда лишние байтики? Что не так делаю?

[Пепел Феникса]

until cSize < BuffSize;

а где cSize меняется?

repeat
      cSize:=InFile.Read(Buff, BuffSize);
      Inc(fPosition, cSize);
      CallBackProc(fPosition, fSize);
      OutFile.Write(Buff, BuffSize);
    until cSize < BuffSize;

красный поправка.

а зачем было переписывать то что работало?

[Человек_Борща]

там довольно старый способ=) TfileStream как-то проще и новее...

Или это мне только кажется?

[Пепел Феникса]

в данном случае разницы ноль, все равно сводится к CreateFile,ReadFile,WriteFile,SetFi lePointer,CloseHandle