用WebBrowser打开一个网页,点击网页上的链接,如何获得所点击链接的地址

hlgchina 2007-12-20 09:17:14
用WebBrowser打开一个网页,点击网页上的链接,如何获得所点击链接的地址
...全文
153 点赞 收藏 7
写回复
7 条回复
切换为时间正序
请发表友善的回复…
发表回复
CYDong0423 2007-12-20
WebBrowser的一个事件 StatusTextChange
WebBrowser事件的倒数第六个

回复
hlgchina 2007-12-20
这个WebBrowserStatusTextChange在那里找到啊
回复
CYDong0423 2007-12-20
补充一句 //点击 self.FStatusText是个Label1
procedure TForm1.WebBrowser1NewWindow2(Sender: TObject;
var ppDisp: IDispatch; var Cancel: WordBool);
begin
ShowMessage(self.FStatusText.Caption);
end;
回复
CYDong0423 2007-12-20
procedure TForm1.WebBrowserStatusTextChange(Sender: TObject;
const Text: WideString);
begin
self.FStatusText.Caption := Text; //你将鼠标移到链接地址返回URL地址
end;

WebBrowser.LocationURL //当前页面的URL地址
回复
brightyang 2007-12-20
up
回复
hangzhou_hammer 2007-12-20
这个方法 有漏洞,如果 网页设置了;不显示 连接的话 那怎么办?
回复
无条件为你 2007-12-20
WebBrowser事件页面中的第一个事件是:WebBrowser1BeforeNavigate2

你直接双击进入该事件,得到:

procedure TForm1.WebBrowser1BeforeNavigate2(Sender: TObject;
const pDisp: IDispatch; var URL, Flags, TargetFrameName, PostData,
Headers: OleVariant; var Cancel: WordBool);
begin
showmessage(URL);//这个就是访问的当前地址。
end;
回复
发动态
发帖子
网络通信/分布式开发
创建于2007-08-02

1565

社区成员

Delphi 网络通信/分布式开发
申请成为版主
社区公告
暂无公告