Ускорение доступа к номеру физического диска в Delphi: оптимизация кода

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

Введение

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

Основная часть

Проблема

Функция GetPhysicalDiskNumber, предназначенная для получения номера физического диска по букве диска в Delphi, работает, но делает это с заметной задержкой, около 4-5 секунд. Пользователь ищет более быстрый способ выполнения этой операции.

Решение

В коде функции GetLD используется двойной вызов CreateFile с разными параметрами доступа. Согласно документации, для открытия тома или дискета параметр dwShareMode должен включать флаг FILE_SHARE_WRITE. Это изменение в коде приводит к ускорению работы функции.

Кроме того, в коде отсутствует обработка ошибок. Если CreateFile возвращает INVALID_HANDLE_VALUE, функция должна выбросить исключение или возвращать специальное значение, указывающее на ошибку. Также в коде обнаруживается утечка памяти, так как выделенная память не освобождается.

Оптимизированный код

function GetLD(Drive: Char): Cardinal;
var
  Buffer: String;
begin
  Buffer := Format('\\.\%s:', [Drive]);
  Result := CreateFile(PChar(Buffer), GENERIC_READ, FILE_SHARE_READ or FILE_SHARE_WRITE, nil, OPEN_EXISTING, 0, 0);
  Win32Check(Result <> INVALID_HANDLE_VALUE);
end;

...

var
  LD: DWORD;
  DiskExtents: PVolumeDiskExtents;
  BytesReturned: Cardinal;
begin
  Result := 0;
  LD := GetLD(Drive);
  if LD = INVALID_HANDLE_VALUE then
    Exit;
  try
    DiskExtents := AllocMem(Max_Path);
    try
      Win32Check(DeviceIOControl(LD, IOCTL_VOLUME_GET_VOLUME_DISK_EXTENTS, nil, 0, DiskExtents, Max_Path, BytesReturned, nil));
      if DiskExtents^.NumberOfDiskExtents > 0 then
      begin
        DiskExtent := DiskExtents^.Extents[0];
        Result := DiskExtent.DiskNumber;
      end;
    finally
      FreeMem(DiskExtents);
    end;
  finally
    CloseHandle(LD);
  end;
end;

Дополнительные рекомендации

• Убедитесь, что используется функция Win32Check для обработки ошибок вызовов API.
• Проверьте, что память, выделенная через AllocMem, освобождается в блоке finally для предотвращения утечек памяти.
• Рассмотрите возможность добавления логирования для отладки и понимания поведения функции.

Заключение

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

Альтернативный вопрос

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

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

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

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

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

:: Главная :: Диски ::