请问，怎样读取网页的所有链接及网页的内容？(300分)

请问，怎样读取网页的所有链接及网页的内容？谢谢

IDHttp.get(URL)就可以啊

IDHttp.get(URL)下回来的html后用正则表达式好好分析咯

Uses MSHTML;

procedure TForm1.Button1Click(Sender: TObject);
var
doc: IHTMLDocument2;
all: IHTMLElementCollection;
len,i: integer;
item: OleVariant;
begin
doc := WebBrowser1.Document as IHTMLDocument2;
all := doc.Get_links;
len := all.length;
for i := 0 to len - 1 do begin
item := all.item(i,varempty);
//获得链接的标题文本与链接地址
Memo1.Lines.Add(item.innertext + '[' + item.href + ']');
end;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
WebBrowser1.Navigate('http://www.google.com');
end;

大富翁里面有好多,搜索一下就行了

没满意的答案哈，分了吧。