过去，这是有关为gmlib组件设置Google Maps Api Key的问题。提供的解决方案是更改'map.html'头元素，然后重新编译资源（rc.cmd）并重新编译组件。这是一个非常静态的解决方案，有时在运行时动态设置api密钥会更方便，例如，当某人想为不同的项目使用不同的密钥时（api密钥可以存储在项目的ini / property文件中）。我认为最好的方法是GMMap组件的属性和构造函数的新参数。我在google maps javascript api中搜索了一些功能，例如更改/设置api键，但没有找到任何功能。看来api键必须“硬编码”到html文件的head标签中，并且没有JavaScript函数可以对其进行更改。
任何想法如何在运行时设置api密钥？
例如，我发现此链接更改了文档本身：是否可以通过JavaScript动态更改/设置Google Maps API密钥？
如何在gmlib中利用它？
提前致谢。
确实，此解决方案对于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;
此更改未经测试，但这是这个主意:-)
我将其放入本周的待办事项列表中；-)
问候
本文收集自互联网，转载请注明来源。
如有侵权，请联系[email protected] 删除。
我来说两句