delphi 使用WebBrowser控件获取含框架的网页的完整HTML代码
2022-10-18 09:05:54 作者：admin
本文整理自网络，侵删。
使用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;
相关阅读 >>
Delphi twebbrowser流程讲解及如何判断下载网页成功
Delphi简单加密解密
Delphi字符串旋转任意角度
Delphi 实现文件分割合并
Delphi实时监视应用程序内存使用量
Delphi著名皮肤控件库大全评测
Delphi文本文件的写操作
Delphi 每年、月、周、日的开始与结束的时间
Delphi中实现dll文件自动注册
Delphi响应wmi事件（响应网线断开）
更多相关阅读请进入《Delphi》频道 >>
猜你喜欢
联络方式：
400-123-789
邮箱：xiachao@163.com
Q Q：12345678
微信公众号 
微信二维码
