Ускорение копирования файлов в Delphi: альтернативы TFileStream <|eot_id|>

Delphi , Интернет и Сети , Браузер

Ускорение копирования файлов в Delphi: альтернативы TFileStream

При разработке приложений на Delphi, зачастую возникает необходимость копирования больших объемов файлов. Стандартные средства, такие как TFileStream, могут быть неэффективными и медленными по сравнению с операционной системой. В данной статье мы рассмотрим несколько альтернативных подходов к ускорению процесса копирования файлов.

Использование API CopyFile

Один из наиболее простых способов ускорить копирование файлов — использовать функцию CopyFile, предоставляемую Windows API. Эта функция оптимизирована под различные сценарии копирования и может работать быстрее, чем TFileStream.

uses
  Winapi.Windows;

procedure CopyFiles(const SourceFileName, DestFileName: string);
var
  Success: Boolean;
begin
  Success := CopyFile(PChar(SourceFileName), PChar(DestFileName), FALSE);
  if not Success then
    raise Exception.CreateFmt('Не удалось скопировать файл: %s', [SourceFileName]);
end;

Использование SHFileOperation

Другой способ — использовать функцию SHFileOperation из Windows API, которая используется оболочкой Windows для копирования файлов. Этот метод также может быть более эффективным, чем использование TFileStream.

uses
  Winapi.ShellAPI;

procedure CopyFilesUsingSHFileOperation(const SourceFileName, DestFileName: string);
var
  SHFILEOPSTRUCT: TSHFILEOPSTRUCT;
begin
  ZeroMemory(@SHFILEOPSTRUCT, SizeOf(TSHFILEOPSTRUCT));
  SHFILEOPSTRUCT.hwnd := Handle;
  SHFILEOPSTRUCT.wFunc := FO_COPY;
  SHFILEOPSTRUCT.pFrom := PChar(SourceFileName);
  SHFILEOPSTRUCT.pTo := PChar(DestFileName);
  SHFILEOPSTRUCT.fFlags := FOF_SILENT;
  if SHFileOperation(@SHFILEOPSTRUCT) <> 0 then
    raise Exception.CreateFmt('Ошибка копирования файлов: %s', [DestFileName]);
end;

Ручная работа с буферами

Можно также использовать ручной буфер для копирования файлов, что позволит избежать накладных расходов, связанных с использованием TFileStream. Ниже приведен пример функции копирования файлов с использованием буфера:

const
  BufferSize = 8192; // Размер буфера в байтах
var
  Buffer: array of byte;
  SourceFile, DestFile: THandle;
  BytesRead, BytesWritten: DWORD;
begin
  SetLength(Buffer, BufferSize);
  SourceFile := OpenFileName(SourceFileName, fmOpenRead);
  DestFile := CreateFileName(DestFileName, fmCreate);
  try
    repeat
      BytesRead := BlockRead(SourceFile, Buffer^, BufferSize);
      if BytesRead > 0 then
        BlockWrite(DestFile, Buffer^, BytesRead);
    until BytesRead = 0;
  finally
    CloseFile(SourceFile);
    CloseFile(DestFile);
  end;
end;

Изучение исходного кода

Можно также изучить исходный код популярных утилит, таких как Cobian Backup, которые реализуют эффективное копирование файлов. Изучение кода может дать понимание, как лучше организовать процесс копирования.

Заключение

Выбор метода копирования файлов зависит от конкретных требований и условий использования. CopyFile и SHFileOperation являются универсальными и оптимизированными под различные сценарии, в то время как ручная работа с буферами может быть более гибкой и настраиваемой под специфические задачи. Изучение исходного кода популярных утилит также может быть полезным для понимания лучших практик.

Создано по материалам из источника по ссылке.

Ускорение копирования файлов в Delphi: альтернативы TFileStream

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

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

:: Главная :: Браузер ::