Ich versuche, DOM-Knoten mit dem folgenden Code (unter XE2) aufzulisten.

Ich habe das meiste von den Antworten hier in SO geborgt, aber aus irgendeinem Grund tut es nichts.

IOW, ProcessDOM () wird nie aufgerufen.

Und ich bin mit meinem Verstand am Ende.

Könnte mir jemand zeigen, was ich hier falsch mache.

Danke im Voraus.

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;