Ошибки освобождения ресурсов в многопоточных Delphi-проектах ISAPI и их решение

Delphi , Компоненты и Классы , Потоки

Вопрос, поднятый пользователем, касается проблемы корректного освобождения ресурсов в многопоточных Delphi-проектах ISAPI. Проблема заключается в том, что при переиспользовании пула приложений IIS (app-pool) объект лога log не освобождается корректно, что приводит к необходимости полного перезапуска IIS.

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

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

Пример кода

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

unit LogUnit;
...
type
    TThreadFileLog = class(TObject)
    private
        FFileName: String;
        FThreadPool: TThreadPool;
        procedure HandleLogRequest(Data: Pointer; AThread: TThread);
    public
        constructor Create(const FileName: string);
        destructor Destroy; override;
        procedure Log(const LogText: string);
    end;
...
implementation
...
constructor TThreadFileLog.Create(const FileName: string);
begin
    FFileName := FileName;
    FThreadPool := TThreadPool.Create(HandleLogRequest, 1);
end;
...
destructor TThreadFileLog.Destroy;
begin
    FThreadPool.Free;
    inherited;
end;
...

Решение проблемы

Для решения проблемы необходимо использовать функцию TerminateExtension, предоставляемую Microsoft для очистки ресурсов. В этой функции следует вызвать освобождение объекта log.

function TerminateExtension(dwFlags: dword): bool; stdcall;
begin
    OutputDebugString('TerminateExtension BEGIN');
    log.Free;
    OutputDebugString('TerminateExtension END');
    Result := Web.Win.ISAPIThreadPool.TerminateExtension(dwFlags);
end;

Также можно использовать процедуру DoTerminate, которая будет вызываться при закрытии ISAPI-расширения.

procedure DoTerminate;
begin
    OutputDebugString('TerminateExtension BEGIN');
    log.Free;
    OutputDebugString('TerminateExtension END');
end;

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

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

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

Заключение

Для корректного освобождения ресурсов в многопоточных Delphi-проектах ISAPI важно использовать TerminateExtension или DoTerminate для вызова кода очистки. Это позволит избежать необходимости полного перезапуска IIS и обеспечит стабильную работу приложения.

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

Проблема связана с некорректным освобождением ресурсов в многопоточных Delphi-проектах ISAPI, что приводит к ошибкам при переиспользовании пула приложений IIS и требует перезапуска IIS для их устранения, и предлагается решение с использованием функции `T

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

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

:: Главная :: Потоки ::