Google Maps über COM (Component Object Model)

[Sebastian78]

Hallo Thomas,

danke für die schnelle Antwort

Delphi-Quellcode:

procedure TFormAdressen.InitMap(Sender: TObject);
var
  LatLng: TLatLng;
  MapOptions: TMapOptions;
begin
  with TScript(Sender) do
  begin
    Geocoder := New(Google.Maps.Geocoder);                //<----------- Hier
    LatLng := New(Google.Maps.LatLng(-34.397, 150.644));
    MapOptions := TMapOptions.Create;
    with MapOptions do
    begin
      Zoom := 15;
      Center := LatLng;
      MapTypeID := Google.Maps.MapTypeID.Roadmap;
    end;
    Map := New(Google.Maps.Map(MapOptions));
  end;
end;

Viele Grüße

Sebastian