IDHTTP OR WEBBROWSER控件

Question

利用idhttp或webbrowser组件如何提取超链接和其它的链接文字？
有没直接的方法，而不用分析HTML来获得。

Answer 1

list all links of a page of a TWebbrowser? 
procedure TForm1.Button1Click(Sender: TObject);vari: Integer;beginfor i := 0 to Webbrowser1.OleObject.Document.links.Length - 1 doListbox1.Items.Add(Webbrowser1.OleObject.Document.Links.Item(i));end;对于多个Frame的页面，可以采取下面的代码：procedure TForm1.Button2Click(Sender: TObject);vari: Integer;beginListbox1.Clear;//if frames availableif Webbrowser1.OleObject.Document.Frames.Length <> 0 thenbegin//walk through all frames and get the url//to the Listboxfor i := 0 to Webbrowser1.OleObject.Document.Frames.Length - 1 dobeginListbox1.Items.Add(Webbrowser1.OleObject.Document.Frames.item(i).Document.URL);end;end;end; 
 你试试，如果可以把分给我的马甲 w95927w(D版第一铁公鸡)对了，这代码可不能放在 Windows的记事本中处理哈