社区
网络通信/分布式开发
帖子详情
使用WebBrowser控件,如何获取当前页面,当前鼠标所在图片【或文字】的连接地址?
cocw
2006-01-21 03:29:58
自建一个应用程序,
使用WebBrowser控件,如何获取当前页面,当前鼠标所在图片【或文字】的连接地址?
-------------
简单来说,就是如何获取网页中当前鼠标下的连接地址。
...全文
541
7
打赏
收藏
使用WebBrowser控件,如何获取当前页面,当前鼠标所在图片【或文字】的连接地址?
自建一个应用程序, 使用WebBrowser控件,如何获取当前页面,当前鼠标所在图片【或文字】的连接地址? ------------- 简单来说,就是如何获取网页中当前鼠标下的连接地址。
复制链接
扫一扫
分享
转发到动态
举报
AI
作业
写回复
配置赞助广告
用AI写文章
7 条
回复
切换为时间正序
请发表友善的回复…
发表回复
打赏红包
cocw
2006-01-23
打赏
举报
回复
终于搞定了。。。谢谢上面两位牛人的支持!
cocw
2006-01-23
打赏
举报
回复
CSDN果然多牛人!楼上的二位。看来采用二位的方法应该行的通。
不过,IHTMLElement没有Src。 E.Src没有这个属性。
E:IHTMLImgElement这样声明,E := IHTMLImgElement((WebBrowser1.Document as IHTMLDocument2).elementFromPoint(X1,Y1));
这样又有错误。。。不知如何解决???
我的MSN是naczhm@hotmail.com两位牛人大哥能否加我。。。
cocw
2006-01-22
打赏
举报
回复
楼上,我对你的答案很失望。分数不是问题。我只要解决问题。。。这里有牛人吗???
飞天揽月
2006-01-22
打赏
举报
回复
uses
SHDocVw, MSHtml, ActiveX
var
E: IHTMLElement;
begin
E := (WebBrowser1.Document as IHTMLDocument2).elementFromPoint(Mouse.CursorPos.X, Mouse.CursorPos.Y);
E := (WebBrowser1.Document as IHTMLDocument2).elementFromPoint(100, 100);
Label1.Caption := E.title;
Label1.Caption := E.innerText;
蒋晟
2006-01-22
打赏
举报
回复
ElementFromPoint
cocw
2006-01-22
打赏
举报
回复
楼上的你说的ElementFromPoint在Delphi中如何实现取值啊?
飞天揽月
2006-01-21
打赏
举报
回复
BeforeNavigate2
在TWebBrowser中有一个事件叫BeforeNavigate2(Sender: TObject;
const pDisp: IDispatch; var URL, Flags, TargetFrameName, PostData,
Headers: OleVariant; var Cancel: WordBool)
在这个事件中做你想做的一切呀:
procedure TForm1.WebBrowser1BeforeNavigate2(Sender: TObject;
const pDisp: IDispatch; var URL, Flags, TargetFrameName, PostData,
Headers: OleVariant; var Cancel: WordBool);
begin
if URL='' then
...(执行你的程序呀!)
else
Cancel:=True
...
end;
Web
browser
控件
史上最强技巧全集
原文:
Web
browser
控件
史上最强技巧全集
Web
browser
控件
史上最强技巧全集 VB调用
web
browser
技巧集 1、获得浏览器信息: Private Sub Command1_Click()
Web
Browser
1.Navigate "http://www.applevb.com" End Sub Private Sub Command2_Clic...
vb+
Web
browser
控件
详解
vb+
Web
browser
控件
详解 1、获得浏览器信息: Private Sub Command1_Click()
Web
Browser
1.Navigate "http://www.applevb.com" End Sub Private Sub Command2_Click() Dim oWindow Dim oNav Set oWindow =
Web
Browser
1.Document.pa...
VB
Web
browser
控件
详解
新加内容:提交表单form1: Private Sub Command1_Click()
Web
Browser
1.Document.Forms("form1").submit End Sub 将form1中的名为u的属性设为不可用: Private Sub Command2_Click()
Web
Browser
1.Document.Forms("form1").u.setAttribute "
Web
Browser
的主要属性 。VB调用
web
browser
技巧集
Web
Browser
的主要属性 属性名 说明 LocationURL 返回当
Web
Brower中网页的URL LocationName 返回当
Web
Brower中网页的标题,即HTML中的Title标记
Web
Browser
的主要方法: 方法名 作用 Navigate 浏览网页。如:
Web
Brower.Navigate “http://junqing124.update.vip2.com” ...
delphi操作
web
browser
htmldocument,操作
web
界面
原文
地址
:https://www.cnblogs.com/endv/p/5983110.html {IHTMLDocument2 方法:} write //写入 writeln //写入并换行 open //打开一个流,以收集 document.write 或 document.writeln ...
网络通信/分布式开发
1,594
社区成员
32,958
社区内容
发帖
与我相关
我的任务
网络通信/分布式开发
Delphi 网络通信/分布式开发
复制链接
扫一扫
分享
社区描述
Delphi 网络通信/分布式开发
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章