Я пытаюсь перечислить DOM-узлы, используя следующий код (под XE2).

Я позаимствовал большую часть этого из ответов, приведенных здесь в SO, но по какой-то причиненичего не делает

IOW, ProcessDOM () никогда не вызывается.

И я в своем уме.

Может ли кто-нибудь показать мне, что я делаю здесь неправильно?

Заранее спасибо.

procedure ProcessNode(ANode: ICefDomNode);
var
  Node1: ICefDomNode;
begin
  if Assigned(ANode) then begin
    Node1 := ANode.FirstChild;
    while Assigned(Node1) do begin
      {Do stuff with node}
      ProcessNode(Node1);
      Node1 := Node1.NextSibling;
    end;
  end;
end;

procedure ProcessDOM(const ADocument: ICefDomDocument);
begin
  ProcessNode(ADocument.Body);
end;

procedure TMainForm.Chrome1LoadEnd(Sender: TObject; const ABrowser: ICefABrowser; const AFrame: ICefAFrame; AStatus: Integer);
begin
  if Assigned(AFrame) then AFrame.VisitDomProc(ProcessDOM);
end;