Google Maps über COM (Component Object Model)

[Thom]

Hallo Manfred,

viel Erfolg und ebenfalls ein schönes Wochenende!

Thomas

[Thom]

Vielleicht ist es einigen aufgefallen: Seit einigen Tagen (15. August) sehen die Karten von Google etwas anders aus, als gewohnt:


Das liegt daran, daß nach den Managern von Microsoft und Apple offenbar auch die von Google auf dem Trip "3D-Effekte sind out - es lebe die Flachheit" sind und alles platt machen. In der bis Mitte August als experimentell deklarierten API Version 3.13 konnte auf Wunsch der "fresh new look" aktiviert werden (siehe hier). Diese wurde jetzt zur Stable-Version und in der neuen experimentellen Version 3.14 kann dieser Effekt nicht mehr deaktiviert werden.
Wer also auf schattenlose Marker und Hinweisfenster steht, braucht nicht zu ändern. Möchte man sich allerdings den alten Stil noch etwas erhalten, muß beim Laden des APIs die Versionsnummer 3.13 explizit angegeben werden:

Delphi-Quellcode:

  if Script=nil then
    with TScript.Create(WebBrowser1) do
      LoadAPIAsync(InitMap,'','',3.13);

Wird nämlich keine spezielle Version angefordert, liefert Google automatisch das experimentelle API.

Anders sieht es bei kommerziellen Nutzern aus, die eine Premier-Lizenz von Google haben: Bei denen wird nämlich immer die Stable-Version geladen. Wollen die also den "fresh new look", müssen sie ihn explizit aktivieren (siehe oben).

[Thom]

Ich werde die diesjährige Community-Veranstaltung in Leipzig nutzen, um die Version 3 des Frameworks offiziell vorzustellen.
Einige Schwerpunkte:

• Nutzungsbedingungen von Google für kostenlose und kommerzielle Anwendungen
• Probleme bei der Einbindung von Google Maps in Delphi-Programme
• Übersicht über vorhandene kostenlose und kommerzielle Komponenten
• Einblick in die Techniken und Möglichkeiten der neuen Delphi-To-JavaScript-Bridge
• Vorstellung des neuen Frameworks, Besonderheiten im Vergleich zu komponentenbasierenden Lösungen, Veränderungen und Erweiterungen, Tipps für die Umstellung von Version 2 auf Version 3

Am Community-Abend und in den Pausen am Tag der Hauptveranstaltung wird es sicher auch die eine oder andere Gelegenheit geben, um Fragen zu beantworten und über die Umsetzung von Projekten zu diskutieren.

[DelphiFan2008]

Hallo Thom,

danke für das super Engagement. Ich freue mich schon auf die V3 um meine Applikationen in der "schlechteren" Jahreszeit ... dunkler und regnerisch anzupassen. Momentan steht Outdoor, Sport, Familie im Vordergrund - aber der Winter kommt.

Mit einer aktualisierten PC-Entwicklungsumgebung auf Basis Haswell und SSD macht das ganze auch noch mehr Spaß.

Weiter so!

Gruß DelphiFan2008

[Peter.Stadler]

Hallo Thom,

Ich habe
LoadAPIAsync(InitMap,'','',3.13);

Aber dennoch bleiben die Schatten verschwunden!

mfg Peter

[DelphiFan2008]

Hallo Thom,

habe das Framwork auf einem neuen Rechner eingerichtet.

Nach Start des Demos kam die Fehlermeldung ... kein gültiger Gleitkommawert ... bei Aufruf der Funktion HTMLPage. Die wird im Demo mit dem Parameter APIVersion = '' bzw. leerem String aufgerufen. In der Funktion StrToFloatDef kommt es dann zum Fehler.

Delphi-Quellcode:

function StrToFloatDef(const S: String; Default: Extended; DecimalSeparator: Char): Extended;
var
  OldDecimalSeparator: Char;
begin
  OldDecimalSeparator:={$IFDEF DELPHIXE_UP}FormatSettings.{$ELSE}SysUtils.{$ENDIF}DecimalSeparator;
  try
    {$IFDEF DELPHIXE_UP}FormatSettings.{$ELSE}SysUtils.{$ENDIF}DecimalSeparator:=DecimalSeparator;
    try
      Result:=SysUtils.StrToFloat(S);
    except
      Result:=Default;
    end;
  finally
    {$IFDEF DELPHIXE_UP}FormatSettings.{$ELSE}SysUtils.{$ENDIF}DecimalSeparator:=OldDecimalSeparator;
  end;
end;

Der Ersatz von Result:=SysUtils.StrToFloat(S); durch Result:=SysUtils.StrToFloatDef(S,0.0); vermeidet den Fehler.

Ist dies korrekt und ich frage mich warum der Fehler bei meinem alten Rechner nicht auftrat.

Gruß DelphiFan2008

[DelphiFan2008]

Hallo Thom,

das mit Thema SysUtils.StrToFloat(S); trat mit "altem" Demo auf

Gruß DelphiFan2008