如何取得webbrowser链接的url(20分)

V

violet1011

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-05-07

• #1

在webbrowser的newwindow2事件中，想取得网页中的新的链接的url,
请教如何取得

 

S

satanmonkey

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-05-07

• #2

在这个事件里不能得到的。你是想做拦截广告的软件吧？

 

V

violet1011

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-05-08

• #3

是可检测网页的链接的
我是在这里用shellexecute调用应用程序本身
然后参数传递取自beforenavigate2里的url(别人告诉我的)，
可是得到的链接地址是不正确的，请教如何解决

 

B

bundur

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-05-08

• #4

procedure TForm1.WebBrowser1NewWindow2(Sender: TObject;
var ppDisp: IDispatch; var Cancel: WordBool);
var
sURL: string;
begin
sURL := IWebBrowser(ppDisp).LocationURL;
...
end;

 

V

violet1011

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-05-08

• #5

为什么我加上这句以后点击链接会有错误 出现？？

 

B

bundur

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-05-08

• #6

对不起，是我弄错了，我处理过这样的问题，只是一时记不起来了。

 

V

violet1011

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-05-09

• #7

大虾帮帮忙啊。。。。

 

Y

youdu

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-05-09

• #8

、提取网页中所有链接
　　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;

 

V

violet1011

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-05-09

• #9

只要取得鼠标点击的网页中的一个链接的URL，
比如右键的“打开新窗口”功能
请教如何实现