Google Maps über COM (Component Object Model)

[Peter.Stadler]

Hallo Thom,
Was ist eigentlich der Unterschied zwischen 2.0 und 2.1?
Wann darf man mit Version 3.0 rechnen, was wird es alles können? Wird es auch mit dem neuen GoogleMaps funktionieren?

Viele Fragen auf einmal!

mfg Peter

[Thom]

Hallo Peter,

die 2.1 enthält einige Erweiterungen bezüglich der Version 2.0 (so zum Beispiel die Drawing Library). Ich hatte sie bisher als kleines Dankeschön an jene per Email verschickt, die für das Projekt gespendet haben und natürlich an kommerzielle Nutzer.

Die Version 3.0 ist eine starke Überarbeitung der Version 2.x, bei der vor allem Wert auf eine bessere Speicherbenutzung gelegt wird. Das äußert sich nach außen hin in der Umstellung der Objekte auf Interfaces. Geplant ist, alle Objekte und Funktionen des Google Maps APIs zu unterstützen.
Diese Version sollte eigentlich schon vor einigen Monaten fertig sein. Auf Grund der vielen Arbeitsstunden, die ich bisher in das Projekt investiert habe, mußte ich die Arbeit am Framework immer wieder wegen Projekten unterbrechen, die das notwendige Geld dafür einbringen...
Ich bemühe mich aber, die Sache so schnell wie möglich in einen nutzbaren Zustand zu bringen, auch wenn ich noch kein konkretes Datum nennen kann. Erste Tests mit den verschiedenen Delphiversionen (einschließlich XE4) verliefen bisher ganz zufriedenstellend.

Das "neue" Google Maps habe ich mir bisher aus Zeitgründen noch nicht genauer angeschaut. Die Frage ist hierbei, ob es dafür auch ein API geben wird, wie die Lizenzbedingungen aussehen werden (also ob die Nutzung in Desktopanwendungen erlaubt sein wird) und welche Browser unterstützt werden. Deshalb kann ich dazu leider noch nichts konkretes sagen. Schön wäre es aber natürlich.

Viele Grüße
Thomas

[Peter.Stadler]

Hallo Thom,

Hier gibt es Info über das neue GoogleMaps.
http://googlegeodevelopers.blogspot....i-for-all.html

Wenn ich es richtig verstanden habe, benutzt es das API 3.0. Das einzige, was man ändern muss, ist:

The new look is available for opt-in today, and is a simple one line code change: google.maps.visualRefresh=true;.


Das müsste doch leicht zu realisieren sein? Wo müsste man das im Framework 2.1 einbauen?

mfg Peter

[Thom]

Das ist aber nur der neue Stil der Steuerelemente - hat nichts mit den neuen vektorbasierenden Karten zu tun.
Ich werd's gleich mal ausprobieren und melde mich dann wieder...

Da bin ich wieder...

Delphi-Quellcode:

  Google.Maps.Properties['visualRefresh']:=true;
  [...]

irgendwo bei der Initialisierung der Karte unterbringen - fertig. Und dann über den "fresh new look" freuen...

[Peter.Stadler]

Hallo Thom,

I habe die Zeile eingefügt, aber es bleibt beim alten GoogleMaps, es gibt keinen stufenlosen Zoom und ich bilde mir ein, dass auch die Map tiles die alten sind.

mfg Peter

[Thom]

Hallo Peter,

da hast Du vollkommen Recht. Hier geht es allerdings um zwei völlig verschiedene Dinge: Mit diesem Flag kann man lediglich das Aussehen der Steuerelemente etwas "moderner" gestalten. Die Schatten werden zum Beispiel etwas dezenter dargestellt. Siehe Google. Das hat jedoch absolut nichts mit den neuen Karten von Google zu tun. Da kann man nur abwarten, ob diese auch per API ansteuerbar sind oder ob es sich lediglich um eine geschlossene Darstellungsweise wie unter http://maps.google.de handelt.

Beim Zoom hast Du mich allerdings auf einen Fehler im Framework aufmerksam gemacht: Das sanfte Zoomen sollte ab dem IE8 mit entsprechendem Registryeintrag funktionieren. Da muß ich bei Gelegenheit mal nachschauen, wo es klemmt...

Viele Grüße
Thomas

[mischo22]

Ich habe mal eine kurze Frage:
Wie kann ich mehrere Maps in einer Anwendung verwenden.

Im Moment habe ich das so probiert:

Code:

type
  TForm1 = class(TForm)
    ...
    WebBrowser1: TWebBrowser;
    WebBrowser2: TWebBrowser;
    ...
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
    MapScript1: TScript;
    MapScript2: TScript;
    procedure InitMap(Sender: TObject);
end;


procedure TForm1.FormShow(Sender: TObject);
begin
    // Einmalig die Maps initialisieren
    if MapScript1=nil then
        TScript.Create(WebBrowser1).LoadAPIAsync(InitMap);

    if MapScript2=nil then
        TScript.Create(WebBrowser2).LoadAPIAsync(InitMap);
end;



procedure TForm1.InitMap(Sender: TObject);
var
   MapOptions: TMapOptions;
   MarkerOptions: TMarkerOptions;
begin
    with TScript(Sender) do
    begin
        MapOptions:=TMapOptions.Create;
        with MapOptions do
        begin
            DisableDefaultUI:=true;         //alle Kontrollelemente ausschalten
            DisableDoubleClickZoom:=true;   //kein Zoom per Doppelklick
            Draggable:=false;               //Karte nicht verschiebbar
            ScrollWheel:=false;             //kein Zoom über Mausrad
            KeyboardShortcuts:=false;       //keine Tastenkürzel
            MapTypeID:=Google.Maps.MapTypeId.Roadmap; //Kartentyp (roadmap oder satellite)

            Zoom:=1;                        //Zoom
            Center:=Google.Maps.LatLng(0,0); //Kartenzentrum
        end;
        New(Google.Maps.Map(MapOptions));

        // Marker Zeichnen
        MarkerOptions:=TMarkerOptions.Create;
        MarkerOptions.Map:=Google.Maps.Map(MapOptions);
        MarkerOptions.Position:=Google.Maps.LatLng(53,8);
        MarkerOptions.Title:='Letzte Position';
        New(Google.Maps.Marker(MarkerOptions));
    end;
end;

Wenn ich aber später die Parameter ändern möchte, schmiert das Programm mit einer Schutzverletzung ab:

Code:

MapScript1.Maps[0].Zoom:=17;
MapScript1.Maps[0].Center:=MapScript_T1.Google.Maps.LatLng(50,10); //Kartenzentrum
MapScript1.Maps[0].MapTypeID:=MapScript_T1.Google.Maps.MapTypeId.SATELLITE;

Was mache ich falsch?