Delphi取Ajax网页内容
在程序中使用TWebbrowser控件或者Indy中控件连接采用Ajax技术的网页,获得的网页源码中并不会有客户端更新的内容。在IE浏览器中的查看源文件同理也是看不到Ajax更新的内容。通过插件可以看到Ajax更新后的内容。问题是在程序中怎样来获得完整的网页内容?
如果有Ajax更新,Webbrowser的DocumentComplete事件也不会被触发。
其实完整的网页内容并不是不可以获得,使用一个简单的方法就可以:
function GetHtml(const WebBrowser:TWebBrowser): string;
var
Doc: IHTMLDocument2;
begin
Doc := WebBrowser.Document as IHTMLDocument2;
if Assigned(Doc) and Assigned(Doc.body) then
Result := Doc.body.OuterHtml; //也可以用innerHTML取得其HTML文本
end;
这样获得的HTML内容中就包含了Ajax更新的内容。
现在关键是没有好的办法来判断Ajax是否已更新完毕,由于采用的是异步更新,所以在判断上比较困难。上网搜索了一下,国外好像有比较复杂解决方案的,也没有研究过究竟可行否。
做过网页内容采集软件的,不知道有没有好的办法来处理,欢迎指教。 :-)