哥们好啊。快点来救我啊。(20分)

在webbrowser中如何获得某一网页所有的超链接及该链接的文字？

doc: IHTMLDocument2;
all: IHTMLElementCollection;
item: OleVariant;
len, i: integer;
begin
doc := wb.Document as IHTMLDocument2;
all := doc.Get_links;
len := all.length;
for i := 0 to len - 1 do begin
item := all.item(i, varempty); //EmpryParamÒà¿É
listitem := OpenAllLinkForm.ListView_link.Items.Add;
listitem.SubItems.Add(item.innertext);
end;
end; 我是这样写的，可以通过编译，但是在执行该过程时在“all := doc.Get_links; ”出错。 我用的是D7

我試過你的代碼, 正常是沒問題的, 但好象你的WebBrowser1打開一個網址後, 會彈出一個廣告窗體, 或打開一個新窗體, 你又沒關閉, 就會出錯!

Aiirii，我明白了，多谢你。