问两个关于TWebBrowser的问题：

Question

问两个关于TWebBrowser的问题：
1.
var
   v_str:string;
begin
    TWebBrowser1.Navigate('http://tieba.baidu.com/f?kw=002051');
    v_str:=TWebBrowser1.LocationName;
end;
这个TWebBrowser1.LocationName此时为什么Inaccessible value？
看msdn就几句话，就说显示 URL。2、对于net那种一个页面多个源码的类似带有母版的界面，如何遍历所有界面，取得所有的源码呢？用TWebBrowser。
TWebBrowser的帮助怎么这么稀缺呀，难道还要看源码吗？各位都是怎么学习的呀？

Answer 1

var 
  v_str:string; 
begin 
    TWebBrowser1.Navigate('http://tieba.baidu.com/f?kw=002051'); 
    while WebBrowser1.ReadyState <> 4 do Application.ProcessMessages;
    v_str:=TWebBrowser1.LocationName; 
    ShowMessage(v_str);
end; 

Answer 2

 源碼
procedure TForm1.Button1Click(Sender: TObject);
var
  i : integer;
  vstr : String;
begin
 WebBrowser1.Navigate('http://www.baidu.com');
 while WebBrowser1.ReadyState <> 4 do Application.ProcessMessages; vstr := WebBrowser1.OleObject.document.body.innerhtml;
 showMessage(vstr);
end;