Delphi中Chrome Chromium、Cef3学习笔记（四）

原文   http://blog.****.net/xtfnpgy/article/details/48155323

一、遍历网页元素并点击JS:

下面代码为找到淘宝宝贝页面，成交记录元素的代码：

for(var i=0;i<document.getElementsByTagName("A").length;i++){var a;
       var d=document.getElementsByTagName("A")[i];
       var s=document.getElementsByTagName("A")[i].innerHTML;
       if(s!=null){
       if(s.indexOf("成交记录")>-1){
            a=document.getElementsByTagName("A")[i];alert(a.innerHTML);
           ClickElement(a);  //由于chromium控件元素不支持click事件，所以需要自己重新绑定事件

break;
       }}}

//-----------------点击元素的代码------------------------------

function ClickElement(AObj) {  
    var e = document.createEvent("MouseEvent");
    e.initEvent("click", false, false);
    AObj.dispatchEvent(e);
}

二、如何在Delphi中直接操作Document接口

Button1.OnClick：

chrm1.Browser.MainFrame.VisitDomProc(ChrmDomProc);

procedure ChrmDomProc(const doc : ICefDomDocument);  //其他接口有待自己研究 var   s : string; begin    doc.GetElementById('txtUsername').SetElementAttribute('Value','abc');    s := doc.GetElementById('txtUsername').GetValue;    showmessage(s); end;