Google Maps API

**MiniMax**

so nen großeß problem: Habe jetzt versucht den code in delphi 09 zu benutzten aber er zeigt nichts an im Webbrowser??

Kann mir jemand sagen was der fehler ist?

zusammenfalten · markieren

Delphi-Quellcode:

			unit Unit1;

interface

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, OleCtrls, SHDocVw, StdCtrls, ExtCtrls, XPMan, ComCtrls,MSHTML;

type

  TForm1 = class(TForm)

    XPManifest1: TXPManifest;

    CheckBoxTraffic: TCheckBox;

    WebBrowser1: TWebBrowser;

    procedure FormCreate(Sender: TObject);

    procedure CheckBoxTrafficClick(Sender: TObject);

  private

    { Private-Deklarationen }

     HTMLWindow2: IHTMLWindow2;

  public

    { Public-Deklarationen }

  end;

var

  Form1: TForm1;

implementation

uses

ActiveX;

{$R *.dfm}

const

HTMLStr: String =

'<html> '+

'<head> '+

'<meta name="viewport" content="initial-scale=1.0, user-scalable=yes" /> '+

'<script type="text/javascript" src="http://maps.google.com/maps/api/js?sensor=true"></script> '+

'<script type="text/javascript"> '+

''+

''+

'  var geocoder; '+

'  var map;  '+

'  var trafficLayer;'+

'  var bikeLayer;'+

''+

''+

'  function initialize() { '+

'    geocoder = new google.maps.Geocoder();'+

'    var latlng = new google.maps.LatLng(40.714776,-74.019213); '+

'    var myOptions = { '+

'      zoom: 13, '+

'      center: latlng, '+

'      mapTypeId: google.maps.MapTypeId.ROADMAP '+

'    }; '+

'    map = new google.maps.Map(document.getElementById("map_canvas"), myOptions); '+

'    trafficLayer = new google.maps.TrafficLayer();'+

'    bikeLayer = new google.maps.BicyclingLayer();'+

'  } '+

''+

''+

'  function codeAddress(address) { '+

'    if (geocoder) {'+

'      geocoder.geocode( { address: address}, function(results, status) { '+

'        if (status == google.maps.GeocoderStatus.OK) {'+

'          map.setCenter(results[0].geometry.location);'+

'          var marker = new google.maps.Marker({'+

'              map: map,'+

'              position: results[0].geometry.location'+

'          });'+

'        } else {'+

'          alert("Geocode was not successful for the following reason: " + status);'+

'        }'+

'      });'+

'    }'+

'  }'+

''+

''+

'  function GotoLatLng(Lat, Lang) { '+

'   var latlng = new google.maps.LatLng(Lat,Lang);'+

'   map.setCenter(latlng);'+

'   var marker = new google.maps.Marker({'+

'      position: latlng, '+

'      map: map,'+

'      title:Lat+","+Lang'+

'  });'+

'  }'+

''+

''+

'  function TrafficOn()   { trafficLayer.setMap(map); }'+

''+

'  function TrafficOff()  { trafficLayer.setMap(null); }'+

''+''+

'  function BicyclingOn() { bikeLayer.setMap(map); }'+

''+

'  function BicyclingOff(){ bikeLayer.setMap(null);}'+

''+

'  function StreetViewOn() { map.set("streetViewControl", true); }'+

''+

'  function StreetViewOff() { map.set("streetViewControl", false); }'+

''+

''+'</script> '+

'</head> '+

'<body onload="initialize()"> '+

'  <div id="map_canvas" style="width:100%; height:100%"></div> '+

'</body> '+

'</html> ';

procedure TForm1.CheckBoxTrafficClick(Sender: TObject);

begin

    if CheckBoxTraffic.Checked then

     HTMLWindow2.execScript('TrafficOn()', 'JavaScript')

    else

     HTMLWindow2.execScript('TrafficOff()', 'JavaScript');

 end;

procedure Tform1.FormCreate(Sender: TObject);

var

  aStream     : TMemoryStream;

begin

   WebBrowser1.Navigate('about:blank');

    if Assigned(WebBrowser1.Document) then

    begin

      aStream := TMemoryStream.Create;

      try

         aStream.WriteBuffer(Pointer(HTMLStr)^, Length(HTMLStr));

         //aStream.Write(HTMLStr[1], Length(HTMLStr));

         aStream.Seek(0, soFromBeginning);

         (WebBrowser1.Document as IPersistStreamInit).Load(TStreamAdapter.Create(aStream));

      finally

         aStream.Free;

      end;

      HTMLWindow2 := (WebBrowser1.Document as IHTMLDocument2).parentWindow;

    end;

end;

end.

**Grolle**

Hi,

bei mir läufts. Du musst allerdings bei D2009 auch

markieren

Delphi-Quellcode:

			const

HTMLStr: AnsiString = ...

verwenden.

Viele Grüße ...

**MiniMax**

danke ihr seit die besten!!!

**MiniMax**

so habe jetztfast alles hinbekommen -- dank euch

nun noch ne frage: Wie kann ich einen Marker per klick setzen und dann dieKoordinatenauslesen?

habe den code zwar gefunden, weiß aber net wie ich "location" an delphi übergebe?
Ich bitte nochma um Hilfe

Danke im vorraus

minimax

----------------

markieren

Code:

			var map;

function initialize() {

  var myLatlng = new google.maps.LatLng(-25.363882,131.044922);

  var myOptions = {

    zoom: 4,

    center: myLatlng,

    mapTypeId: google.maps.MapTypeId.ROADMAP

  }

  map = new google.maps.Map(document.getElementById("map_canvas"), myOptions);

  google.maps.event.addListener(map, 'click', function(event) {

    placeMarker(event.latLng);

  });

}

function placeMarker(location) {

  var clickedLocation = new google.maps.LatLng(location);

  var marker = new google.maps.Marker({

      position: location,  

      map: map

  });

  map.setCenter(location);

}

**Grolle**

Hallo,

habe ich selber noch nie gebraucht, aber schau mal

hier ...

Viele Grüße ...

**MiniMax**

das bringt mich net weiter

Formuliere ich die frage mal anders: Wie kann ich einen Wert aus dem Javascript erhalten?

**Grolle**

Hallo,

du musst execScript verwenden, um mit dem TWebBrowser eine JS Funktion auszuführen. Diese kann aber nix an Delphi zurückgeben. Lies dir dazu mal den Absatz auf der oben verlinkten Seite (Getting the Return Value) genauer durch.

Viele Grüße ...

Google Maps API

AW: Google Maps API

AW: Google Maps API

AW: Google Maps API

AW: Google Maps API

AW: Google Maps API

AW: Google Maps API

AW: Google Maps API

Forumregeln

Grolle Registriert seit: 5. Nov 2004 Ort: Coesfeld 1.268 Beiträge Delphi 2010 Professional	#2 AW: Google Maps API 25. Aug 2010, 08:35 Hi, bei mir läufts. Du musst allerdings bei D2009 auch markieren Delphi-Quellcode: const HTMLStr: AnsiString = ... verwenden. Viele Grüße ...
	Zitat

MiniMax Registriert seit: 15. Dez 2009 Ort: Bremen 193 Beiträge Delphi 2009 Architect	#3 AW: Google Maps API 25. Aug 2010, 10:13 danke ihr seit die besten!!! Gruß MiniMax
	Zitat

Grolle Registriert seit: 5. Nov 2004 Ort: Coesfeld 1.268 Beiträge Delphi 2010 Professional	#5 AW: Google Maps API 25. Aug 2010, 18:18 Hallo, habe ich selber noch nie gebraucht, aber schau mal hier ... Viele Grüße ...
	Zitat

MiniMax Registriert seit: 15. Dez 2009 Ort: Bremen 193 Beiträge Delphi 2009 Architect	#6 AW: Google Maps API 25. Aug 2010, 18:45 das bringt mich net weiter Formuliere ich die frage mal anders: Wie kann ich einen Wert aus dem Javascript erhalten? Gruß MiniMax
	Zitat

Grolle Registriert seit: 5. Nov 2004 Ort: Coesfeld 1.268 Beiträge Delphi 2010 Professional	#7 AW: Google Maps API 25. Aug 2010, 19:10 Hallo, du musst execScript verwenden, um mit dem TWebBrowser eine JS Funktion auszuführen. Diese kann aber nix an Delphi zurückgeben. Lies dir dazu mal den Absatz auf der oben verlinkten Seite (Getting the Return Value) genauer durch. Viele Grüße ...
	Zitat