有没有能将一网页中的各"http://..."分离出来的控件(20分)

G

go2

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-05-31

• #1

 

M

menxin

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-05-31

• #2

IEdelphi就可以

 

G

go2

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-05-31

• #3

哪里可以下载

 

房

房客

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-05-31

• #4

控件?
自己POS吧

 

D

dana

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-05-31

• #5

var Document: IHtmlDocument2;Link: IHTMLElement;StrLinks: string;i: integer;
begin
Document := Web.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;

 

M

microwave

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-05-31

• #6

不太懂你的意思，如果是：
text:='http://www.delphibbs.com' 想要得到 'www.delphibbs.com' 的话可用

pos(text,7,length(text)-7);

 

G

go2

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-06-01

• #7

我是想得到一个网页中所有的http的超联接
to menxin:
IEdelphi是控件吗，哪儿有

 

林

林沐

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-06-02

• #8

dana是对的。

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;

 

G

go2

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-15

• #9

多人接受答案了。