1565
社区成员
- 主页
使用WebBrowser控件，如何获取当前页面，当前鼠标所在图片【或文字】的连接地址？
自建一个应用程序，
使用WebBrowser控件，如何获取当前页面，当前鼠标所在图片【或文字】的连接地址？
－－－－－－－－－－－－－
简单来说，就是如何获取网页中当前鼠标下的连接地址。
使用WebBrowser控件，如何获取当前页面，当前鼠标所在图片【或文字】的连接地址？
－－－－－－－－－－－－－
简单来说，就是如何获取网页中当前鼠标下的连接地址。
...全文
请发表友善的回复…
发表回复
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两位牛人大哥能否加我。。。
不过，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;
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;
在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;