delphi获取网页页面问题(js脚本)(100)

  • 主题发起人 主题发起人 xndd
  • 开始时间 开始时间
X

xndd

Unregistered / Unconfirmed
GUEST, unregistred user!
我用indy获取网页页面:http://finance.sina.com.cn/realstock/company/sh600001/nc.shtml是一个股票页面,想获取最新的价格(页面用js实时刷新)但是indy获取下来的页面都是没有执行js的然后我换成webbrowser,无法获取,各位大大help! wb1: TWebBrowser;begin //test url := 'http://finance.sina.com.cn/realstock/company/sh600001/nc.shtml&#39;; wb1 := TWebBrowser.Create(nil); wb1.Navigate(url); //等待完成 while wb1.ReadyState<>READYSTATE_COMPLETE do begin Application.ProcessMessages; //下面行报错 mmo1.Lines.Add(wb1.oleobject.Document.Body.InnerHTML); end; //下面两行都报错 //mmo1.Lines.Add(IHtmlDocument2(wb1.Document).Body.OuterHtml); //mmo1.Lines.Add(IHtmlDocument2(wb1.Document).Body.OuterText); wb1.Free();
 
后退
顶部