4

CEF ブラウザーを使用して、DOM ツリーをトラバースするために OnLoadEnd イベントにフックしようとしました。

奇妙な理由で、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 が複数回呼び出される理由は何ですか?

4

1 に答える 1

5

OnLoadEnd は、画像、外部スクリプトなど、ページにある各アセットに対して HttpStatusCode = 200 で呼び出されるようです。

解決策は、ロードされているメイン フレームを確認することです (Frame.IsMain = True)。

if (HttpStatusCode = 200) and Frame.IsMain then
begin
  Visitor := TCefFastDomVisitor.Create(VisitDom);
  FBrowser.Browser.MainFrame.VisitDom(Visitor);
end;
于 2012-03-28T12:59:20.680 に答える