GMLib组件Google键的动态设置

Question

在过去，这是一个关于为gmlib组件设置Google键的问题。提供的解决方案是更改“map.html”head元素，然后重新编译资源(rc.cmd)并重新编译组件。这是一个非常静态的解决方案，有时在运行时动态设置api密钥会更方便，例如，当有人想要为不同的项目使用不同的密钥时(可以将api密钥存储在项目的一些ini/property文件中)。我认为最好的方法是为GMMap组件提供一个属性，为构造函数提供一个新的参数。我在google中搜索了一些功能，比如更改/设置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之前通过代码更改该行(您可以添加键)。

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

这个更改没有经过测试，但是这个想法是:-)

我把它写进了这周的待办事项清单;-)

问候