delphi 自动登陆 读取网页信息

点击登录以后，对webbrowser状态进行轮询，直到URL正确，且webbrowser状态为DOCUMENT_COMPLETE为止，然后取出网页内容。引用 MsHtml单元， var doc2: IHtmlDocument2; begin doc2 := (webbrowser.document as IHtmlDocument2); content := doc2.innerHTMl; end; 这个只能取到Body里的内容，如果想取到全部的，参看下文 http:&