如何在系统默认浏览器中从TCppWebBrowser组件打开链接

问题描述

我们在我们的程序中使用TCppWebBrowser组件作为一种聊天窗口，但由于TCppwebrowser使用IExplorerengine，所有单击的链接都在IExplorer中打开。
我有一个想法是取消导航Onbeforenavigate2一个做Shell.execute，但希望一个更优雅的解决方案像一个windowsmessage我可以处理或事件或某事。

We are using a TCppWebBrowser Component in our program as a kind of chatwindow, but since the TCppwebrowser is using the IExplorerengine all links that are clicked is opening in IExplorer.One idea I have is to cancel the navigation in Onbeforenavigate2 an do a Shell.execute, but where hoping for a more elegant solution like a windowsmessage i could handle or an event or something.

推荐答案

假设TCppWebBrowser类似于Delphi中的TWebBrowser，下面的代码应该可以让你去。

Assuming that TCppWebBrowser is like TWebBrowser in Delp something like the code below should get you going.

在TWebBrowser导航到之前，会被触发一个新的URL。
您所做的是取消导航，并（这是在Windows中配置的默认Web浏览器）。

The OnBeforeNavigate2 event gets fired before the TWebBrowser navigates to a new URL.What you do is cancel that navigation, and redirect the URL with ShellExecute to an external application (which is the default web browser as configured in Windows).

为了让代码如下工作，双击你的窗体，然后输入FormCreate事件方法内容。
然后删除一个TWebBrowser，去做对象检查器的事件页面，双击OnBeforeNavigate2事件并输入该代码。

In order to get the code below working, double click on your form, then enter the FormCreate event method content.Then drop a TWebBrowser, go do the events page of the object inspector and double click on the OnBeforeNavigate2 event and enter that code.

玩得开心！

- jeroen

--jeroen

unit MainFormUnit;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, OleCtrls, SHDocVw;

type
  TForm1 = class(TForm)
    WebBrowser1: TWebBrowser;
    procedure FormCreate(Sender: TObject);
    procedure WebBrowser1BeforeNavigate2(ASender: TObject; const pDisp: IDispatch;
        var URL, Flags, TargetFrameName, PostData, Headers: OLEVariant; var Cancel:
        WordBool);
  private
    RedirectUrls: Boolean;
  end;

var
  Form1: TForm1;

implementation

uses
  ShellAPI;

{$R *.dfm}

procedure TForm1.Create(Sender: TObject);
begin
  WebBrowser1.Navigate('http://www.stackoverflow.com');
  RedirectUrls := True;
end;

procedure TForm1.WebBrowser1BeforeNavigate2(ASender: TObject; const pDisp:
    IDispatch; var URL, Flags, TargetFrameName, PostData, Headers: OLEVariant;
    var Cancel: WordBool);
var
  UrlString: string;
begin
  if not RedirectUrls then
    Exit;
  UrlString := URL;
  ShellExecute(Self.WindowHandle, 'open', PChar(UrlString), nil, nil, SW_SHOWNORMAL);
  Cancel := True;
end;

end.

这篇关于如何在系统默认浏览器中从TCppWebBrowser组件打开链接的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持！