Question

Is it possible to register an Interface with the RegisterExpectedMemoryLeak procedure?

I have a private field declared as:

FDragDropTarget: IDropTarget;

I then create an instance of this and attempt to Register a known memory leak for this object:

  FDragDropTarget := TDropTarget.Create(lcMain.Handle, FDragDrop);
  RegisterExpectedMemoryLeak(FDragDropTarget);

However I get a compiler error stating that there is Incompatible types: ‘Pointer’ and ‘IDropTarget’. To me, my interface instance is a pointer anyway?

So can I do this? It’s being reported via the ReportMemoryLeaksOnShutdown := True statement I have in my .dpr file.

begin
  ReportMemoryLeaksOnShutdown := True;
  Application.Initialize;
  Application.MainFormOnTaskbar := True;
  Application.CreateForm(TForm2, Form2);
  Application.Run;
end.

TDropTarget is my implementation of the IDropTarget interface:

  TDropTarget = class(TInterfacedObject, IDropTarget)
  ...
  end;

Thanks

Answer 1

It’s not the interface that leaks, but the object implementing it. So I think that’s the one that needs to be registered:

FDragDropTargetObj: TDropTarget;
FDragDropTarget: DropTarget;


FDragDropTargetObj := TDropTarget.Create(lcMain.Handle, FDragDrop); 
FDragDropTarget := FDragDropTargetObj;
RegisterExpectedMemoryLeak(FDragDropTargetObj);