Анализ файловых дескрипторов в Delphi для решения проблем блокировки файлов

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

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

Подходы к решению задачи

Существует два основных способа решения этой задачи:

1. Использование IFileIsInUse - интерфейс, доступный начиная с Windows Vista. Это более простой и предпочтительный метод для современных систем.

2. Использование NtQuerySystemInformation - более сложный метод, который работает с Windows XP и более поздними версиями.

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

Интерфейс IFileIsInUse предоставляет информацию о процессе, который использует файл. Пример использования этого интерфейса можно найти в проекте JEDI.

program FileIsInUseClientExample;
// ...
function GetFileInUseInfo(const FileName : WideString) : IFileIsInUse;
// ...

Этот код позволяет получить информацию о процессе, использующем файл, и его возможности взаимодействия с этим процессом.

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

Этот метод включает в себя перебор всех открытых дескрипторов файлов в системе, что является более ресурсоемкой операцией.

uses
  Windows,
  SysUtils;
// ...
type
  SYSTEM_HANDLE = record
    uIdProcess: ULONG;
    ObjectType: UCHAR;
    Flags: UCHAR;
    Handle: Word;
    pObject: Pointer;
    GrantedAccess: ACCESS_MASK;
  end;
  // ...
function GetFileNameHandle(hFile: THandle): String;
// ...
// Получение PID процесса, который открыл файл
function GetProcessIdUsingFile(const TargetFileName: string): DWORD;
// ...

Этот код позволяет получить идентификатор процесса, который открыл интересующий файл.

Пример использования

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

try
  // Попытка открыть файл
except
  on E: Exception do
  begin
    if E.Message.Contains('Sharing Violation') then
    begin
      // Получение PID процесса, блокирующего файл
      var ProcessId := GetProcessIdUsingFile('MyFile.txt');
      if ProcessId <> 0 then
      begin
        // Действия с ProcessId
      end;
    end;
  end;
end;

Заключение

Для решения проблемы блокировки файлов в приложениях на Delphi можно использовать различные подходы, от простого использования IFileIsInUse до более сложного перебора дескрипторов файлов с помощью NtQuerySystemInformation. Выбор метода зависит от версии операционной системы и конкретных требований приложения.

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

Анализ файловых дескрипторов в Delphi для выявления процессов, блокирующих доступ к файлам.

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

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

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