Оптимизация использования памяти сервером DataSnap в Delphi: борьба с утечками

Delphi , Синтаксис , Память и Указатели

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

Причины утечек памяти

Основной причиной утечек памяти в DataSnap может быть создание сессий для каждого HTTP-соединения. По умолчанию, сессия уничтожается через 20 минут, что приводит к накоплению сессий и, как следствие, к увеличению использования памяти. В REST-приложениях такое поведение может быть неоправданным, особенно если сессии не используются для хранения состояния.

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

Для уменьшения использования памяти можно явно закрывать сессии после каждого вызова серверного метода. Это достигается с помощью установки свойства GetInvocationMetaData.CloseSession в значение True. Пример использования данного метода:

uses System.StrUtils, DataSnap.DSSession, Data.DBXPlatform;

function TServerMethods1.HelloWorld: String;
begin
    Result := 'Hello World';
    GetInvocationMetaData.CloseSession := True;
end;

Также стоит рассмотреть настройку свойства Lifecycle компонента TDSServerClass на Invocation, чтобы сессия освобождалась после каждого вызова метода.

Альтернативные подходы

Если предыдущие методы не дают результата, можно использовать функцию ReportMemoryLeaksOnShutdown, которая позволит выявить утечки памяти при закрытии сервера. Для этого в dpr файле необходимо установить ReportMemoryLeaksOnShutdown := True.

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

Разработчики также предлагают метод, который позволяет закрывать сессии, которые не использовались в течение определённого времени. Пример такого метода:

void TWebModule1::CloseIdleSessions()
{
    TDSSessionManager* sessMgr = TDSSessionManager::Instance;
    // ...
    for(int index = 0; index < sessKeys->Count; index++)
    {
        String sessKey = sessKeys->Strings[index];
        sess = sessMgr->Session[sessKey];
        unsigned elapsed = (int)sess->ElapsedSinceLastActvity();
        if(elapsed > 10000)
        {
            sessMgr->CloseSession(sessKey);
            // В Delphi 10.3 достаточно использовать только CloseSession, так как он также выполняет RemoveSession
        }
        // ...
    }
}

Заключение

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

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

Проблема утечек памяти в серверах DataSnap на Delphi и способы её решения через управление сессиями и настройку компонентов.

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

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

:: Главная :: Память и Указатели ::