Скопировать файл с заполнением своего ProgressBara

Delphi , Файловая система , Файлы

Автор: Xavier Pacheco

{
Copyright © 1999 by Delphi 5 Developer's Guide - Xavier Pacheco and Steve Teixeira
}

unit MainFrm;

interface

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

type
  TMainForm = class(TForm)
    prbCopy: TProgressBar;
    btnCopy: TButton;
    procedure btnCopyClick(Sender: TObject);
  end;

var
  MainForm: TMainForm;

implementation

{$R *.DFM}

procedure TMainForm.btnCopyClick(Sender: TObject);
var
  SrcFile, DestFile: file;
  BytesRead, BytesWritten, TotalRead: Integer;
  Buffer: array[1..500] of byte;
  FSize: Integer;
begin
  { Assign both the source and destination files to their
    respective file variables }
  AssignFile(SrcFile, 'srcfile.tst');
  AssignFile(DestFile, 'destfile.tst');
  // Open the source file for read access.
  Reset(SrcFile, 1);
  try
    // Open destination file for write access.
    Rewrite(DestFile, 1);
    try
      { Encapsulate this into a try..except so that we can erase the file if
        an error occurs. }
      try
        // Initialize total bytes read to zero.
        TotalRead := 0;
        // Obtain the filesize of the source file
        FSize := FileSize(SrcFile);
        { Read SizeOf(Buffer) bytes from the source file
          and add these bytes to the destination file. Repeat this
          process until all bytes have been read from the source
          file. A progress bar is provided to show the progress of the
          copy operation. }
        repeat
          BlockRead(SrcFile, Buffer, SizeOf(Buffer), BytesRead);
          if BytesRead > 0 then
          begin
            BlockWrite(DestFile, Buffer, BytesRead, BytesWritten);
            if BytesRead <> BytesWritten then
              raise Exception.Create('Error copying file')
            else
            begin
              TotalRead := TotalRead + BytesRead;
              prbCopy.Position := Trunc(TotalRead / Fsize) * 100;
              prbCopy.Update;
            end;
          end
        until BytesRead = 0;
      except
        { On an exception, erase the destination file as it may be
          corrupt. Then re-raise the exception. }
        Erase(DestFile);
        raise;
      end;
    finally
      CloseFile(DestFile); // Close the destination file.
    end;
  finally
    CloseFile(SrcFile); // Close the source file.
  end;
end;

end.

Here's a translation of the content into Russian:

Главная форма

Главная форма (TMainForm) имеет два компонента: prbCopy (а TProgressBar) и btnCopy (а TButton). Когда кнопка btnCopy нажата, программа начинает копировать файл.

Процедура копирования файла

Процедура TMainForm.btnCopyClick вызывается при нажатии кнопки btnCopy. Она выполняет следующие шаги:

1. Назначает два переменных-файла (SrcFile и DestFile) для источника и назначения файлов, соответственно.
2. Открывает источник файла для чтения с помощью Reset( SrcFile, 1 ).
3. Открывает файл назначения для записи с помощью Rewrite( DestFile, 1 ). Если возникает ошибка при этом шаге, программа будет удалить файл назначения и повторно выбросить исключение.
4. Инициализирует переменную TotalRead в ноль, которая отслеживает общее количество байтов, прочитанных из источника файла.
5. Получает размер файла источника с помощью FileSize( SrcFile ).
6. Пока не все байты были прочитаны из источника файла:
   • Читает SizeOf( Buffer ) байтов из источника файла с помощью BlockRead и хранит их в буфере (Buffer).
   • Записывает эти байты в файл назначения с помощью BlockWrite. Если возникает ошибка при этом шаге, программа выбросит исключение.
   • Обновляет прогресс-бар, установив его позицию в процентном соотношении прочитанных байтов (используя prbCopy.Position) и обновляя его (используя prbCopy.Update).
7. Закрывает оба файла с помощью CloseFile.

Замечания

• Программа предполагает, что источник файлы называется 'srcfile.tst', а файл назначения называется 'destfile.tst'. Вы можете изменить эти имена, как вам нужно.
• Прогресс-бар обновляется установкой его позиции в процентном соотношении прочитанных байтов, которое рассчитывается с помощью TotalRead / Fsize * 100.
• Если возникает ошибка при копировании файла, программа удалит файл назначения и повторно выбросит исключение.

Альтернативное решение

Вместо использования функций Delphi BlockRead и BlockWrite для копирования файлов вы можете использовать более современный подход с помощью класса Delphi TFileStream. Вот пример:

var
  SrcFile, DestFile: TFileStream;
begin
  SrcFile := TFileStream.Create('srcfile.tst', fmOpenRead);
  DestFile := TFileStream.Create('destfile.tst', fmCreate);

  try
    while not SrcFile.Eof do
    begin
      DestFile.CopyFrom(SrcFile, SrcFile.Size - SrcFile.Position);
      prbCopy.Position := Trunc(DestFile.Position / SrcFile.Size * 100);
      prbCopy.Update;
    end;
  finally
    FreeAndNil(SrcFile);
    FreeAndNil(DestFile);
  end;
end;

Код использует объект TFileStream для чтения из источника файла и записи в файл назначения. Он циклически повторяется, пока не будут прочитаны все байты из источника файла, обновляя прогресс-бар на каждой итерации. Метод CopyFrom используется для копирования содержимого источника файла в файл назначения.

В статье описывается способ копирования файла с помощью ProgressBar, демонстрируя процесс чтения и записи файлов с использованием Progress Bar в Delphi.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: Файлы ::