获得一个网页的所有的URL(WebBrowser)
//记得要引用MSHTML
procedure TForm1.Button6Click(Sender: TObject);
var
Doc: IHTMLDocument2;
Len: Integer;
item: OleVariant;
all: IHTMLElementCollection;
I: Integer;
begin
Doc := WebBrowser1.Document as IHTMLDocument2;
all := Doc.links;
Len := all.length;
for I := 0 to Len -1 do
begin
item := all.item(I, EmptyParam);
Memo1.Lines.Add(item.href) ;
end;
end;
/取得一个页面的所有的URL,哈哈 是不是很容易啊
—————————————————————————————————————————————你可以不伟大,但不可以不优秀!