Question

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

知道如何在运行时设置api密钥吗？

例如，我发现此链接会更改文档本身： Can I change/set the Google Maps API Key dynamically from JavaScript?

如何在gmlib中使用它？

提前致谢。

Answer 1

实际上，这个解决方案对于GMLib来说不是必需的，因为当你（他的组件）从资源文件加载HTML映射时，你可以在将它加载到TWebBrowser之前通过代码更改这一行（你可以添加密钥）。 / p>

您需要在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;

此更改未经过测试，但这是个主意： - ）

我把它放入本周的TODO列表中; - ）

此致

动态设置GMLib组件的Google Maps Api Key

1 个答案: