Искусственный рост потребления памяти в Delphi-приложении на Windows Server 2008 (x64, SP1) и пути его решения

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

Проблема, с которой столкнулись разработчики Delphi-приложения, заключается в том, что при работе на Windows Server 2008 (x64, SP1) наблюдается постоянный рост использования памяти. Это поведение не характерно для других версий операционной системы, таких как Windows Server 2003 (x32 или x64), XP и т.д., где память используется нормально, то есть растет и уменьшается в зависимости от потребностей приложения.

В ходе исследований было выяснено, что проблема связана с использованием критических секций. Пример кода, который демонстрирует проблему:

// Код инициализации и удаления массива критических секций
procedure TestStatic;
var
  csArray: PCSArray;
  idx: Integer;
begin
  New(csArray);
  // Инициализация и удаление критических секций
  Dispose(csArray);
end;

procedure TestDynamic(const Number: Integer);
var
  csArray: array of TRTLCriticalSection;
  idx: Integer;
begin
  // Инициализация и удаление динамического массива критических секций
end;

procedure TForm4.Button1Click(Sender: TObject);
begin
  ReportMemoryLeaksOnShutdown := True;
  TestStatic;
  TestDynamic(CS_NUMBER);
end;

При выполнении этого кода в приложении VCL с кнопкой, которое отслеживается с помощью Process Explorer, можно наблюдать, что использование памяти растет с каждым нажатием на кнопку. Это связано с тем, что в Windows Server 2008 (x64, SP1) изменено поведение критических секций, и они не освобождают память отладочной информации до полного завершения работы приложения.

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

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

Пример кода для исправления проблемы:

unit uCriticalSectionFix;

interface

uses
  Windows;

implementation

uses
  SyncObjs, SysUtils;

type
  InitializeCriticalSectionExProc = function(var lpCriticalSection: TRTLCriticalSection; dwSpinCount: DWORD; Flags: DWORD): BOOL; stdcall;

var
  IsNewerThenXP: Boolean;
  InitializeCriticalSectionEx: InitializeCriticalSectionExProc;

type
  // Определения для патчинга кода

constructor TCriticalSectionHack.Create;
begin
  inherited Create;
  if IsNewerThenXP then
    InitializeCriticalSectionEx(FSection, 0, CRITICAL_SECTION_NO_DEBUG_INFO)
  else
    InitializeCriticalSection(FSection);
end;

procedure AdjustMethod;
begin
  // Код для определения версии Windows и получения адреса функции InitializeCriticalSectionEx
end;

initialization
  // Код для патчинга метода создания критических секций
  IsNewerThenXP := CheckWin32Version(NEW_THEN_XP, 0);
  AdjustMethod;

end.

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

Заключение

Проблема роста потребления памяти в Delphi-приложении на Windows Server 2008 (x64, SP1) была выявлена как следствие изменений в реализации критических секций операционной системой. Использование функции InitializeCriticalSectionEx с флагом CRITICAL_SECTION_NO_DEBUG_INFO позволяет избежать нежелательного удержания памяти и решает проблему.

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

Проблема заключается в повышенном потреблении памяти в Delphi-приложении на Windows Server 2008 (x64, SP1), вызванном неправильной работой критических секций, и решение состоит в использовании функции InitializeCriticalSectionEx с флагом CRITICAL_SECTION

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

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

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