Как освободить файлы БДЕ: программный способ закрытия в приложениях на Delphi

Delphi , Базы данных , BDE

Вопрос, стоящий перед разработчиками, заключается в необходимости освобождения файлов БДЕ (Borland Database Engine), используемых в старых приложениях на Delphi, для выполнения операций по переименованию или перемещению папок. Проблема заключается в том, что файлы .NET или .LCK остаются открытыми, что препятствует выполнению этих операций. В коде приложения не удаётся найти открытые таблицы или запросы, которые могли бы блокировать эти файлы.

Описание проблемы

Имеется приложение, использующее БДЕ, которое продолжает работать довольно хорошо, несмотря на свой возраст. В определённые моменты приложению требуется манипулирование папками (переименование, перемещение и т.д.), но файлы .NET или .LCK остаются открытыми в папке, что предотвращает эти действия. Команда разработчиков не может обнаружить в коде открытые таблицы или запросы, которые могли бы блокировать эти файлы.

Альтернативный способ решения проблемы

Один из альтернативных подходов к решению проблемы - использование инструмента "File Unlock" от opc0de. Этот инструмент позволяет разблокировать файлы для их удаления. Он предоставляет следующие функции:

• Разблокировка файла
• Разблокировка и удаление файла
• Просмотр процессов, использующих файл
• Терминация процессов, использующих файл

Ссылка для скачивания: FileUnlock.rar

Подтверждённый ответ

Обычно специальных действий для закрытия БДЕ предпринимать не требуется. Все сессии БДЕ освобождаются в разделе финализации класса DBTables. Это закроет все сессии, и если по умолчанию сессия будет уничтожена, то будет вызван DbiDLLExit, а затем DbiExit из модуля БДЕ.

Если необходимо закрыть БДЕ до выполнения определённых операций, можно имитировать части кода финализации и инициализации из DBTables (с оговорками на ограниченное тестирование и осторожное использование):

procedure BDEKill;
begin
  // Код из финализации
  Sessions.Free;
  Sessions := nil;
end;

procedure BDEReStart;
begin
  // Код из инициализации
  Sessions := TSessionList.Create;
  Session := TSession.Create(nil);
  Session.SessionName := 'Default'; { Не локализуйте }
end;

Использование этих процедур:

BDEKill;
try
  // Выполнить операции с папками
finally
  BDEReStart;
end;

Использование переменной Sessions позволило разблокировать файлы, которые были заблокированы процессами БДЕ.

Комментарии и улучшения

Хотя не все элементы из примера кода (и кода финализации) были доступны в интерфейсе DBTables, переменная Sessions была видна и доступна для использования. Используя только эту переменную, удалось разблокировать файлы, которые вызывали интерес.

Заключение

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

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

Проблема заключается в необходимости освобождения файлов БДЕ для выполнения операций по переименованию или перемещению папок в приложениях на Delphi, где файлы `.NET` или `.LCK` остаются открытыми из-за непонятно каких процессов, не связанных с открытыми

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

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

:: Главная :: BDE ::