Twebbrowser1.OleObject.document的问题(100分)

Twebbrowser1在打开一个html文件之后,执行 showmessage(w.OleObject.document.links(0).href);
出错,信息是 Project Project1.exe raseed exception class EOleSysError with message '尚未完成'. 请大虾指教!

遍历links

增加uses mshtml
var
Document : IHtmlDocument2;
Link : IHTMLElement;
StrLinks : string;
i : integer;

begin
Document := WebBrowser1.Document as IHTMlDocument2;
for i := 0 to Document.Links.Length - 1 do
begin
Link := Document.Links.Item(i, 0) as IHTMLElement;
StrLinks := Link.ToString + #13#10;
ShowMessage(StrLinks);
end;
end;

多人接受答案了。