Delphi Tokyo 10.2中TWebBrowser调用OpenStreetMap定位被拒求助

嘿，我之前在Delphi Tokyo 10.2里折腾TWebBrowser定位权限的时候，碰到过和你一模一样的问题！给你几个亲测有效的解决方案，一步步来：

先捋清楚根源：TWebBrowser底层用的是Windows自带的IE（或兼容模式Edge）引擎，它的权限策略和独立Chrome/Edge完全不一样，默认不会主动弹出定位权限请求框，要么直接默认拒绝，要么需要咱们手动配置触发。

方法1：先把系统和IE的基础权限拉满 #

这是最基础的前置步骤，先确保这俩地方没卡壳：

• 打开Windows设置 → 隐私和安全性 → 位置，先开启「允许应用访问你的位置」，然后往下翻找到你的Delphi应用，确保它的位置权限是开启状态。
• 打开IE浏览器（对，就是那个老古董）→ 工具 → Internet选项 → 隐私 → 找到「位置」选项，勾选「允许网站请求你的位置信息」，别选「从不允许」。这是全局设置，测试的时候先用这个快速验证。

方法2：代码自动修改注册表，给应用开特殊权限 #

如果不想让用户手动改IE设置，咱们可以在应用启动时自动修改注册表，把当前应用加到IE的信任站点列表，同时给这个站点开定位权限。直接上代码：

uses
  Registry, SysUtils;

procedure SetupGeoPermissionsForWebBrowser;
var
  Reg: TRegistry;
  AppExeName: string;
begin
  Reg := TRegistry.Create;
  try
    Reg.RootKey := HKEY_CURRENT_USER;
    // 把应用加入IE本地Intranet信任区域
    if Reg.OpenKey('Software\Microsoft\Windows\CurrentVersion\Internet Settings\ZoneMap\Domains\localhost', True) then
    begin
      AppExeName := ExtractFileName(ParamStr(0));
      Reg.WriteString(AppExeName, '2'); // 2代表本地Intranet，信任级别高
      Reg.CloseKey;
    end;

    // 设置该信任站点的定位权限为允许请求
    if Reg.OpenKey('Software\Microsoft\Internet Explorer\Geolocation\Policy', True) then
    begin
      Reg.WriteInteger('localhost', 1); // 1=允许弹出请求框，0=直接拒绝，2=自动允许
      Reg.CloseKey;
    end;
  finally
    Reg.Free;
  end;
end;

在Form的OnCreate事件里调用这个方法就行，重启应用后，TWebBrowser加载OpenStreetMap时应该就能弹出权限请求框了。

方法3：用COM接口自定义权限请求逻辑 #

要是注册表方法不够灵活，比如想自己做个弹窗问用户要不要允许定位，那可以用COM接口直接和WebBrowser交互。示例代码如下：

uses
  SHDocVw, MSHTML, ActiveX;

type
  TCustomPermissionHandler = class(TInterfacedObject, IDispatch)
  public
    function Invoke(DispID: Integer; const IID: TGUID; LocaleID: Integer;
      Flags: Word; var Params; VarResult, ExcepInfo, ArgErr: Pointer): HResult; stdcall;
  end;

function TCustomPermissionHandler.Invoke(DispID: Integer; const IID: TGUID;
  LocaleID: Integer; Flags: Word; var Params; VarResult, ExcepInfo, ArgErr: Pointer): HResult;
begin
  Result := S_OK;
  // 捕捉定位权限请求的事件（DispID需要根据MSHTML文档调整，这里是示例值）
  if DispID = 1 then
  begin
    // 这里可以弹出自己的对话框，比如ShowMessage('是否允许定位？')
    // 示例：直接允许权限，返回1；拒绝就返回0
    PInteger(VarResult)^ := 1;
  end;
end;

// 在WebBrowser的OnNavigateComplete2事件里注册处理器
procedure TForm1.WebBrowser1NavigateComplete2(Sender: TObject;
  const pDisp: IDispatch; var URL: OleVariant);
var
  WebBrowser: IWebBrowser2;
  HtmlDoc: IHTMLDocument2;
  PermHandler: IDispatch;
begin
  WebBrowser := pDisp as IWebBrowser2;
  HtmlDoc := WebBrowser.Document as IHTMLDocument2;
  PermHandler := TCustomPermissionHandler.Create;
  // 给文档绑定自定义权限处理器
  (HtmlDoc as IHTMLDocument3).SetProperty('permissionHandler', PermHandler);
end;

这个方法能完全掌控权限请求的逻辑，适合需要自定义交互的场景。

方法4：换用WebView2组件（强烈推荐） #

如果你的项目允许升级组件，真心建议换掉老掉牙的TWebBrowser，改用Microsoft Edge WebView2。它基于Chromium引擎，和Chrome的行为完全一致，会自动弹出定位权限请求框，而且性能、兼容性都甩TWebBrowser几条街。Delphi Tokyo 10.2可以通过安装第三方组件或者手动集成WebView2 SDK来实现，一步解决所有老WebBrowser的坑。

最后提个小细节：如果是32位应用跑在64位系统上，注册表路径要改成HKEY_CURRENT_USER\Software\Wow6432Node\...，不然修改不会生效。测试记得重启应用哦！

内容的提问来源于stack exchange，提问作者lluca