Google Maps über COM (Component Object Model)

[Thom]

Zitat:

Zitat von omata (Beitrag 1078985)

Bin wohl blind.

Sicher nicht - wohl im vielen Text nur überlesen. 8-)

Zitat:

Wo bekommt man die her?

Bei mir. Nette Anfrage über PM unter Angabe Deiner Emailadresse und Du bekommst so schnell wie möglich die aktuelle Version mit den Quelltexten des Frameworks und allen Demos - und das sind sogar mehr, als ich hier bisher veröffentlicht habe... :wink:

@DeddyH :thumb:

[s_weinrich]

Hallo Thom,

Nach unserem Austausch über PM habe ich eine Menge probiert und viel über Google Maps im Allgemeinen gelesen (u.a. Gabriel Svennerberg). Meine Applikation macht auch schon große Fortschritte. Danke nochmals für das Framework.

Eines ist mir aufgefallen. Du definierst eine Klasse TPoint. Diesen Bezeichner gibt es in Delphi 7 schon:
type TPoint = packed record
x:LongInt;
y:LongInt;
end;
Ich verwende den Typ im Zusammenhang der Formatierung meiner Forms. Die Funktion ScreenToClient machte dann Ärger.

Ich habe deshalb mal Dein Framework dahingehend geändert, dass ich Dein TPoint in TgmPoint geändert habe - in allen Units. Damit funktioniert erstmal mein Projekt zufriedenstellend. Vielleicht kannst Du ja mal alles ansehen und evtl. korrigieren.

Evtl. gibt es noch einen anderen Workaround?

Viele Grüße aus Erfurt

Stefan

[uligerhardt]

Zitat:

Zitat von s_weinrich (Beitrag 1079016)

Eines ist mir aufgefallen. Du definierst eine Klasse TPoint. Diesen Bezeichner gibt es in Delphi 7 schon:
type TPoint = packed record
x:LongInt;
y:LongInt;
end;
Ich verwende den Typ im Zusammenhang der Formatierung meiner Forms. Die Funktion ScreenToClient machte dann Ärger.

Zitat:

Zitat von s_weinrich (Beitrag 1079016)

Evtl. gibt es noch einen anderen Workaround?

Gibt es: Schreib an den relevanten Stellen statt

Delphi-Quellcode:

TPoint

explizit

Delphi-Quellcode:

Windows.TPoint

(oder

Delphi-Quellcode:

Types.TPoint

) bzw.

Delphi-Quellcode:

TGoogleZeugs.TPoint

. ;-)

[s_weinrich]

Danke uligerhardt - ist einfacher und klappt!

[Thom]

Hallo Stefan,

schön, daß Du vorankommst!
Deine Frage mit den Namenskonflikten ist ja schon von uligerhardt beantwortet worden.
Eine weite Möglichkeit, derartige Konflikte zu vermeiden, besteht darin, nur die Units einzubinden, die auch notwendig sind oder Code aus der Formular-Unit in zusätzliche Units auszulagern (die oft diskutierte Trennung von GUI und Anwendungslogik). Sollte das nicht möglich oder zu aufwändig sein (in den Demos wurde auf Grund des geringen Umfangs auch der gesamte Code in die Ereignis-Methoden gepackt), bietet es sich an, die Unit, die am häufigsten gebraucht wird, weiter hinten in der uses-Klausel einzubinden:

Delphi-Quellcode:

uses
  ...Windows, ..., gmBase;

Dann nutzt der Compiler standardmäßig die Typen, die in den zuletzt eingebundenen Units deklariert sind.

Zum Syntax-Hintergrund:
Das Google Maps API definiert die Klasse Point - im Delphi-Syntax entsprechend TPoint. Damit Tutorials und vorhandene Web-Projekte ohne großen Aufwand in Delphi umgesetzt werden können, habe ich versucht, mich möglichst eng an die Namensgebung des JavaScript-Syntax anzulehnen.
Das heißt: Bei Klassenbezeichnern wurde lediglich das Delphi-übliche T vorangesetzt.

Delphi-Quellcode:

type
  TPoint = class(); //entspricht im API Point
  TSize = class();  //enstspricht im API Size
  TMap = class(); //entspricht im API Map
//usw...

JavaScript ist eine case-sensitive Sprache - unterscheidet also streng zwischen Groß- und Kleinschreibung. Der Großteil des API's hält sich an die Regeln des camel case. Objektbezeichnungen richten sich nach upper camel case, Methoden und Eigenschaften nach lower camel case. Konstanten werden generell groß geschrieben:

Code:

Point.toString;
InfoWindowOptions.disableAutoPan;
MapTypeId.SATELLITE;

Da das in Delphi völlig egal ist, habe ich die übliche upper camel case Variante gewählt:

Delphi-Quellcode:

TPoint.ToString;
TInfoWindowOptions.DisableAutoPan;
TMapTypeId.Satellite;

Frameworkintern werden natürlich dann die korrekten JavaScript-Bezeichner verwendet, um die entsprechenden COM-Methoden aufrufen zu können - wobei es in der Funktion

Delphi-Quellcode:

DispatchEx.GetDispID(PName,fdexNameCaseSensitive,DispID);
//...

auch die Möglichkeit gibt, die Unterscheidung zwischen Groß- und Kleinschreibung zu deaktivieren.
An einigen Stellen hält sich das API aber leider nicht an den camel case-Stil. Einige Beispiele:

Code:

MVCObject.bounds_changed;
MVCObject.center_changed;

Im Framework wurde das entsprechend korrigiert:

Delphi-Quellcode:

TMVCObject.BoundsChanged;
TMVCObject.CenterChanged;

Ein weiteres Problem besteht in den Fällen, in denen Bezeichner verwendet werden, die in Delphi reserviert sind:

Code:

MVCObject.set(...);
MapTypeRegistry.set(...);

Dann verwendet das Framework für neuere Compiler-Versionen den Präfix &, ansonsten den Suffix _:

Delphi-Quellcode:

TMVCObject.&Set(...);
TMapTypeRegistry.&Set(...);
//bzw.
TMVCObject.Set_(...);
TMapTypeRegistry.Set_(...);

[DelphiFan2008]

Hallo Thom,

schätze langsam, dass der Kauf von "Delphi XE Starter" etwas übereilt war. Denkst du, dass eine Anpassung deines Framework an XE-Starter hinbekommst - ansonsten ist XE-Starter für mich unsinnig.

Gruss DelphiFan2008

[DeddyH]

Das verstehe ich nicht, wieso sollte das mit XE Starter nicht funktionieren?

[Thom]

@DeddyH,

das Framework sollte funktionieren. Aber leider fehlt in der Starter Edition die Komponente TWebBrowser und ich vermute, daß auch der Import von Typbibliotheken gestrichen wurde. Eine Alternative wäre der Embedded Web Browser. Dann müßten aber alle Demos von mir geändert werden.

Ich habe eine Package erstellt, das TWebBrowser und etliche andere Objekte, die das IE-ActiveX exportiert, enthält. Die Typbibliothek ist frisch von meinem IE8 importiert - enthält also keinerlei Code von Embarcadero und sollte deshalb lizenztechnisch gesehen keine Probleme bereiten. Ich hatte das Package gestern abend ohne Probleme in meinem Delphi XE getestet. Ein Test mit Delphi Starter steht allerdings noch aus.

[DelphiFan2008]

Hallo,

mit dem Package von Thom funktionieren nun alle Demos wieder :thumb:. 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.