Google Maps über COM (Component Object Model)

[DelphiFan2008]

Hallo,

mit dem Package von Thom funktionieren nun alle Demos wieder . Damit ist der Einsatz unter Delphi XE Starter ebenfalls sicher gestellt. Der obige Beitrag war spontan aus Frust entstanden!

@Thom,

wäre gut wenn du das TWebBrowser Package hier im Forum bereitstellen würdest.

Gruß DelphiFan2008

[Thom]

Für alle Besitzer der Delphi Starter Edition:
Die fehlende TWebBrowser-Komponente kann hier "nachgerüstet" werden. Zip-Datei downloaden, entpacken und das enthaltene Package installieren. Vorher evtl. noch das Ausgabeverzeichnis für die dcu-Dateien anpassen oder in den Bibliothekspfad aufnehmen.
Das Package wurde von mir selbst erstellt und ist keine Kopie des Originals, das Delphi XE beiliegt.

[DeddyH]

Achso, an den TWebBrowser hatte ich gar nicht gedacht, das erklärt natürlich alles.

[edit] So, ich hatte kurz Zeit für einen ersten Blick und ich kann nur sagen: , Hut ab [/edit]

[Thom]

Vielen Dank, DeddyH!

Ich habe soeben das Framework in der Version 1.1 und die Demos 1-13 zum Download bereitgestellt.

Vielen Dank an alle, die bisher beim Testen und der Weiterentwicklung geholfen haben!

Die Beispiele 11-13 werden im aktuellen Toolbox-Magazin 2/2011 beschrieben.

Hier wird es demnächst mit einer Karte vom Mars und der Einbindung von Karten des Open Street Map Projektes (OSM) weitergehen.

[MapMan]

Hallo Thom,

ich bin heute beim googeln zufällig auf deine Arbeit gestoßen.
Respekt für diese tolle Leistung...und das in 2 Monaten...
Und auch für die Offenlegung der Sources...

Soweit ich das beim ersten betrachten verstehe, ist der grundsätzliche Ansatz das Laden des Google-JS-Frameworks zu Beginn und der anschließende
Zugriff auf die Funktionalität per Wrapper-Objekten.

Ich nutze in einigen meiner Delphi-Geo-Apps das OpenLayers-Framework, allerdings konventionell (Delphi <-> JS Interkommunikation).

Das OL-Framework ist gegenüber Google frei nutzbar da OpenSource, z.B. in Verbindung mit OSM-Karten und ermöglicht die Integration fast aller
Kartenquellen (auch Google).

Dein innovativer Ansatz angewandt beim OL-Framework..das wär's....

Aber klar, man kann nicht auf allen Baustellen aktiv sein...

[MapMan]

Hallo Thom,

das macht richtig Laune, sich durch deine Sources zu lesen. Einfach toll sauber strukturiert...
Ich versuche nachzuvollziehen, wie du über das TWebBrowser-COM-Interface Zugriff auf den JS-Stuff realisierst und hangele mich durch deine Units.

Könntest du vielleicht bei Gelegenheit ein paar Infos zu den Interna deiner Units veröffentlichen ?
(Übertragbarkeit auf anderen JS-Stuff)

Ich hab da immer noch das Thema OpenLayers-Framework im Sinn...

[MapMan]

Hallo Thom,

soweit ich deine Methodik bis jetzt verstehe (ich habe leider keine großen COM-Kentnisse), läuft es grundsätzlich darauf hinaus, über die Klartextbezeichnungen der Javascript-Funktionen an COM-Interfaces zu gelangen, über welche diese dann angesprochen werden können.
Also werden beim Laden von Javascript-Libraries im WebBrowser "temporäre" Interfaces angelegt ?

Ich kenne den Umgang mit COM-Objekten nur über das direkte Erzeugen von Typbibliotheken per Import.
Dann habe ich eine Delphi-Unit zum Ansprechen dieser Objekte.

Aber so "statisch" geht es wohl hier nicht...

Ich hab mir das mal am Beispiel Circle angesehen.
Entscheidend ist hier wohl die Stringkonstante MapsMethod_Circle='Circle'(Google Bezeichnung für die JS-Function) um zum Interface zu gelangen.
Und TScript ist das zentrale Objekt, welches alle Sub-Containerobjekte enthält, also auch alle "Circles"

Hab ich das so in etwa richtig verstanden ?

Hier hab ich mir mal die Aufrufkette ausgehend vom Circle-Button-Klick aus Demo 6 angeschaut.
Noch nicht ganz klar ist mir, wo und wie es letztendlich zum Zeichnen des Circles kommt.

Delphi-Quellcode:

Unit1
-----
procedure TForm1.Button1Click(Sender: TObject);
var
  Bounds: TLatLngBounds;
  CircleOptions: TCircleOptions;
  Lat, Lng: Double;
begin
  if not assigned(Script) or not assigned(Script.Maps[0])
    then Exit;
  with Script do
  begin
    Bounds:=Maps[0].Bounds;                                //angezeigter Kartenbereich ermitteln
    Lat:=Bounds.GetSouthWest.Lat+Random*                   //zufällige Position innerhalb des
        (Bounds.GetNorthEast.Lat-Bounds.GetSouthWest.Lat); //angezeigter Kartenbereichs berechnen
    Lng:=Bounds.GetSouthWest.Lng+Random*                   //-"-
        (Bounds.GetNorthEast.Lng-Bounds.GetSouthWest.Lng);
    CircleOptions:=TCircleOptions.Create;                  //Zirkeloptions-Objekt erstellen
    CircleOptions.Center:=Google.Maps.LatLng(Lat,Lng);     //Zirkelmittelpunkt
    CircleOptions.Clickable:=false;                        //nicht anklickbar
    CircleOptions.FillColor:=clNone;                       //Füllfarbe
    CircleOptions.FillOpacity:=0;                          //Deckkraft der Füllung (0 -> vollkommen transparent)
    CircleOptions.Map:=Maps[0];                            //Kartenobjekt zuweisen
    CircleOptions.Radius:=round((20+Random(80))/100*       //Zirkelradius in Metern
                                1/8*                       //1/8 der Kartendiagonale
                                Distance_km(Bounds.GetNorthEast,Bounds.GetSouthWest)*
                                1000);                     //km -> m
    CircleOptions.StrokeColor:=RGBToColor(Random(255),     //zufällige Linienfarbe
                               Random(255),Random(255));
    CircleOptions.StrokeOpacity:=0.5;                      //Deckraft der Linie
    CircleOptions.StrokeWeight:=5;                         //Linienbreite in Pixeln
    CircleOptions.ZIndex:=0;                               //vertikale Position
    Script.Google.Maps.Circle(CircleOptions);              //Zirkel-Objekt erstellen
  end;
end;

gmAPI
-----
function TMaps.Circle(Opts: TCircleOptions): TCircle;
begin
  if not assigned(Opts)
    then raise Exception.Create(NoOpts);
  Result:=CreateCircleWrapper(Script,BrowserTools.Create(Disp,MapsMethod_Circle,Opts.Disp));
  TScript(Script).Circles.Add(Result);
end;

gmOverlays
----------
function CreateCircleWrapper(Script: TCustomScript; Dispatch: IDispatch): TCircle;
begin
  Result:=TCircle.Create(Script,Dispatch);
end;

TCircle = class(TMVCEventObject)

gmMVC
-----
TMVCEventObject = class(TMVCObject)                      //Zwischenobjekt, gibt es nicht im GoogleMaps API

TMVCObject = class(TJScriptObject)


JScriptObjects
--------------
TJScriptObject = class(TScriptObject)

TScriptObject = class(TDispObject)
private
  FScript: TCustomScript;
protected
  constructor Create(Script: TCustomScript; Dispatch: IDispatch); reintroduce; virtual;
  procedure FreeNotify(Sender: TObject); override;
  function GetPropAsObject(const Name: String; PropClass: TDispObjectClass; var PropObject): TDispObject; override;
  property Script: TCustomScript read FScript;
public
end;

TDispObject
-----------
  TDispObject = class(TNotifyObject)
  private
    FDisp: IDispatch;
    function GetDispEx: IDispatchEx;
  protected
    constructor Create(Dispatch: IDispatch); virtual;
    procedure AddProp(const Name: String; Value: TDispObject); overload;
    procedure SetDisp(Value: IDispatch); virtual;
    procedure SetProp(const Name: String; const Value: OleVariant; CreateIfNotExists: Boolean = false); overload;
    procedure SetProp(const Name: String; DispObject: TDispObject; CreateIfNotExists: Boolean = false); overload;
    procedure SetProp(DispID: Integer; const Value: OleVariant); overload;
    function Exec(const Name: String): OleVariant; overload;
    function Exec(const Name: String; DispObject: TDispObject): OleVariant; overload;
    //function Exec(const Name: String; const Param: OleVariant): OleVariant; overload;
    function Exec(const Name: String; const Params: array of OleVariant): OleVariant; overload;
    function AddProp(const Name: String): Boolean; overload;
    function DelProp(const Name: String): Boolean;
    function GetProp(const Name: String; const Param: String = ''): OleVariant;
    function GetPropAsVariant(const Name: String): OleVariant;
    function GetPropAsDispatch(const Name: String): IDispatch;
    function GetPropAsObject(const Name: String; PropClass: TDispObjectClass; var PropObject): TDispObject; virtual;
    function GetPropAsBoolean(const Name: String; Default: Boolean = false): Boolean;
    function GetPropAsInteger(const Name: String; Default: Integer = 0): Integer;
    function GetPropAsString(const Name: String; const Default: String = ''): String;
    function GetPropAsDouble(const Name: String; Default: Double = 0): Double;
  public
    destructor Destroy; override;
    class function IsObjectFromDisp(Disp: IDispatch): Boolean; virtual;
    function AsVariant: Variant;
    function PropertyExists(Name: String): Boolean;
    property Disp: IDispatch read FDisp write SetDisp;
    property DispEx: IDispatchEx read GetDispEx;
  end;


  INotifyInterface = interface({$IFDEF DELPHI6_UP}IInterface{$ELSE}IUnknown{$ENDIF})
    ['{6971F829-8011-4E6C-B6BD-FAA86048E059}']
    procedure FreeNotification(Sender: INotifyInterface);
    procedure RegisterNotification(AInterface: INotifyInterface);
    procedure UnregisterNotification(AInterface: INotifyInterface);
    function GetObject: TObject;
  end;

  TNotifyObject = class(TObject, INotifyInterface)
  private
    FNotifications: TInterfaceList;
  protected
    procedure FreeNotify(Sender: TObject); virtual;
    procedure DelObjectRef(AInterface: INotifyInterface; var AObject); overload;
    procedure DelObjectRef(Instance: TObject; var AObject); overload;
    function GetObject: TObject;
    //Interface-Methoden:
    function QueryInterface(const IID: TGUID; out Obj): HResult; stdcall;
    function _AddRef: Integer; stdcall;
    function _Release: Integer; stdcall;
    procedure FreeNotification(Sender: INotifyInterface);
    procedure RegisterNotification(AInterface: INotifyInterface);
    procedure UnregisterNotification(AInterface: INotifyInterface);
  public
    procedure BeforeDestruction; override;
  end;