delphi chrome获取html5,delphi 调用谷歌内核打开网页

【实例简介】

使用谷歌内核打开网站

【实例截图】

【核心代码】

procedure TMainForm.actDocExecute(Sender: TObject);

begin

crm.Load('http://magpcss.org/ceforum/apidocs3');

end;

procedure TMainForm.actDomExecute(Sender: TObject);

begin

if crm.Browser <> nil then

crm.Browser.MainFrame.ExecuteJavaScript(

'document.body.addEventListener("mouseover", function(evt){'

'function getpath(n){'

'var ret = "";'

'if (n.parentNode){return getpath(n.parentNode) ret} else '

'return ret'

'};'

'app.mouseover(getpath(evt.target))}'

')', 'about:blank', 0);

end;