仅供参考,代码里也许有判断“打开完毕”的部分: procedure TForm1.WebBrowser1DownloadComplete(Sender: TObject); //待网页打开完成再读取链接 var i,n:integer; begin for i:=0 to WebBrowser1.OleObject.document.links.length-1 do listBox1.Items.Add(WebBrowser1.OleObject.document.links.item(i).href); //读取链接 n:=WebBrowser1.OleObject.document.links.length; //链接数 StatusBar1.Panels[0].Text :='网页打开完毕!'+'['+inttostr(n)+'个链接]'; end;
procedure TForm1.WebBrowser1DownloadComplete(Sender: TObject); //待网页打开完成再读取链接
var
i,n:integer;
begin
for i:=0 to WebBrowser1.OleObject.document.links.length-1 do
listBox1.Items.Add(WebBrowser1.OleObject.document.links.item(i).href); //读取链接
n:=WebBrowser1.OleObject.document.links.length; //链接数
StatusBar1.Panels[0].Text :='网页打开完毕!'+'['+inttostr(n)+'个链接]';
end;
http://community.csdn.net/Expert/topic/4338/4338860.xml?temp=.3941461
谢谢!今日必结贴