关于WEbbrowers的一个简单问题，在线等答案！

Question

我用Webbrowers模拟提交表单后，怎么得到跳转页面后的源码呢？
Doc := WebBrowser.Document as IHTMLDocument2;
  input := Doc.all.item('submit', 0);
  input.click;比如说提交了注册信息，跳转到注册成功的页面，新页面返回一个帐号给你，我要这个新页面的网页源文件，用来提取这个帐号。 DelphiActionScript

Answer 1

判断新页面加载成功了，然后Doc.body.innerHTML取源码

Answer 2

DocumentComplete(Sender: TObject;
  const pDisp: IDispatch; var URL: OleVariant);加载完成会执行这个事件。

Answer 3

怎么判断已经跳转到新页面了呢？比如说注册页面是http://www.aaa.com 提交后跳转到新页面地址是http://aaa.com/ok.html

Answer 4

WebBrowser1NavigateComplete2事件中判断URL地址

Answer 5

DocumentComplete(Sender: TObject; const pDisp: IDispatch; var URL: OleVariant); 
//user Mshtml   
MyURL :=(web1.Document as IHTMLDocument2).url;
if pos('http://aaa.com/ok.html',MyURL) <> 0 then  //(或者多加点条件and)
showmessage('是跳转页面了')