delphi – 如何配置FastMM以检测dll中的内存泄漏

我无法弄清楚如何检测静态或甚至动态链接的DLL中的内存泄漏.我只想检测dll中的泄漏,我不想在dll和应用程序之间共享内存管理器.另外,dll与运行时包链接

我的示例dll看起来像这样：

library dll;
uses
  fastmm4,System.SysUtils,System.Classes;
{$R *.res}
procedure MyInit; stdcall;
Begin
  TObject.Create;
End;
exports MyInit;
begin
end.

应用程序dpr：

program app;

uses
  //fastmm4,Vcl.Forms,main in 'main.pas' {Form1};

{$R *.res}

begin
  Application.Initialize;
  Application.MainFormOnTaskbar := True;
  Application.CreateForm(TForm1,Form1);
  Application.Run;
end.

注意：如果我取消注释fastmm4,那么我可以检测到由应用程序(TStringList.create)引起的memleak,而不是dll中的泄漏.

并在应用程序主单元中：

unit main;

interface

uses
  Winapi.Windows,Winapi.messages,System.Variants,System.Classes,Vcl.Graphics,Vcl.Controls,Vcl.Dialogs,Vcl.StdCtrls;

type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    LDLLHandle: HModule;
    LShowProc: TProcedure;
  end;

var
  Form1: TForm1;

{$ifdef static}
procedure MyInit; stdcall; external 'dll.dll';
{$endif}

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  TStringList.Create;
  {$ifdef static}
  MyInit;
  {$elsE}
  LDLLHandle := LoadLibrary('dll.dll');
  if LDLLHandle <> 0 then
  begin
    try
      LShowProc := GetProcAddress(LDLLHandle,'MyInit');
      if Assigned(LShowProC) then
        LShowProc;
    finally
      FREELIbrary(LDLLHandlE);
    end;
  end;
  {$endif}
end;

end.

我希望FastMM在调用FREELIbrary时生成报告,或者在程序退出时生成报告,如果dll是静态加载的,但没有任何反应.

在FastMM4Options.inc中,我还设置了FullDebugMode和ClearLogFiLeonStartup,并且FastMM_FullDebugMode.dll位于输出目录中.

我创造了一个repository on github.我错过了什么？

checkBlocksOnShutdown(
  {$ifdef EnableMemoryLeakReporTing}
        True
    {$ifdef requirEIDEPresenceForLeakReporTing}
        and DelphiIsRunning
    {$endif}
    {$ifdef requireDebuggerPresenceForLeakReporTing}
        and ((DebugHook <> 0)
        {$ifdef PatchBCBTerminatE}
        or (Assigned(pCppDebugHook) and (pCppDebugHook^ <> 0))
        {$endif PatchBCBTerminatE}
        )
    {$endif}
    {$ifdef ManualLeakReporTingControl}
        and ReportMemoryLeaksOnShutdown
    {$endif}
  {$elsE}
        false
  {$endif}
  );