Delphi Form.Pas утечка памяти?

Question

HI

У меня есть библиотека динамической компоновки в Delphi 2006, в которой в формуле использований Form.pas.

Если я загружаю dll, а затем немедленно выгружаю ее в цикле forСкажем, 10000 раз, память медленно поднимается.Однако если я возьму Forms.pas из условия использования dll, то проблема исчезнет.

Код очень прост

Вот мой код для dll:

library Project1;

uses
  Forms;

begin

end.

Вот мой код для вызывающего приложения:

procedure TForm1.Button1Click(Sender: TObject);
var
  t_ImportHandle: LongInt;
  t_Index: Integer;
begin
  for t_Index := 0 to 10000 - 1 do
  begin
    t_ImportHandle := LoadLibrary('Project1.dll');
    FreeLibrary(t_ImportHandle);
  end;
 end;

Кто-нибудь еще может воспроизвести это или узнать, в чем причина и как ее исправить?

Answer 1

TApplication.Create использует функцию MakeObjectInstance в Classes.pas.MakeObjectInstance выделяет 4 КБ буфер с помощью VirtualAlloc, но не освобождает его, поэтому каждый раз, когда вы загружаете / выгружаете библиотеку DLL, она будет сильно протекать.Андреас Хаусладен имел обыкновение иметь сообщение об этом в блоге, но похоже, что он снял его. CodeCentral опубликовано исправление, которое также входит в состав пакета VCL Fix Pack Андреаса.

Answer 2

Возможно, это не утечка, а проблемы с фрагментацией диспетчера памяти.

Почему бы не попробовать использовать расширенное ведение журнала FastMM и посмотреть, действительно ли есть утечка.