如何读取目标网页的源代码，来提取网页链接 ？(200分)

夏

夏敏

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-09

• #1

急需，最好是VB程序！

 

J

jsxjd

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-09

• #2

用 WebBrowser控件 和 DHTML 文档模型

 

I

iapollo

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-09

• #3

http://www.delphibbs.com/delphibbs/dispq.asp?lid=1414973

 

Z

zw84611

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-09

• #4

Delphi的好说，用WebBrowser：

１０、提取网页中所有链接

　　这个方法来自大富翁论坛hopfield朋友的对一个问题的回答，我本想自己试验，但总是没成功。

　　var
　　　doc:IHTMLDocument2;
　　　all:IHTMLElementCollection;
　　　len,i:integer;
　　　item:OleVariant;
　　begin
　　　doc:=WebBrowser1 .Document as IHTMLDocument2;
　　　all:=doc.Get_links;　　　　　　　　　　　　　//doc.Links亦可
　　　len:=all.length;
　　　for i:=0 to len-1 do begin
　　　　item:=all.item(i,varempty);　　　　　　　　//EmpryParam亦可
　　　　memo1.lines.add(item.href);
　　　end;
　　end;

VB就不清楚了，可能也类似吧。

 

J

jsxjd

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-09

• #5

也一样用，用 activeX

 

夏

夏敏

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-09

• #6

假如我的目标网页名放在dbf数据库中一个page字段，能否得到它的所有超连接组成的字符串放入另一个lian字段？

 

Z

zw84611

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-09

• #7

那你的网页在哪儿？

 

D

doll_paul

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-09

• #8

gz

 

R

Richard3000

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-10

• #9

用zw84611的方法.
或者用DHTML和這類是.

 

N

naughtboy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-10

• #10

提取已知文件名的页面源码
var
HTMLDocument: IHTMLDocument2;
PersistFile: IPersistFile;
begin
...
HTMLDocument := WebBrowser1.Document as IHTMLDocument2;
Persist := HTMLDocument as IPersistFile;
Persist.Save(StringToOleStr('test.htm'), True);

while HTMLDocument.readyState <> 'complete' do
Application.ProcessMessages;
...
end;
直接从TWebBrowser得到网页源码
Memo1.Lines.Add(IHtmlDocument2(WebBrowser1.Document).Body.OuterHtml);

 

夏

夏敏

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-02-07

• #11

多人接受答案了。