当前位置： 文江博客话题详情

在 Delphi 11 中用 TEdgeBrowser 替换 TWebBrowser

发布于 2025-01-13 11:25:45 字数 4896 浏览 1 评论 0原文

TEdgeBrowser 取代了 TWebBrowser。这是新的。 TEdgebrowser 应该运行 Javascript，而且确实如此。
我采用了与 TWebBrowser 相同的代码，并将其精简到最少。随着 Google 地图离开 IE，我们必须能够在 Edge 上实现此功能。

如果您运行我提供的最小且功能齐全的代码（减去 API 密钥），您将看到它在 TWebBrowser 下工作。由于 HKCU\SOFTWARE\Microsoft\Internet Explorer\Main\FeatureControl\FEATURE_BROWSER_EMULATION 修复，它可以在 TWebBrowser 下运行。 但我在 EdgeBrowser 中看不到任何内容。我的机器上确实安装了 Edge。 我已在 IE 11 和 Edge 之间切换 FEATURE_BROWSER_EMULATION。没有区别。

我在 TEdgeBrowser 和 Javascript Google Maps 上进行了搜索，结果说它被版主删除了，没有任何解释。

任何意见将不胜感激。

unit streetMap;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, OleCtrls, SHDocVw, StdCtrls, ExtCtrls, ComCtrls, MSHTML, System.UITypes,
  Buttons, IPPeerClient,Vcl.AppEvnts, Winapi.WebView2, Winapi.ActiveX, Vcl.Edge;


type
  TfrmStreetMap = class(TForm)
    WebBrowser1: TWebBrowser;
    EdgeBrowser1: TEdgeBrowser;
    Button1: TButton;
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Button1Click(Sender: TObject);

  private
    { Private declarations }

    HTMLWindow2: IHTMLWindow2;
    procedure CreateMap(Sender: TObject);

  public

  end;


var
  frmStreetMap: TfrmStreetMap;
  GoogleAPIKey: AnsiString;

implementation

uses
  StrUtils;

{$R *.dfm}

const
  HTMLStrHeader: AnsiString =
  '<html> ' +
  '<head> ' +
    '<meta name="viewport" content="initial-scale=1.0, user-scalable=yes" /> ' +
    '<script type="text/javascript"  src="https://maps.googleapis.com/maps/api/js?v=3.47&amp;callback=initMap"></script> '    +
    '<script type="text/javascript"> ' +
    '' +
    '';

  HTMLStr: AnsiString =
    '  function initialize() { ' +

    '    var latlng = new google.maps.LatLng(34.000,-84.0000); ' +
    '    var myOptions = { ' +
    '      zoom: 15, ' +
    '      center: latlng, ' +
    '      mapTypeId: google.maps.MapTypeId.ROADMAP ' +
    '                    }; ' +
    '    map = new google.maps.Map(document.getElementById("map_canvas"), myOptions);  '  +
    ' '  +
    '  } ' +

    '</script> ' +
    '</head> ' +
    '<body onload="initialize()"> ' +
    '  <style>        ' +

    '#map_canvas {               ' +
    '        height: 100%;   ' +
    '      }                  ' +
    '      #map_canvas {         ' +
    '        margin-right: 40px;  } ' +
    '    </style>                ' +
    '  <div id="map_canvas"></div> ' +
    '</body> ' +
    '</html> ';

procedure TfrmStreetMap.Button1Click(Sender: TObject);
var
  ModHTMLStr: AnsiString;
begin
    ModHTMLStr := HTMLStrHeader+ HTMLStr;
    edgebrowser1.ExecuteScript(HTMLStrHeader+ HTMLStr);
end;

procedure TfrmStreetMap.CreateMap(Sender: TObject);
var
  aStream: TMemoryStream;
  ModHTMLStr: AnsiString;
begin
  try
    ModHTMLStr := HTMLStrHeader+ HTMLStr;
    WebBrowser1.Navigate('about:blank');
    if Assigned(WebBrowser1.Document) then
    begin
      aStream := TMemoryStream.Create;
      try
        aStream.WriteBuffer(Pointer(ModHTMLStr)^, Length(ModHTMLStr));
        aStream.Seek(0, soFromBeginning);
        (WebBrowser1.Document as IPersistStreamInit).Load(TStreamAdapter.Create(aStream));
      finally
        aStream.Free;
      end;
      HTMLWindow2 := (WebBrowser1.Document as IHTMLDocument2).parentWindow;
    end;

  except
    on E: Exception do
    begin

    end;
  end;
end;

procedure TfrmStreetMap.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Action := caFree;
end;

procedure TfrmStreetMap.FormCreate(Sender: TObject);
begin
  CreateMap(Sender);
end;

end.

表单代码如下：

object frmStreetMap: TfrmStreetMap
  Left = 0
  Top = 0
  BorderStyle = bsSingle
  Caption = 'StreetMap'
  ClientHeight = 532
  ClientWidth = 1035
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  Position = poDesigned
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object WebBrowser1: TWebBrowser
    Left = -8
    Top = 4
    Width = 593
    Height = 461
    TabOrder = 0
    ControlData = {
      4C0000004A3D0000A52F00000000000000000000000000000000000000000000
      000000004C000000000000000000000001000000E0D057007335CF11AE690800
      2B2E126208000000000000004C0000000114020000000000C000000000000046
      8000000000000000000000000000000000000000000000000000000000000000
      00000000000000000100000000000000000000000000000000000000}
  end
  object EdgeBrowser1: TEdgeBrowser
    Left = 591
    Top = 8
    Width = 426
    Height = 457
    TabOrder = 4
  end
  object Button1: TButton
    Left = 792
    Top = 496
    Width = 145
    Height = 25
    Caption = 'Load into Edge'
    TabOrder = 5
    OnClick = Button1Click
  end
end
原文

TEdgeBrowser replaces TWebBrowser. It is new.
TEdgebrowser is supposed to run Javascript and it does.
I took the same code that I used for TWebBrowser, stripped down to its minimum. With Google Maps leaving IE, this is imperitive that we able able to make this work with Edge.

If you run the minimal and fully functional code I've provided (less the API key), you will see this works under TWebBrowser. It works under TWebBrowser because of the HKCU\SOFTWARE\Microsoft\Internet Explorer\Main\FeatureControl\FEATURE_BROWSER_EMULATION fix.
But I see nothing in the EdgeBrowser. I do have Edge installed on my machine.
I had toggled the FEATURE_BROWSER_EMULATION between IE 11 and Edge. No difference.

I did a search on TEdgeBrowser and Javascript Google Maps and SO said it was removed by moderators without explanation.

Any input would be deeply appreciated.

unit streetMap;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, OleCtrls, SHDocVw, StdCtrls, ExtCtrls, ComCtrls, MSHTML, System.UITypes,
  Buttons, IPPeerClient,Vcl.AppEvnts, Winapi.WebView2, Winapi.ActiveX, Vcl.Edge;


type
  TfrmStreetMap = class(TForm)
    WebBrowser1: TWebBrowser;
    EdgeBrowser1: TEdgeBrowser;
    Button1: TButton;
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Button1Click(Sender: TObject);

  private
    { Private declarations }

    HTMLWindow2: IHTMLWindow2;
    procedure CreateMap(Sender: TObject);

  public

  end;


var
  frmStreetMap: TfrmStreetMap;
  GoogleAPIKey: AnsiString;

implementation

uses
  StrUtils;

{$R *.dfm}

const
  HTMLStrHeader: AnsiString =
  '<html> ' +
  '<head> ' +
    '<meta name="viewport" content="initial-scale=1.0, user-scalable=yes" /> ' +
    '<script type="text/javascript"  src="https://maps.googleapis.com/maps/api/js?v=3.47&callback=initMap"></script> '    +
    '<script type="text/javascript"> ' +
    '' +
    '';

  HTMLStr: AnsiString =
    '  function initialize() { ' +

    '    var latlng = new google.maps.LatLng(34.000,-84.0000); ' +
    '    var myOptions = { ' +
    '      zoom: 15, ' +
    '      center: latlng, ' +
    '      mapTypeId: google.maps.MapTypeId.ROADMAP ' +
    '                    }; ' +
    '    map = new google.maps.Map(document.getElementById("map_canvas"), myOptions);  '  +
    ' '  +
    '  } ' +

    '</script> ' +
    '</head> ' +
    '<body onload="initialize()"> ' +
    '  <style>        ' +

    '#map_canvas {               ' +
    '        height: 100%;   ' +
    '      }                  ' +
    '      #map_canvas {         ' +
    '        margin-right: 40px;  } ' +
    '    </style>                ' +
    '  <div id="map_canvas"></div> ' +
    '</body> ' +
    '</html> ';

procedure TfrmStreetMap.Button1Click(Sender: TObject);
var
  ModHTMLStr: AnsiString;
begin
    ModHTMLStr := HTMLStrHeader+ HTMLStr;
    edgebrowser1.ExecuteScript(HTMLStrHeader+ HTMLStr);
end;

procedure TfrmStreetMap.CreateMap(Sender: TObject);
var
  aStream: TMemoryStream;
  ModHTMLStr: AnsiString;
begin
  try
    ModHTMLStr := HTMLStrHeader+ HTMLStr;
    WebBrowser1.Navigate('about:blank');
    if Assigned(WebBrowser1.Document) then
    begin
      aStream := TMemoryStream.Create;
      try
        aStream.WriteBuffer(Pointer(ModHTMLStr)^, Length(ModHTMLStr));
        aStream.Seek(0, soFromBeginning);
        (WebBrowser1.Document as IPersistStreamInit).Load(TStreamAdapter.Create(aStream));
      finally
        aStream.Free;
      end;
      HTMLWindow2 := (WebBrowser1.Document as IHTMLDocument2).parentWindow;
    end;

  except
    on E: Exception do
    begin

    end;
  end;
end;

procedure TfrmStreetMap.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Action := caFree;
end;

procedure TfrmStreetMap.FormCreate(Sender: TObject);
begin
  CreateMap(Sender);
end;

end.

The Form code is below:

object frmStreetMap: TfrmStreetMap
  Left = 0
  Top = 0
  BorderStyle = bsSingle
  Caption = 'StreetMap'
  ClientHeight = 532
  ClientWidth = 1035
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  Position = poDesigned
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object WebBrowser1: TWebBrowser
    Left = -8
    Top = 4
    Width = 593
    Height = 461
    TabOrder = 0
    ControlData = {
      4C0000004A3D0000A52F00000000000000000000000000000000000000000000
      000000004C000000000000000000000001000000E0D057007335CF11AE690800
      2B2E126208000000000000004C0000000114020000000000C000000000000046
      8000000000000000000000000000000000000000000000000000000000000000
      00000000000000000100000000000000000000000000000000000000}
  end
  object EdgeBrowser1: TEdgeBrowser
    Left = 591
    Top = 8
    Width = 426
    Height = 457
    TabOrder = 4
  end
  object Button1: TButton
    Left = 792
    Top = 496
    Width = 145
    Height = 25
    Caption = 'Load into Edge'
    TabOrder = 5
    OnClick = Button1Click
  end
end

如果你对这篇内容有疑问，欢迎到本站社区发帖提问 参与讨论，获取更多帮助，或者扫码二维码加入 Web 技术交流群。

扫码二维码加入Web技术交流群

发布评论

需要 登录 才能够评论， 你可以免费 注册 一个本站的账号。
列表为空，暂无数据

关于作者

小姐丶请自重

暂无简介

文章
评论
25 人气
发私信

相关话题

更多

热门标签

操作系统 程序设计 IT运维 Linux系统管理 JavaScript 服务器应用 solaris C/C++ PHP Shell BSD Vue.js aix Oracle Python HTML 系统管理 HTML5 CSS 前端
更多

推荐作者

饮湿

文章 0 评论 0

明月

文章 0 评论 0

02

文章 0 评论 0

hs1283

文章 0 评论 0

风向决定发型

文章 0 评论 0

落花浅忆

文章 0 评论 0

更多

友情链接

文江博客
    我们使用 Cookies 和其他技术来定制您的体验包括您的登录状态等。通过阅读我们的 隐私政策 了解更多相关信息。 单击 接受 或继续使用网站，即表示您同意使用 Cookies 和您的相关数据。
    原文