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

hlgchina 2007-12-20 09:17:14
用WebBrowser打开一个网页,点击网页上的链接,如何获得所点击链接的地址
...全文
220 7 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
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;

1,594

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 网络通信/分布式开发
社区管理员
  • 网络通信/分布式开发社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧