您现在的位置:首页 >> VCL >> VCL >> 内容

Delphi获取网页中动态创建的Div中的内容

时间:2011/9/3 16:26:23 点击:

  核心提示:HTML示例代码如下:script language=' !-- function test(){ var obj=document.getElementById('test'); for(var i...

HTML示例代码如下:

<script language="javascript">
<!--
function test(){
var obj=document.getElementById("test");
for(var i=0;i<6; i++){
var testDiv=document.createElement("div"); testDiv.setAttribute("id","son"+i);
testDiv.style.cursor="pointer";
testDiv.title=i;
testDiv.onclick=function(){alert(i);}
testDiv.innerHTML="No."+i;
obj.appendChild(testDiv);
}
}
//-->
</script>
<body onload="test()">
<div id="test"></div>
</body>

Delphi示例代码如下:

procedure TForm1.Button1Click(Sender: TObject);
var
  Doc:IHTMLDocument2;
  Fdiv:IHTMLElement;
begin
  WebBrowser1.Navigate('http://127.0.0.1/test1.htm');
  while WebBrowser1.ReadyState<>4 do
    Application.ProcessMessages;
  //
  Doc:=WebBrowser1.Document as IHTMLDocument2;
  Fdiv:=Doc.all.item('test',varEmpty) as IHTMLElement;
  ShowMessage(Fdiv.innerText);
end;

作者:网络 来源:转载
共有评论 0相关评论
发表我的评论
  • 大名:
  • 内容:
本类推荐
  • 没有
本类固顶
  • 没有
  • 盒子文章(www.2ccc.com) © 2024 版权所有 All Rights Reserved.
  • 沪ICP备05001939号