相关疑难解决方法(0)

使用默认的TWebBrowser可以轻松嵌入Web浏览器.不幸的是,默认情况下进入的是IE <n>.

我想知道如何整合Gecko或WebKit.

1. 在某处有VCL示例吗？
2. 如果没有,怎么会去做呢？
3. 哪里是以嵌入格式找到Gecko和/或WebKit核心的最佳位置？

我试图使用以下代码枚举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;