Как решить проблему утечек памяти в многопоточных приложениях на Delphi с использованием THandle

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

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

Название статьи:

Как избежать утечек памяти в многопоточных приложениях на Delphi с использованием THandle

Введение

Многопоточность в программировании на Delphi может быть мощным инструментом для повышения производительности и отзывчивости приложений. Однако неправильное управление потоками может привести к серьезным проблемам, включая утечки памяти. В этой статье мы рассмотрим, как избежать таких утечек, используя примеры кода на Object Pascal.

Основная часть

Проблема с THandle

Использование THandle для управления потоками в Delphi может привести к трудностям при управлении временем жизни потока. В приведенном пользователем коде используется CreateThread для создания нового потока, который затем ожидается с помощью WaitForSingleObject. Если поток не завершается в установленное время, он просто "уходит" из функции, игнорируя блок finally, что приводит к утечкам памяти.

Пример неправильного кода

procedure Calc_Prin;
type
  TTeste = record
    ptrClass: TSpAu;
    ptrTEMPO: ^integer;
  end;
var
  TEMPO: integer;
  RESULTADO: THandle;
  thrID: DWord;
  teste: TTeste;
  function THREAD_C(PTR: pointer): longint; stdcall;
  begin
    // ...
    try
      CoInitializeEx(nil, COINIT_APARTMENTTHREADED);
      TPtrTeste(PTR).ptrClass.Calc;
      TPtrTeste(PTR).ptrTEMPO^ := 1;
    finally
      ExitThread(1);
      CoUninitialize;
      result := 0;
    end;
  end;
begin
  // ...
  SuspendThread(RESULTADO);
  CloseHandle(RESULTADO);
end;

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

Чтобы решить проблему, необходимо правильно управлять жизненным циклом потока. Вместо принудительного завершения потока с помощью ExitThread, следует позволить потоку завершиться естественным образом, проверив условие о завершении работы в функции Calc.

Альтернативный ответ и пример правильного кода

type
  TSpAu = class
  public
    Cancelled: Boolean;
    procedure Calc;
  end;
  TPtrTeste = ^TTeste;
  TTeste = record
    ptrClass: TSpAu;
    ptrTEMPO: ^Integer;
  end;
function THREAD_CALCULO(PTR: pointer): DWORD; stdcall;
begin
  CoInitializeEx(nil, COINIT_APARTMENTTHREADED);
  try
    with TPtrTeste(PTR)^ do
    begin
      try
        if Cancelled then
          Abort;
        ptrClass.Calc;
        ptrTEMPO^ := 1;
      except
        ptrTEMPO^ := 0;
      end;
    end;
  finally
    CoUninitialize;
  end;
  Result := 0;
end;
procedure Calc_Prin;
var
  TEMPO: Integer;
  RESULTADO: THandle;
  thrID: DWord;
  teste: TTeste;
  ret: DWORD;
begin
  // ...
  teste.ptrClass := TSpAu.Create; // Создаем объект TSpAu
  teste.ptrTEMPO := @TEMPO;
  // ...
  RESULTADO := CreateThread(nil, 0, @THREAD_CALCULO, @teste, 0, thrID);
  if RESULTADO = 0 then RaiseLastOSError;
  try
    ret := WaitForSingleObject(RESULTADO, TEMPO_PERMITIDO);
    if ret = WAIT_TIMEOUT then
    begin
      teste.ptrClass.Cancelled := True;
      ret := WaitForSingleObject(RESULTADO, INFINITE);
    end;
    if ret = WAIT_FAILED then RaiseLastOSError;
  finally
    CloseHandle(RESULTADO);
    teste.ptrClass.Free; // Освобождаем объект TSpAu
  end;
end;
procedure TSpAu.Calc;
begin
  // ...
  if Cancelled then
    raise ECalcCanceled.Create('Calc Canceled');
  // ...
end;

В этом коде добавляется булева переменная Cancelled в класс TSpAu, которая проверяется в функции Calc. Если Cancelled установлен в True, то в Calc выбрасывается исключение, которое обрабатывается в потоке, приводя к его завершению.

Важные моменты

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

Заключение

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

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

Утечки памяти в многопоточных приложениях на Delphi могут возникать из-за неправильного управления потоками, в частности, при использовании THandle, когда поток не завершается в установленное время, что приводит к игнорированию блока `finally` и, как сле

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

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

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