使用带有 TWebBrowser 的 IHTMLEventObj 处理程序进行内存泄漏

问题描述

我正在使用 TWebbrowser 来显示 WYSIWYG HTML 编辑器，并且我添加了一些处理程序来捕获键盘和鼠标事件，以便我可以将此编辑器集成到我的应用程序流程中。此浏览器集成在自定义 TPanel、TPanelEditorHTML 中。

这是我的做法，遵循 this answer 的一些提示：

  //Create the procedure type to assign the event
  THTMLProcEvent = procedure(Sender: TObject; Event: IHTMLEventObj) of object;

  //Create a  new class for manage the event from the twebbrowser
  THTMLbrowserEventLink = class(TInterfacedobject,Idispatch)
  private
    FOnEvent: THTMLProcEvent;
  private
    constructor Create(Handler: THTMLProcEvent);
    function GetTypeInfoCount(out Count: Integer): HResult; stdcall;
    function GetTypeInfo(Index,LocaleID: Integer; out TypeInfo): HResult; stdcall;
    function GetIDsOfNames(const IID: TGUID; Names: Pointer;
      NameCount,LocaleID: Integer; dispIDs: Pointer): HResult; stdcall;
    function Invoke(dispID: Integer; const IID: TGUID; LocaleID: Integer;
      Flags: Word; var Params; VarResult,ExcepInfo,ArgErr: Pointer): HResult; stdcall;
  public
    property OnEvent: THTMLProcEvent read FOnEvent write FOnEvent;
  end;

在我的 TWebbrowser 容器上，我有这个：

FOnKeyDownConnector:  Idispatch; 
FOnClickConnector:  Idispatch;
FOnKeyDownConnectorIFrame:  Idispatch;
FOnClickConnectorIFrame:  Idispatch;    

procedure browserIHTMLDocument2OnKeyDown(Sender: TObject; Event: IHTMLEventObj);
procedure browserIHTMLDocument2OnClick(Sender: TObject; Event: IHTMLEventObj); 
procedure IframeIHTMLDocument2OnKeyDown(Sender: TObject; Event: IHTMLEventObj);
procedure IframeIHTMLDocument2OnClick(Sender: TObject; Event: IHTMLEventObj);

其中 browserIHTMLDocument2OnKeyDown 等是我将 HTML 编辑器数据集成到我的应用程序中的所有工作的过程

我在启动时创建处理程序

constructor TPanelEditorHTML.Create(AOwner: TComponent);
begin
  inherited;
  // ...
  FNavegador := TGENbrowser.Create(self);
  FOnKeyDownConnector := THTMLbrowserEventLink.Create(browserIHTMLDocument2OnKeyDown);
  FOnClickConnector := THTMLbrowserEventLink.Create(browserIHTMLDocument2OnClick);
  FOnKeyDownConnectorIFrame := THTMLbrowserEventLink.Create(IFrameIHTMLDocument2OnKeyDown);
  FOnClickConnectorIFrame := THTMLbrowserEventLink.Create(IFrameIHTMLDocument2OnClick);
end;    

当我加载 HTML 编辑器时，我将此处理程序分配给 DOM 树中的几个元素：

procedure TPanelEditorHTML.AsignarManejadores;
var
  HTMLDocument2_A,HTMLDocument2_B: IHTMLDocument2;
begin
  HTMLDocument2_A := ExtraerIframeEditor;
  HTMLDocument2_B := (FNavegador.Document AS IHTMLDocument2);
  if (HTMLDocument2_A = nil) or (HTMLDocument2_B = nil) then
    Exit;

  if (FOnKeyDownConnectorIFrame <> nil) then
    HTMLDocument2_A.onkeydown := FOnKeyDownConnectorIFrame; 
  if (FOnClickConnectorIFrame <> nil) then
    HTMLDocument2_A.onclick := FOnClickConnectorIFrame; 

  if (FOnKeyDownConnector <> nil) then
    HTMLDocument2_B.onkeydown := FOnKeyDownConnector; 
  if (FOnClickConnector <> nil) then
    HTMLDocument2_B.onclick := FOnClickConnector;   
end;

当用户结束编辑时，我删除这个处理程序

procedure TPanelEditorHTML.DesconectarManejadores;
var
  HTMLDocument2      : IHTMLDocument2;
begin
  HTMLDocument2 := ExtraerIframeEditor;
  if (HTMLDocument2 <> nil) then
  begin
    HTMLDocument2.onkeydown := Unassigned; //assign the event handler
    HTMLDocument2.onclick := Unassigned; //assign the event handler
  end;

  HTMLDocument2:=(FNavegador.Document AS IHTMLDocument2);
  if (HTMLDocument2 <> nil) then
  begin
    HTMLDocument2.onkeydown := Unassigned; //assign the event handler
    HTMLDocument2.onclick := Unassigned; //assign the event handler
  end;
end;

我的问题出在 TPanelEditorHTML 析构函数上。这导致了四个 THTMLbrowserEventLink 的内存泄漏。如果我尝试 FreeAndNil 处理程序，我会收到运行时错误。

destructor TPanelEditorHTML.Destroy;
begin
  FDataLink.Free;
  FOnKeyDownConnector := Unassigned;
  FOnClickConnector := Unassigned;
  FOnKeyDownConnectorIFrame := Unassigned;
  FOnClickConnectorIFrame := Unassigned;
  inherited;
end;

我发现 this article 与内存泄漏有关，我尝试替换这两种制作副本的方法都无济于事。

我错过了什么吗？

解决方法

正如 @DalijaPrasnikar 所说，THTMLEventLink.Create 中有一个多余的 _AddRef，这是我从 this answer 中提出的解决方案中复制的。

将 THTMLBrowserEventLink 的构造函数更改为：

constructor THTMLBrowserEventLink.Create(Handler: THTMLProcEvent);
begin
  inherited Create;
  FOnEvent := Handler;
end;

避免内存泄漏。