blockrd.pas

  {Blockrd.PAS}                                                             
 
  {Пример программы для процедур BlockRead и BlockWrite }
 
  Uses WinCrt;
 
  Program CopyFile;
 
  { Простая программа быстрого копирования файлов БЕЗ проверки ошибок } 
 
  Var       FromF, ToF : File;
   NumRead, NumWritten : Word; 
                   Buf : Array [1..2048] Of Char;
  Begin 
   { Открываем входной файл }
   Assign(FromF, ParamStr(1));
   Reset(FromF, 1);  { Размер буфера записи = 1 байт }
   { Открываем выходной файл }
   Assign(ToF, ParamStr(2));
   ReWrite(ToF, 1);  { Размер буфера записи = 1 байт } 
   WriteLn('Копирую ', FileSize(FromF), ' байт...');
   Repeat
    BlockRead(FromF, Buf, SizeOf(Buf), NumRead);
    BlockWrite(ToF, Buf, NumRead, NumWritten);
   Until (NumRead = 0) Or (NumWritten <> NumRead);
   Close(FromF);
   Close(ToF);
  End.