OnLoadEnd вызвал несколько раз из Chromum Embedded Framework

Question

Использование CEF Browser Я пытаюсь подключиться к событию OnLoadEnd, чтобы пересечь дерево DOM.

По какой-то странной причине я получаю VisitDom, называемый 2 раза.

procedure TForm1.FormCreate(Sender: TObject); 
begin 
    FBrowser := TChromium.Create(Self); 
    FBrowser.Parent := TWinControl(Self); 
    FBrowser.OnLoadEnd := BrowserOnLoadEnd; 
    FBrowser.Load('http://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 вызывается несколько раз?

Answer 1

Похоже, OnLoadEnd вызывается с HttpStatusCode = 200 для каждого актива страницы имеющей такие как: изображения, внешние скрипты и т.д.

Решение состоит в том, чтобы проверить на основную раму загружается - Frame.IsMain = True ,

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