动态设置GMLib的Google Maps Api Key

Question

过去，这是有关为gmlib组件设置Google Maps Api Key的问题。 提供的解决方案是更改'map.html'头元素，然后重新编译资源（rc.cmd）并重新编译组件。 这是一个非常静态的解决方案，有时在运行时动态设置api密钥会更方便，例如，当某人想为不同的项目使用不同的密钥时（api密钥可以存储在项目的ini / property文件中）。 我认为最好的方法是GMMap组件的属性和构造函数的新参数。 我在google maps javascript api中搜索了一些功能，例如更改/设置api键，但没有找到任何功能。 看来api键必须“硬编码”到html文件的head标签中，并且没有JavaScript函数可以对其进行更改。 （如果存在某些javascript函数，则ExecuteScript会调用它。）

任何想法如何在运行时设置api密钥？

例如，我发现此链接可以更改文档本身：是否可以通过JavaScript动态更改/设置Google Maps API密钥？

如何在gmlib中利用它？

提前致谢。

Answer 1

确实，此解决方案对于GMLib来说不是必需的，因为当您（他的组件）从资源文件加载HTML映射时，可以在加载到TWebBrowser之前通过代码更改此行（可以添加键）。

您需要在TGMMap中添加键属性，并在GetBaseHTMLCode方法中考虑此属性。

为了轻松更改此键，您可以从HTML代码更改此行

<script type="text/javascript" src="https://maps.google.com/maps/api/js?sensor=false&libraries=weather,panoramio,geometry,drawing"></script>

被这个

<script type="text/javascript" src="https://maps.google.com/maps/api/js?%ssensor=false&libraries=weather,panoramio,geometry,drawing"></script>

并为此更改GetBaseHTMLCode方法

function TCustomGMMap.GetBaseHTMLCode: string;
var
  List: TStringList;
  Stream: TResourceStream;
begin
  Result := '';

  List := TStringList.Create;
  try
    try
      Stream := TResourceStream.Create(HInstance, RES_MAPA_CODE, RT_RCDATA);
      List.LoadFromStream(Stream);
      Result := List.Text;
      Result := Format(Result, [KeyProerty]); // <== add this line
    finally
      if Assigned(Stream) then FreeAndNil(Stream);
      if Assigned(List) then FreeAndNil(List);
    end;
  except
    raise Exception.Create(GetTranslateText('No se ha podido cargar el recurso', Language));
  end;
end;

此更改尚未测试，但这是想法:-)

我将其放入本周的待办事项列表中；-)

问候