Google Maps über COM (Component Object Model)

[Thom]

Dear Jonny,

Thank you very much! No problem. If you understand my bad english...

A unit for the visualization library is planned in version 3.0 of the framework. But I'm doing a non-public version 2.2 and have this unit adapted in accordance to your question to the old engine. This version will contain four demos to use the visualization library (including one with the heatmap layer). If you are a commercial user or a donor, you will receive version 2.2 in the next few days.

Many greetings
Thomas

Delphi-Quellcode:

  if Script(WebBrowser1)=nil then
    with TScript.Create(WebBrowser1) do
      LoadAPIAsync(InitMap,[libVisualization]);

Delphi-Quellcode:

  TaxiData:=TLatLngMVCArray.Create;
  with TaxiData do
  begin
    Push(New(Google.Maps.LatLng(37.782551,-122.445368)));
    Push(New(Google.Maps.LatLng(37.782745,-122.444586)));
    Push(New(Google.Maps.LatLng(37.782842,-122.443688)));
    [...]
  end;
  HeatmapLayerOptions:=New(Google.Maps.Visualization.HeatmapLayerOptions);
  HeatmapLayerOptions.Data:=TaxiData;
  HeatmapLayer:=New(Google.Maps.Visualization.HeatmapLayer(HeatmapLayerOptions));
  HeatmapLayer.SetMap(Map);