Google Maps über COM (Component Object Model)

[capo]

Danke Tom,

10.000 habe ich leider nicht.
Ich brauche die Autofahrer-Variante.

Evtl. darf ich ja die OpenStreetMap dazu verwenden.
http://www.openstreetmap.org/

LG

[Thom]

Ja, das sollte möglich sein. Schau mal zum Beispiel hier und hier.

[capo]

Hey Danke. Ich schau mir das mal an.

[StefanM]

Super Sache !
Hätte ich dein Werk einen Monat früher gefunden, hätte ich mir einiges an Arbeit erspart ;-(
Hab gleich ein wenig gespendet, so eine Leistung gehört honoriert.
Versuche gerade mein (Mach)Werk zu ersezten, und stoße da an meine Grenzen...

Hab ein paar Funktionen in eine eigene Komponete X ausgelagert um meine alter Version 1:1 zu ersetzen. Diese Komponente behinhaltet einen TWebBrowser ,eine DBGrid udn noch ein paar andere Komponenten.

In der Applikation rufe ich im Onshow

Delphi-Quellcode:

newMap:=TX.create(Frame1);
newMap.parent:=Frame1;
newMap.show();

so definiert:

Delphi-Quellcode:

procedure TX.Show();
begin
  if Script=nil then
    with TScript.Create(WebBrowser) do
      LoadAPIAsync(InitMap);
end;

dann
newMap.initMap(); so definiert:

Delphi-Quellcode:

procedure TX.InitMap();
Var ActualPos:TLatlng;
begin
  with TScript(Script) do
  begin
     ActualPos:=New(Google.Maps.LatLng(48,5,16.36974));
....

und fliege mit einer Execption da script=nil ist !
Wenn ich "with TScript(Sender) do" wie in einigen Beispielen verwende, wer/was ist dann der sender??
Und kann mir wer die Sysntax in TX.show gerklären ?

Sorry ich steh ein wenig auf dem Schlauch, meine Delphi5(!) Wissen ist ein wenig eingerostet...

[Thom]

Hallo Stefan,

vielen Dank für das Lob und die Spende! Ich werde so schnell wie möglich die Bonus-Units an Dich abschicken.

Delphi-Quellcode:

function Script(Browser: TOleControl = nil): TScript;
//...

ist eine Funktion aus der Unit gmAPI, die das aktuelle Script-Objekt liefert (falls der Aufruf ohne Parameter erfolgt - das reicht aus, wenn nur eine TWebBrowser-Komponente verwendet wird) oder das zu einem bestimmten IE-ActiveX gehörende Script-Objekt.
Dadurch braucht dieses Objekt nicht lokal gespeichert zu werden.
Wird jetzt

Delphi-Quellcode:

if Script=nil then [...];
if assigned(Script(WebBrowser1)) then [...];
//oder 
Script.xxx;

verwendet, darf keine lokale Variable mit diesem Namen existieren oder es muß der Unitname angegeben werden:

Delphi-Quellcode:

if gmAPI.Script=nil then [...];
if assigned(gmAPI.Script(WebBrowser1)) then [...];
//oder 
gmAPI.Script.xxx;

Die Methode InitMap (kann auch beliebig anders heißen) ist - zumindest bis Delphi 2007 - ein reguläres TNotifyEvent mit folgendem Aufbau:

Delphi-Quellcode:

procedure TForm1.InitMap(Sender: TObject);
begin
  with TScript(Sender) do
  begin
    Google.Maps.xxx; //-> Zugriff auf das Script-Objekt
  end;
  [...]
  TScript(Sender).Google.Maps.xxx; //-> Zugriff ohne with-Statement
end;

Die Funktionsweise kann man sich so vorstellen:
Um Zugriff zur JavaScript-Engine des Browsers zu erhalten, muß ein TScript-Objekt angelegt werden. Das geschieht unter Angabe der Browser-Komponente:

Delphi-Quellcode:

TScript.Create(WebBrowser1);
//...

Über dieses Script-Objekt erfolgen dann alle weiteren Zugriffe auf das Google Maps API. Das muß aber erst noch geladen werden:
Wird eine der Funktionen LoadAPI(InitMap) oder LoadAPIAsync(InitMap) des Script-Objektes aufgerufen, lädt das Framework das JavaScript-API unter Verwendung der gewünschten Parameter von den Google-Servern. Wurde das API von der Browser-Komponente vollständig geladen, wird vom Framework die angegebene Methode InitMap aufgerufen und als Parameter Sender das Script-Objekt übergeben, damit die Karte erstellt werden kann. Das entspricht zum Beispiel dem Verhalten eines Buttons, wenn durch Doppelklick oder im Objekt-Inspektor eine OnClick-Methode angelegt wurde und der Button zu Laufzeit betätigt wird.

[sterna48]

hi,
(sorry in English) where do I find TMapOptions for Delphi?

br sterna

[Thom]

Hi sterna,

no problem.
See Unit gmMap in folder GoogleMaps\Source\API.

[Thom]

Die Version 2.1 des Frameworks steht ab sofort für registrierte Nutzer (Spender, Lizenz) bereit. Sie enthält alle Änderungen in den Versionen 3.6 und 3.7 des API's.

• Neu: Property Keyword in TPlaceSearchRequest
• Neu: Property Website in TPlaceResult
• Neu: Property InternationalPhoneNumber in TPlaceResult
• Neu: Property Resolution in TElevationResult
• Neu: Property Editable in TCircleOptions
• Neu: Property Editable in TRectangleOptions
• Neu: Property Editable in TPolygonOptions
• Neu: Property Editable in TPolylineOptions
• Neu: TShape mit Property Editable als Basisobjekt für TCircle, TRectangle, TPolygon und TPolyline
• Neu: DrawingManager-Bibliothek in der Unit gmLibrariesDrawing; ab Delphi 2009 nutzbar mit anonymen Methoden
• Neu: TDrawingManager mit sechs Events
• Neu: TDrawingManagerOptions
• Neu: TDrawingControlOptions
• Neu: TOverlayType
• Neu: eine Demo zu editierbaren Shapes
• Neu: zwei Demos zur Verwendung des DrawingManagers
• Erweitert: Demo PlaceDetails
• Erweitert: Demo ElevationSimple

Demo (32 Bit):

[StefanM]

Verwende eine TEmbeddedWB in Verbindung mit dem GoogleMapsFramework und möchte die Druckfunktionalität des TEmbeddedWB verwenden.
Meine Map füllt aber den gesamten TEmbeddedWB aus und daher "schnappt" sich das Framework den Rechtsclick...

Wie konfiguriert man das richtig bzw. hatt wer auc schon mal diese Problem ? Ideen/Vorschläge?

[Thom]

Nö - das Framework unterdrückt keinerlei Klicks. Ganz im Gegenteil: Zu jedem Objekt, das Ereignisse unterstützt, werden unzählige Onxxx Handler bereitgestellt - so auch TMap.OnRightClick. Und diese Handler sind ab Delphi 2009 sogar mit anonymen Methoden nutzbar.
Zu den Ereignishandlern gibt es eine ganze Reihe von Demos - sowohl in der Version 1.x als auch in 2.x.