RSS订阅 | 匿名投稿
您的位置:网站首页 > 网络 > 正文

delphi 使用WebBrowser控件获取含框架的网页的完整HTML代码

作者:admin 来源: 日期:2016/1/26 22:08:37 人气: 标签:

使用WebBrowser控件获取网页源码的方法,网上有很多介绍,但绝大多数的人都是使用以下的方法获取:

(WebBrowser1.Document as IHtmlDocument2).body.outerHtml;

我以前也是这么用的,这种方法的美中不足就是只能获取网页<body>与</body>之间的网页源码,而<body>之外如<head>部分的网页源码就获取不到了,本人在网上搜了很久,终于找到解决方法。好的东西不敢独享,现将这种方法共享出来:

procedure TForm1.Button1Click(Sender: TObject);
var
  ole_index, oleObj: OleVariant;
  i: integer;
begin
  if WebBrowser1.Busy then Exit;  //网页加载中,退出。
  Memo1.Lines.Clear;
  //获取主框架网址及网页源码
  Memo1.Lines.Add(WebBrowser1.OleObject.document.url);
  Memo1.Lines.Add(WebBrowser1.OleObject.document.documentElement.outerHTML);
  Memo1.Lines.Add(' '); Memo1.Lines.Add(' '); //添加空行
  //循环获取每一个子框架网址及网页源码
  for i := 0 to WebBrowser1.OleObject.document.frames.length - 1 do
  begin
    ole_index := i;
    oleObj := WebBrowser1.OleObject.document.frames.item(ole_index);
    Memo1.Lines.Add(oleObj.document.url);
    Memo1.Lines.Add(oleObj.document.documentElement.outerHtml);
    Memo1.Lines.Add(' '); Memo1.Lines.Add(' '); //添加空行
  end;
end;


读完这篇文章后,您心情如何?
0
0
0
0
0
0
0
0
本文网址:
下一篇:没有资料