Delphi中的OnLoadEnd在Chrome Embedded Framework中为何会被多次触发？

本文共计222个文字，预计阅读时间需要1分钟。

使用CEF浏览器插件，我尝试在OnLoadEnd事件中遍历DOM树。由于一些奇怪的原因，我遇到了两次VisitDom错误。在FormCreate过程中，我创建了一个浏览器实例，并将其父级设置为WinControl。

使用CEF浏览器我尝试挂钩OnLoadEnd事件以遍历DOM树.

由于一些奇怪的原因,我得到了两次VisitDom.

procedure TForm1.FormCreate(Sender: TObject); begin FBrowser := TChromium.Create(Self); FBrowser.Parent := TWinControl(Self); FBrowser.OnLoadEnd := BrowserOnLoadEnd; FBrowser.Load('google.com'); end; procedure VisitDom(const Document: ICefDomDocument); begin ShowMessage(Document.Document.Name); end; procedure TForm1.BrowserOnLoadEnd(Sender: TObject; const Browser: ICefBrowser; const Frame: ICefFrame; HttpStatusCode: Integer; out Result: Boolean); var Visitor: TCefFastDomVisitor; begin if HttpStatusCode = 200 then begin Visitor := TCefFastDomVisitor.Create(VisitDom); FBrowser.Browser.MainFrame.VisitDom(Visitor); end; end;

知道为什么多次调用OnLoadEnd？

似乎OnLoadEnd是使用HttpStatusCode = 200为页面所拥有的每个资产调用的,例如：图像,外部脚本等.

解决方案是检查正在加载的主框架 – Frame.IsMain = True.

if (HttpStatusCode = 200) and Frame.IsMain then begin Visitor := TCefFastDomVisitor.Create(VisitDom); FBrowser.Browser.MainFrame.VisitDom(Visitor); end;