Google Maps über COM (Component Object Model)

[Thom]

Das Framework besitzt dafür keine integrierte Möglichkeit.

Du könntest natürlich einen Screenshot von der Anwendung machen (Alt+Druck) und den Inhalt der Zwischenablage über ein geeignetes Programm ausdrucken.
Programmtechnisch könntes Du den Inhalt des Formulars auch direkt in ein Bitmap zeichnen lassen.
Eine weitere Möglichkeit besteht darin, über Interfaces ein Bitmap vom Inhalt des Browsers abzufragen.

P.S.:
Ich habe gerade gesehen, daß Du Deinen Beitrag überarbreitet hast.
Ja: Das wäre wahrscheinlich auch eine Möglichkeit - habe ich allerdings noch nicht getestet.

[DelphiFan2008]

Hallo jonathan,

verwende die Funktion zum speichern des Inhaltes des WebBrowsers in einem JPG-File, hatte ich aus einem Beitrag hier im Forum

Delphi-Quellcode:

procedure WebBrowserScreenShot( const wb:TWebBrowser;const FileName:TFileName );
var viewObject : IViewObject;
    r          : TRect;
    Bitmap     : TBitmap;
begin
  if wb.Document <> nil then
  begin
    wb.Document.QueryInterface( IViewObject,viewObject );
    if Assigned( viewObject )then
    try
      Bitmap := TBitmap.Create;
      try
        r := Rect( 0,0,wb.Width,wb.Height );

        Bitmap.Height := wb.Height;
        Bitmap.Width  := wb.Width;

        viewObject.Draw( DVASPECT_CONTENT,1,nil,nil,Application.Handle,Bitmap.Canvas.Handle,@r,nil,nil,0 );

        with TJPEGImage.Create do
        try
          Assign( Bitmap ) ;
          SaveToFile( FileName ) ;
        finally
          Free;
        end;
        Clipboard.Assign( Bitmap );
      finally
        Bitmap.Free;
      end;
    finally
      viewObject._Release;
    end;
  end;
end;

dabei setze ich die Größe der Karte vorher auf eine virtuelle Größe die ich im Ziel haben will z.B. w:=4096,h:=4096

Delphi-Quellcode:

  
  WebBrowserMap.Align  := alNone;
  WebBrowserMap.Width  := w;
  WebBrowserMap.Height := h;

danach zentriere ich den Kartenauschnitt auf meinen gewünschten Bereich

Delphi-Quellcode:

MapCenter; // eigene Funktion mit Script.Maps[0].FitBounds( t ) etc.

dann speichern.

Delphi-Quellcode:

  WebBrowserScreenShot( WebBrowserMap,APP_PATHTEMPFILES + '\Test.jpg' );

Wichtig ist hier, dass es abhängig von der Breite/Höhe dauert, bis die Karte aufgebaut ist. Beim zweiten mal deutlich schneller -> Cache.
Ich verwende derzeit eine Zeitschleife. Versuche mit

Delphi-Quellcode:

WebBrowserMap.Busy=False

und

Delphi-Quellcode:

Map.OnTilesLoaded

waren bisher nicht erfolgreich. Die Lösung mit der Zeitschleife ist für persönliche Belange ausreichend, für die Weitergabe der Applikation indiskutabel aber sie tut. Das Ergebis ist dann eine schöne Karte in einer tollen detailierten Auflösung. Optimal z.B. für die Grundlage einer Kamerafahrt über die Karte beim Videoschnitt -> Indiana Jones Effekt. (Lizenzbestimmungen beachten).

Danach Browser wieder in Client und Ausschnitt zentrieren

Delphi-Quellcode:

  WebBrowserMap.Align  := alClient;
  MapCenter;

Gruß DelphiFan2008

[DelphiFan2008]

Hallo Thom,

melde mich mal wieder nach einem langen Sommer und damit wenig Zeit mit Delphi zu verbringen. Dabei habe ich etliche neue Ideen für meine Applikation(en) bekommen, welche direkt in Interaktion mit GoogleMaps und damit deinem Framework stehen.

Ich habe mir heute nochmal das eine oder andere Demo angeschaut z.B. "Visual Control". Das Icon in Verbindung mit Drag&Zoom hat mir gut gefallen, so dass ich die Funktion direkt implementiert habe.

Als ich mein Programm gestartet habe und eine gespeicherte Strecke mit Polyline anzeigen wollte (Standardfunktion des Programmes), blieb die Karte leer. Ein kleiner Test zeigt. Sobald ich unter

Delphi-Quellcode:

uses ... KeyDragZoom;

eintrage dann erscheinen die Polylines nicht mehr. Auskommentiert und alles ist wieder da. Habe nicht weiter recherchiert. Kannst du dir eine Ursache vorstellen.

Gruss DelphiFan2008

[Thom]

Hallo DelphiFan2008,

schön, wieder etwas von Dir zu lesen!

Die Sache mit den nicht sichtbaren Linien unter Verwendung der KeyDragZoom-Bibliothek sollte eigentlich nicht auftreten. Ich hatte das auf die Schnelle mal mit meiner Arbeitsversion des Frameworks getestet und konnte das Problem nicht reproduzieren:
Anhang 38034
Kommt es in Deinem Programm zu Fehlermeldungen oder wird einfach nichts angezeigt? Sind von diesem Problem auch Polygone und Kreise betroffen?

[DelphiFan2008]

Hallo Thom,

sobald ich in den

Delphi-Quellcode:

uses

Block

Delphi-Quellcode:

..., KeyDragZoom, ...

einfüge erscheinen weder Polyline noch Marker, Karte wird richtig gezeichnet und auch der richtige Ausschnitt, siehe Anhang. Dort werden von einem Navi aufgezeichnete Daten als Polyline dargestellt und per Programm erstellte PNGs als Marker für die 10km Abschnitte verwendet.

Gruß DelphiFan2008

[DelphiFan2008]

Hallo Thom,

habe an der Reihenfolge der

Delphi-Quellcode:

uses

Anweisung gedreht - Überaschend !

Geht !

Delphi-Quellcode:

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.OleCtrls, SHDocVw_TLB, KeyDragZoom,
  gmAPI, gmMap, gmBase, gmMVC, gmOverlaysMarker, gmOverlaysPolylinePolygon, gmEvents, gmServicesElevation,
  gmLayers, gmServicesGeocoder, gmOverlaysBase,

ABER binde ich die Funktion bzw. Anweisung

Delphi-Quellcode:

Map.EnableKeyDragZoom( ZoomOptions );

ein --> Fehlermeldung "Undeklarierter Bezeichner"

Geht nicht !

Delphi-Quellcode:

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.OleCtrls, SHDocVw_TLB,
  gmAPI, gmMap, gmBase, gmMVC, gmOverlaysMarker, gmOverlaysPolylinePolygon, gmEvents, gmServicesElevation,
  gmLayers, gmServicesGeocoder, gmOverlaysBase, KeyDragZoom,

Complier läuft durch, Icon mit Drag&Zoom geht, aber ohne Polyline&Marker !

Gruß DelphiFan2008

[Thom]

Die Unit KeyDragZoom muß an letzter Stellen nach allen anderen Units des Frameworks eingebunden werden. Das liegt darin, daß dort Ableitungen der TScript-, TMaps-, und TMap-Objekte definiert werden, die aber den selben Namen tragen:

Delphi-Quellcode:

TMap = class(gmMap.TMap)
  [...]

Damit erhalten diese Objekte zusätzliche Eigenschaften und Methoden und können trotzdem ohne Umbenennung im eigenen Programm genutzt werden.

Allerdings sollten Overlays (Polygone, Linien, Kreise, Rechtecke und Marker) trotzdem angezeigt werden.

Ich habe gerade noch einmal ein Testprojekt mit der Frameworkversion 2.1 angelegt. Die Projektdateien befinden sich im Anhang.
Der Screenshot zeigt keine Probleme mit Markern und Linien:
Anhang 38037

Funktioniert dieses Projekt mit Deiner Delphi-Version?

[DelphiFan2008]

Hallo Thom,

danke für die Antwort. Jedoch funktioniert das Demo aufgrund des Fehlers bei

Delphi-Quellcode:

{$INCLUDE Maps4Delphi.cfg}

nicht. diese Datei gibt es bei mir nicht.

Gruß DelphiFan2008

[GPRSNerd]

Zitat:

Zitat von DelphiFan2008 (Beitrag 1190661)

...und per Programm erstellte PNGs als Marker für die 10km Abschnitte verwendet.
Gruß DelphiFan2008

Hallo DelphiFan2008,

wie kannst du selbst erstellte Marker auf der Karte anzeigen? Ich hatte das auch mal versucht und ein wenig recherchiert, die Essenz war, dass die Marker eine Internet-URL haben müssen, lokale Dateien gehen nicht. Hast du die Bitmaps für die Marker ins Internet hochgeladen?

Grüße,
Stefan

[DelphiFan2008]

Hallo GPRSNerd,

mit folgendem Code habe ich die Marker direkt im Programm erzeugt

Delphi-Quellcode:

        PNG := TPNGImage.Create;

        CreateMarkerDistancePoint( PNG,<Parameter> );

        MarkerOptions := TMarkerOptions.Create;
        with MarkerOptions do
        begin
          IconImage:=New( Google.Maps.MarkerImage( Encode64(PNG),
                          New(Google.Maps.Size(PNG.Width,PNG.Height)),
                          New(Google.Maps.Point(0,0)),
                          New(Google.Maps.Point(PNG.Width/2,PNG.Height/2)) ));
          Position := Script.Google.Maps.LatLng( x,y );
        end;
        Marker := New( Google.Maps.Marker( MarkerOptions ));

        Marker.SetMap( Maps[0] );

        PNG.Free;

wobei in

Delphi-Quellcode:

CreateMarkerDistancePoint( )

das eigentliche Bild mit Direct2D erzeugt wird

Gruss DelphiFan2008