当鼠标移过TWebBrowser文档时，获取超链接的网址

于 2020-09-11 23:57:55 发布
阅读量220 收藏
点赞数
文章标签： java js python javascript html5 ViewUI
原文链接：https://www.thoughtco.com/url-hyperlink-twebbrowser-document-1058415
版权

The TWebBrowser Delphi component provides access to the Web browser functionality from your Delphi applications.

TWebBrowser Delphi组件可从您的Delphi应用程序访问Web浏览器功能。

In most situations you use the TWebBrowser to display HTML documents to the user - thus creating your own version of the (Internet Explorer) Web browser. Note that the TWebBrowser can also display Word documents, for example.

在大多数情况下，您可以使用TWebBrowser向用户显示HTML文档-从而创建您自己的(Internet Explorer)Web浏览器版本。 注意，例如，TWebBrowser也可以显示Word文档。

A very nice feature of a Browser is to display link information, for example, in the status bar, when the mouse hovers over a link in a document.

浏览器的一个很好的功能是当鼠标悬停在文档中的链接上时，例如在状态栏中显示链接信息。

The TWebBrowser does not expose an event like "OnMouseMove". Even if such an event would exist it would be fired for the TWebBrowser component - NOT for the document being displayed inside the TWebBrowser.

TWebBrowser不会公开“ OnMouseMove”之类的事件。 即使存在此类事件，也会为TWebBrowser组件触发该事件，而不是为TWebBrowser内部显示的文档触发事件。

In order to provide such information (and much more, as you will see in a moment) in your Delphi application using the TWebBrowser component, a technique called "events sinking" must be implemeted.

为了使用TWebBrowser组件在Delphi应用程序中提供此类信息(以及更多信息，您将在稍后看到)，必须实现一种称为“ 事件下沉 ”的技术。

WebBrowser事件接收器 ( WebBrowser Event Sink )

To navigate to a web page using the TWebBrowser component you call the Navigate method. The Document property of the TWebBrowser returns an IHTMLDocument2 value (for web documents). This interface is used to retrieve information about a document, to examine and modify the HTML elements and text within the document, and to process related events.

要使用TWebBrowser组件导航到网页，请调用Navigate方法。 该TWebBrowser的文档属性返回的IHTMLDocument2值(网页文件)。 此接口用于检索有关文档的信息，检查和修改文档中HTML元素和文本以及处理相关事件。

To get the "href" attribute (link) of an "a" tag inside a document, while the mouse hovers over a document, you need to react on the "onmousemove" event of the IHTMLDocument2.

为了获得文档内“ a”标签的“ href”属性(链接)，当鼠标悬停在文档上时，您需要对IHTMLDocument2的“ onmousemove”事件作出React。

Here are the steps to sink events for the currently loaded document:

以下是接收当前加载的文档事件的步骤：

  1. Sink the WebBrowser control's events in the DocumentComplete event raised by the TWebBrowser. This event is fired when the document is fully loaded into the Web Browser.

    在TWebBrowser引发的DocumentComplete事件中接收WebBrowser控件的事件。 将文档完全加载到Web浏览器时，将触发此事件。

  2. Inside DocumentComplete, retrieve the WebBrowser's document object and sink the HtmlDocumentEvents interface.

    在DocumentComplete内，检索WebBrowser的文档对象并接收HtmlDocumentEvents接口。
  3. Handle the event you are interested in.

    处理您感兴趣的事件。

  4. Clear the sink in the in BeforeNavigate2 - that is when the new document is loaded in the Web Browser.

    清除BeforeNavigate2中的接收器 -也就是在Web浏览器中加载新文档时。

HTML文档OnMouseMove ( HTML Document OnMouseMove )

Since we are interested in the HREF attribute of an A element - in order to show the URL of a link the mouse is over, we will sink the "onmousemove" event.

由于我们对A元素的HREF属性感兴趣-为了显示鼠标悬停的链接的URL，我们将沉入“ onmousemove”事件。

The procedure to get the tag (and its attributes) "below" the mouse can be defined as:

可以在鼠标“下方”获取标签(及其属性)的过程可以定义为： 

var
  htmlDoc : IHTMLDocument2;
...
procedure TForm1.Document_OnMouseOver;
var
   element : IHTMLElement;
begin
   if htmlDoc = nil then Exit;
   element := htmlDoc.parentWindow.event.srcElement;
   elementInfo.Clear;
   if LowerCase(element.tagName) = 'a' then
   begin
     ShowMessage('Link, HREF : ' + element.getAttribute('href',0)]) ;
   end
   else if LowerCase(element.tagName) = 'img' then
   begin
     ShowMessage('IMAGE, SRC : ' + element.getAttribute('src',0)]) ;
   end
   else
   begin
     elementInfo.Lines.Add(Format('TAG : %s',[element.tagName])) ;
   end;
end; (*Document_OnMouseOver*)

As explained above, we attach to the onmousemove event of a document in the OnDocumentComplete event of a TWebBrowser:

如上所述，我们在TWebBrowser的OnDocumentComplete事件中附加到文档的onmousemove事件： 

procedure TForm1.WebBrowser1DocumentComplete(   ASender: TObject;
  const pDisp: IDispatch;
  var URL: OleVariant) ;
begin
   if Assigned(WebBrowser1.Document) then
   begin
     htmlDoc := WebBrowser1.Document as IHTMLDocument2;
     htmlDoc.onmouseover := (TEventObject.Create(Document_OnMouseOver) as IDispatch) ;
   end;
end; (*WebBrowser1DocumentComplete*)

And this is where the problems arise! As you might guess the "onmousemove" event is *not* a usual event - as are those we are used to work with in Delphi.

这就是问题出现的地方！ 您可能会猜到“ onmousemove”事件不是一个常见事件，就像我们在Delphi中使用的那些事件一样。

The "onmousemove" expects a pointer to a variable of type VARIANT of type VT_DISPATCH that receives the IDispatch interface of an object with a default method that is invoked when the event occurs.

“ onmousemove”期望指向类型为VT_DISPATCH的VARIANT类型的变量的指针，该变量使用事件发生时调用的默认方法接收对象的IDispatch接口。

In order to attach a Delphi procedure to "onmousemove" you need to create a wrapper that implements IDispatch and raises your event in its Invoke method.

为了将Delphi过程附加到“ onmousemove”，您需要创建一个包装器，该包装器实现IDispatch并在其Invoke方法中引发事件。

Here's the TEventObject interface:

这是TEventObject接口： 

TEventObject =class(TInterfacedObject, IDispatch)
private
   FOnEvent: TObjectProcedure;
protected
   function GetTypeInfoCount(out Count: Integer): HResult; stdcall;
   function GetTypeInfo(Index, LocaleID: Integer; out TypeInfo): HResult; stdcall;
   function GetIDsOfNames(const IID: TGUID; Names: Pointer; NameCount, LocaleID: Integer; DispIDs: Pointer): HResult; stdcall;
   function Invoke(DispID: Integer; const IID: TGUID; LocaleID: Integer; Flags: Word; var Params; VarResult, ExcepInfo, ArgErr: Pointer): HResult; stdcall;
public
   constructor Create(const OnEvent: TObjectProcedure) ;
   property OnEvent: TObjectProcedure read FOnEvent write FOnEvent;
   end;

Here's how to implement event sinking for a document displayed by the TWebBrowser component - and get the info of a HTML element below the mouse.

这是为TWebBrowser组件显示的文档实现事件接收的方法-并在鼠标下方获取HTML元素的信息。

TWebBrowser文档事件下沉示例 ( TWebBrowser Document Event Sinking Example )

Download

下载

Drop a TWebBrowser ("WebBrowser1") on a Form ("Form1"). Add a TMemo ("elementInfo")...

将一个TWebBrowser(“ WebBrowser1”)放到窗体(“ Form1”)上。 添加TMemo(“ elementInfo”)...

unit Unit1;interfaceuses   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,   Dialogs, OleCtrls, SHDocVw, MSHTML, ActiveX, StdCtrls;type   TObjectProcedure = procedure of object;   TEventObject = class(TInterfacedObject, IDispatch)   private     FOnEvent: TObjectProcedure;   protected     function GetTypeInfoCount(out Count: Integer): HResult; stdcall;     function GetTypeInfo(Index, LocaleID: Integer; out TypeInfo): HResult; stdcall;     function GetIDsOfNames(const IID: TGUID; Names: Pointer; NameCount, LocaleID: Integer; DispIDs: Pointer): HResult; stdcall;     function Invoke(DispID: Integer; const IID: TGUID; LocaleID: Integer; Flags: Word; var Params; VarResult, ExcepInfo, ArgErr: Pointer): HResult; stdcall;   public     constructor Create(const OnEvent: TObjectProcedure) ;     property OnEvent: TObjectProcedure read FOnEvent write FOnEvent;   end;   TForm1 = class(TForm)     WebBrowser1: TWebBrowser;     elementInfo: TMemo;     procedure WebBrowser1BeforeNavigate2(ASender: TObject; const pDisp: IDispatch; var URL, Flags, TargetFrameName, PostData, Headers: OleVariant; var Cancel: WordBool) ;     procedure WebBrowser1DocumentComplete(ASender: TObject; const pDisp: IDispatch; var URL: OleVariant) ;     procedure FormCreate(Sender: TObject) ;   private     procedure Document_OnMouseOver;   public     { Public declarations }   end;var   Form1: TForm1;   htmlDoc : IHTMLDocument2;implementation{$R *.dfm}procedure TForm1.Document_OnMouseOver;var   element : IHTMLElement;begin   if htmlDoc = nil then Exit;   element := htmlDoc.parentWindow.event.srcElement;   elementInfo.Clear;   if LowerCase(element.tagName) = 'a' then   begin     elementInfo.Lines.Add('LINK info...') ;     elementInfo.Lines.Add(Format('HREF : %s',[element.getAttribute('href',0)])) ;   end   else if LowerCase(element.tagName) = 'img' then   begin     elementInfo.Lines.Add('IMAGE info...') ;     elementInfo.Lines.Add(Format('SRC : %s',[element.getAttribute('src',0)])) ;   end   else   begin     elementInfo.Lines.Add(Format('TAG : %s',[element.tagName])) ;   end;end; (*Document_OnMouseOver*)procedure TForm1.FormCreate(Sender: TObject) ;begin   WebBrowser1.Navigate('http://delphi.about.com') ;   elementInfo.Clear;   elementInfo.Lines.Add('Move your mouse over the document...') ;end; (*FormCreate*)procedure TForm1.WebBrowser1BeforeNavigate2(ASender: TObject; const pDisp: IDispatch; var URL, Flags, TargetFrameName, PostData, Headers: OleVariant; var Cancel: WordBool) ;begin   htmlDoc := nil;end; (*WebBrowser1BeforeNavigate2*)procedure TForm1.WebBrowser1DocumentComplete(ASender: TObject; const pDisp: IDispatch; var URL: OleVariant) ;begin   if Assigned(WebBrowser1.Document) then   begin     htmlDoc := WebBrowser1.Document as IHTMLDocument2;     htmlDoc.onmouseover := (TEventObject.Create(Document_OnMouseOver) as IDispatch) ;   end;end; (*WebBrowser1DocumentComplete*){ TEventObject }constructor TEventObject.Create(const OnEvent: TObjectProcedure) ;begin   inherited Create;   FOnEvent := OnEvent;end;function TEventObject.GetIDsOfNames(const IID: TGUID; Names: Pointer; NameCount, LocaleID: Integer; DispIDs: Pointer): HResult;begin   Result := E_NOTIMPL;end;function TEventObject.GetTypeInfo(Index, LocaleID: Integer; out TypeInfo): HResult;begin   Result := E_NOTIMPL;end;function TEventObject.GetTypeInfoCount(out Count: Integer): HResult;begin   Result := E_NOTIMPL;end;function TEventObject.Invoke(DispID: Integer; const IID: TGUID; LocaleID: Integer; Flags: Word; var Params; VarResult, ExcepInfo, ArgErr: Pointer): HResult;begin   if (DispID = DISPID_VALUE) then   begin     if Assigned(FOnEvent) then FOnEvent;     Result := S_OK;   end   else Result := E_NOTIMPL;end;end.

单位 Unit1; 界面 使用 Windows，消息，SysUtils，变体，类，图形，控件，表单，对话框，OleCtrls，SHDocVw，MSHTML，ActiveX，StdCtrls； 键入 TObjectProcedure = 对象 的 程序 ; TEventObject = 类 (TInterfacedObject，IDispatch) 私有 FOnEvent：TObjectProcedure; 受保护的函数 GetTypeInfoCount(out Count：Integer)：HResult; stdcall; 函数 GetTypeInfo(Index，LocaleID：Integer; out TypeInfo)：HResult; stdcall; 函数 GetIDsOfNames( const IID：TGUID;名称：指针; NameCount，LocaleID：整数; DispIDs：指针)：HResult; stdcall; 函数 Invoke(DispID：Integer; const IID：TGUID; LocaleID：Integer; Flags：Word; var Params; VarResult，ExcepInfo，ArgErr：Pointer)：HResult; stdcall; 公共 构造函数 Create( const OnEvent：TObjectProcedure); 属性 OnEvent：TObjectProcedure读取FOnEvent写入FOnEvent; 结束 ; TForm1 = 类 (TForm)WebBrowser1：TWebBrowser; elementInfo：TMemo; 过程 WebBrowser1BeforeNavigate2(ASender：TObject; const pDisp：IDispatch; var URL，Flags，TargetFrameName，PostData，Headers：OleVariant; var Cancel：WordBool); 过程 WebBrowser1DocumentComplete(ASender：TObject; const pDisp：IDispatch; var URL：OleVariant); 过程 FormCreate(Sender：TObject); 私有 过程 Document_OnMouseOver; 公开 { 公开声明} 结尾 ; var Form1：TForm1; htmlDoc：IHTMLDocument2； 实现 {$ R * .dfm} 过程 TForm1.Document_OnMouseOver; var element：IHTMLElement; 如果 htmlDoc = nil 开始 ， 然后退出； 元素：= htmlDoc.parentWindow.event.srcElement; elementInfo.Clear; 如果 LowerCase(element.tagName)='a'， 则 开始 elementInfo.Lines.Add('LINK info ...'); elementInfo.Lines.Add(Format('HREF：％s'，[element.getAttribute('href'，0)]))); 结束 否则 如果小写(element.tagName)= 'IMG' 然后 开始 elementInfo.Lines.Add( '图片资料...'); elementInfo.Lines.Add(Format('SRC：％s'，[element.getAttribute('src'，0)]))); 以 其他方式 开始 elementInfo.Lines.Add(Format('TAG：％s'，[element.tagName]))); 结束 ; 结束 ; (* Document_OnMouseOver *) 过程 TForm1.FormCreate(Sender：TObject); 开始 WebBrowser1.Navigate('http://delphi.about.com'); elementInfo.Clear; elementInfo.Lines.Add('将鼠标移到文档上...'); 结束 ; (* FormCreate *) 过程 TForm1.WebBrowser1BeforeNavigate2(ASender：TObject; const pDisp：IDispatch; var URL，Flags，TargetFrameName，PostData，Headers：OleVariant; var Cancel：WordBool); 开始 htmlDoc：= nil ; 结束 ; (* WebBrowser1BeforeNavigate2 *) 过程 TForm1.WebBrowser1DocumentComplete(ASender：TObject; const pDisp：IDispatch; var URL：OleVariant); 如果 开始分配(WebBrowser1.Document) 然后 开始 HTMLDOC：= WebBrowser1.Document 为的IHTMLDocument2; htmlDoc.onmouseover：=(TEventObject.Create(Document_OnMouseOver) as IDispatch); 结束 ; 结束 ; (* WebBrowser1DocumentComplete *) {TEventObject} 构造函数 TEventObject.Create( const OnEvent：TObjectProcedure); 开始 继承 Create; FOnEvent：= OnEvent; 结束 ; 函数 TEventObject.GetIDsOfNames( const IID：TGUID;名称：指针; NameCount，LocaleID：整数; DispIDs：指针)：HResult; 开始结果：= E_NOTIMPL; 结束 ; 函数 TEventObject.GetTypeInfo(Index，LocaleID：Integer; out TypeInfo)：HResult; 开始结果：= E_NOTIMPL; 结束 ; 函数 TEventObject.GetTypeInfoCount(out Count：Integer)：HResult; 开始结果：= E_NOTIMPL; 结束 ; 函数 TEventObject.Invoke(DispID：Integer; const IID：TGUID; LocaleID：Integer; Flags：Word; var Params; VarResult，ExcepInfo，ArgErr：Pointer)：HResult; 如果 开始 (DISPID = DISPID_VALUE) 然后 开始 如果已分配(FOnEvent) 然后 FOnEvent; 结果：= S_OK; 结束 else结果：= E_NOTIMPL; 结束 ; 结束 。

翻译自: https://www.thoughtco.com/url-hyperlink-twebbrowser-document-1058415

cumao2792
关注
delphi 从TWebBrowser WebBrowser得到全部html源码
12-06
delphi 从TWebBrowser WebBrowser得到全部html源码 收藏 网上查询出很多方法，归结起来有两种
Delphi 2007实现高亮显示TWebBrowser中鼠标指向的HTML元素
06-14
当用户将鼠标移动到TWebBrowser加载的网页上时，我们需要获取到鼠标下方的HTML元素。这可以通过调用TWebBrowser的`Document`属性获取到当前页面的IDispatch接口，进一步转换为IHTMLDocument2接口。然后，我们可以...
Delphi 从 TWebBrowser中获得当前输入处的链接
正己的专栏
03-31 782
var unsubscribeStr : string; ovSelection: OleVariant; innerDom, ovTextRange, nnode: OleVariant; begin ovSelection := Edit.doc.selection; //获得选择对象 ovTextRange := ovSelection.creat
Delphi中获取TWebBrowser中鼠标移动到超链接的URL
gj333的专栏
10-16 1306
unit Unit1; interface uses    Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,    Dialogs, OleCtrls, SHDocVw, MSHTML, ActiveX, StdCtrls; type    TObjectProcedure
获取WebBrowser页面转向网址的两种办法
weixin_33949359的博客
05-28 395
今天同学遇到一个问题，他制作的Html电子书光盘，在浏览页面的时候没有问题，但是在打开PDF、Word、Excel、PPT文件的时候，部分客户电脑可以打开，但是有些用户又打不开，经过检查是因为默认是通过浏览器去打开这些文件，但是不同用户的电脑浏览器安全设定可能不同，所以出现问题。 经过讨论，解决方案是制作一个浏览器程序，使用这个程序浏览页面，当页面进行跳转的时候监测即将转向的文件是否为需要...
How to call Delphi code from scripts running in a TWebBrowser
weixin_30722589的博客
12-26 172
Contents Introduction Overview Implementing the external object Registering the external object with TWebBrowser Calling into Delphi from JavaScript Case study Overview Designing...
delphi的TWebBrowser控件，实际上是IE，版本比较低，经济打不开网页，可以通过修改注册表的方法进行修改成IE11
03-18
在标题和描述中提到的情况，当开发者发现TWebBrowser控件不能正确显示或运行一些网页时，实际上是因为控件使用的IE内核版本过低。解决这个问题的一种方法是升级TWebBrowser控件所使用的IE内核到最新版本，例如IE11。...
delphi twebbrowser小例子。
10-24
Delphi中的TWebBrowser组件是开发桌面应用程序时用于嵌入Web浏览器功能的重要工具。这个组件基于Internet Explorer（IE）的ActiveX控件，允许开发者在Delphi程序中展示网页、执行JavaScript以及与网页内容进行交互。...
Delphi能用TWebBrowser制作网页编辑器吗demo宣贯.pdf
10-30
要实现这一功能，可以通过 TWebBrowser 的 Document 属性获取或设置网页内容。具体实现时，需要关注如何从 TWebBrowser 中读取网页的源代码。以下是一个示例代码： ```delphi function TMy1982Webbrowser....
TWebBrowser运行JQuery
08-08
在IT行业中，`TWebBrowser`控件是一个广泛使用的组件，尤其在Delphi或C++Builder等RAD（快速应用开发）环境中。它允许开发者在应用程序内部嵌入一个基于Internet Explorer的浏览器引擎，使得用户可以在应用中浏览...
在一个webbrower中点击的URL地址显示在另一个webBrowser中
游响云停专栏
11-17 3078
在一个webbrower中点击的URL地址显示在另一个webBrowser中
delphi TWebBrowser组件使用详解
diligentcat的专栏
05-06 1892
delphi TWebBrowser组件使用详解      该组件是一个浏览器组件，可以显示一个指定地址的网页、设置网页打开时的主页以及对网页进行相关的操作，同时也可以对HTML文件进行剪切、复制、粘贴、删除等操作。该       组件在Internet组件页中。      1．属性      （1）AddressBar属性      设置是否显示地址栏，在TWebBrowser中没有用。  
Delphi : WebBrowser、MSHTML在Delphi中的使用
u010569495的专栏
09-07 794
>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>   WebBrowser、MSHTML在Delphi中的使用 1.初始化和终止化 uses ActiveX; initialization OleInitialize(nil); finalization try     OleUninitialize; except end; 2.Emp
Delphi中TWebBrowser的用法
daiswy的博客
12-26 3043
WebBrowser1.GoHome; //到浏览器默认主页  WebBrowser1.Refresh; //刷新  WebBrowser1.GoBack; //后退  WebBrowser1.GoForward; //前进  WebBrowser1.Navigate('...'); //打开指定页面  WebBrowser1.Navigate('about:blank'); //打开空页面  /
TWebBrowser 与 MSHTML(5): document 对象的属性、方法、事件纵览
daniel_skybird的专栏
06-07 806
{IHTMLDocument2　方法:}write　　　　　　　　　//写入writeln　　　　　　　　//写入并换行open　　　　　　　　　//打开一个流，以收集　document.write　或　document.writeln　的输出close　　　　　　　　　//关闭并输出用　document.open　方法打开的流clear　　　　　　　　　//清空文档中所有元素,　可能暂时不支持q
如何在TWebBrowser内禁用代理？
最新发布
09-10
在Delphi中，TWebBrowser组件本身并不直接提供禁用代理的功能，因为它的职责是加载和显示网页，而不是处理网络连接。如果你之前已经全局设置了代理，并希望在某个TWebBrowser实例上暂时关闭代理，你需要通过操作系统级别的设置来达到这个目的。 由于TWebBrowser使用的是默认的Internet Explorer或Edge浏览器引擎，你可以尝试以下方法： 1. **临时清除环境变量**: 在执行对特定网页的操作前，可以清空相关的HTTP/S_PROXY环境变量，但这只会影响当前进程内的网络请求。示例代码： ```pascal // 清除http_proxy环境变量 SetEnvironmentVariable('http_proxy', '', VEVetoSet); ``` 2. **使用自定义配置**: 如果你的应用程序允许用户管理代理设置，你可以创建一个选项让用户选择是否启用代理。在启用代理的情况下，用户可以选择某个特定的TWebBrowser实例保持无代理状态。 然而，这样的做法并不保证所有的网络请求都会通过代理，因为其他组件或系统的网络行为可能会独立于TWebBrowser。所以，最好的办法可能是尽量在应用程序内部控制代理的开关，而不是依赖于底层的浏览器组件。
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值