AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Projekte Google Maps über COM (Component Object Model)
Thema durchsuchen
Ansicht
Themen-Optionen

Google Maps über COM (Component Object Model)

Ein Thema von Thom · begonnen am 23. Dez 2010 · letzter Beitrag vom 22. Mai 2022
 
Thom

Registriert seit: 19. Mai 2006
570 Beiträge
 
Delphi XE3 Professional
 
#11

AW: Google Maps über COM (Component Object Model)

  Alt 26. Feb 2011, 21:16
Nach den positiven Worten über den OpenLayers-Player hatte ich ihn mir in den letzten Tagen angeschaut und mir einen ersten Überblick verschafft:

Der Funktionsumfang ist beachtlich. Allerdings kommen wohl nur hartgesottene JavaScript-Programmierer auf die Idee, eine Funktion als Konstruktor (was ja logisch ist) und gleichzeitig als Container für weitere Funktionen zu benutzen (Layer, Control, ...).

Aufgefallen ist mir, daß (standardmäßig) kein Capturing der Maus stattfindet - das Verschieben der Karte wird also sofort beendet, sobald der Cursor die Karte verläßt. Das ist im Google Maps API besser gelöst.

Desweiteren rendern einige OSM-Server die Karten fehlerhaft (gerade Striche quer über ganze Kontinente). Entweder sind da sie Vektordaten fehlerhaft oder die Renderengines enthalten Bugs. OSM-Karten sind in Deutschland erstaunlich genau, halten ohne Probleme mit Google Maps mit und sind sogar teilweise genauer und enthalten mehr Details. Schaut man aber ins Ausland - z.B. Südamerika - fehlen sogar größere Fernverkehrsstraßen - von kleineren Objekten ganz zu schweigen.

Trotzdem hat mich das Ganze neugierig gemacht und so sind die ersten 1000 Zeilen an Wrapper-Objekten für das OpenLayers-API entstanden.
Damit habe ich dann den ersten Versuch gewagt, dieses Beispiel in Delphi umzusetzen (natürlich wieder ohne eine einzige Zeile JavaScript).

Klicke auf die Grafik für eine größere Ansicht

Name:	Screenshot.jpg
Hits:	105
Größe:	35,1 KB
ID:	33463

Delphi-Quellcode:
procedure TForm1.FormShow(Sender: TObject);
const
  HTML = '<html>'+sLineBreak+
         ' <head>'+sLineBreak+
         ' <script src="http://openlayers.org/dev/OpenLayers.js"></script>'+sLineBreak+
         ' </head>'+sLineBreak+
         ' <body style="margin: 0">'+sLineBreak+
         ' <div id="map" style="width: 100%; height: 100%"></div>'+sLineBreak+
         ' </body>'+sLineBreak+
         '</html>';
var
  Map: TMap;
  ol_wms, dm_wms: TLayer;
begin
  WebBrowser1.Navigate('about:blank');
  with TScript.Create(WebBrowser1) do //Skript-Objekt erstellen
  begin
    LoadBrowserFromSource(WebBrowser1,HTML,true); //warten, bis die Seite komplett geladen wurde
    Caption:=Caption+' - '+OpenLayers.VersionNumber;
    Map:=OpenLayers.Map('map'); //Karte anlegen
    ol_wms:=OpenLayers.Layer.WMS('OpenLayers WMS',
                                 'http://vmap0.tiles.osgeo.org/wms/vmap0',
                                 TJScriptObject.Create(['layers: basic']));
    dm_wms:=OpenLayers.Layer.WMS('Canadian Data',
                                 'http://www2.dmsolutions.ca/cgi-bin/mswms_gmap',
                                 TJScriptObject.Create(['layers: bathymetry,land_fn,park,'+
                                                        'drain_fn,drainage,prov_bound,'+
                                                        'fedlimit,rail,road,popplace',
                                                        'transparent: true',
                                                        'format: image/png']),
                                 TJScriptObject.Create(['isBaseLayer: false',
                                                        'visibility: false']));
    Map.AddLayers([ol_wms,dm_wms]);
    Map.AddControl(OpenLayers.Control.LayerSwitcher);
    Map.ZoomToMaxExtent;
  end;
end;
Es wird also wirklich nur das API geladen und ein Container für die Karte angelegt. Der Rest geschieht wie bei den Google-Wrappern in einer (nahezu) eins-zu-eins Umsetzung des JavaScript-Codes in Delphi:
Code:
var map = new OpenLayers.Map("map");

var ol_wms = new OpenLayers.Layer.WMS(
    "OpenLayers WMS",
    "http://vmap0.tiles.osgeo.org/wms/vmap0",
    {layers: "basic"}
);

var dm_wms = new OpenLayers.Layer.WMS(
    "Canadian Data",
    "http://www2.dmsolutions.ca/cgi-bin/mswms_gmap",
    {
        layers: "bathymetry,land_fn,park,drain_fn,drainage," +
                "prov_bound,fedlimit,rail,road,popplace",
        transparent: "true",
        format: "image/png"
    },
    {isBaseLayer: false, visibility: false}
);

map.addLayers([ol_wms, dm_wms]);
map.addControl(new OpenLayers.Control.LayerSwitcher());
map.zoomToMaxExtent();
Anmerkung: Das kanadische Overlay funktioniert weder im Original noch in der Delphi-Umsetzung - wahrscheinlich liefert der Server keine Daten mehr (keine Ahnung, wie alt diese Demo ist). Dadurch sieht man allerdings schön den Aufbau und die Größe der Bildkacheln.

Da der Quelltext des Beispiels momentan nicht compilierbar ist (ich habe einige Erweiterungen an den Units des Frameworks vorgenommen), hänge ich einfach die fertige Demo an.
Angehängte Dateien
Dateityp: zip OpenLayers.zip (818,6 KB, 267x aufgerufen)
Thomas Nitzschke
Google Maps mit Delphi

Geändert von Thom (26. Feb 2011 um 23:28 Uhr)
  Mit Zitat antworten Zitat
 


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

(?)

LinkBack to this Thread

Erstellt von For Type Datum
DELPHI | (google maps) This thread Refback 11. Nov 2011 09:07
Twebbrowser HTML tag to UniHTMLFrame1 - uniGUI Discussion Forums This thread Refback 4. Nov 2011 06:52
DoraDev1975: google maps This thread Refback 23. Sep 2011 08:18
delphi osm - Google Search Post #0 Refback 19. Sep 2011 09:02
DoraDev1975: ?&#3636;????? 2011 This thread Refback 11. Sep 2011 16:39
DoraDev1975 This thread Refback 30. Aug 2011 10:13
Untitled document This thread Refback 25. Jun 2011 19:57
Interact with Google Maps in a TWebBrowser from Delphi | Ramblings This thread Refback 26. Jan 2011 05:12
google maps mit delphi link - Google Search This thread Refback 24. Jan 2011 14:24
google maps mit delphi - Google Search This thread Refback 24. Jan 2011 14:20
Untitled document This thread Refback 19. Jan 2011 21:49

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 00:14 Uhr.
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz