Показать карту Google по адресу в Delphi TWebBrowser

Я пытаюсь отобразить карту Google в TWebBrowser в моей форме Windows из Delphi. Я могу отобразить карту, нажав на кнопку, используя адрес, но не при загрузке формы. Как я могу получить карту для отображения адреса, когда форма изначально отображается?Показать карту Google по адресу в Delphi TWebBrowser

private 
    { Private declarations } 
    HTMLWindow2: IHTMLWindow2; 
    public 
    { Public declarations } 
    end; 

var 
    ViewMaps: TViewMaps; 
    Flags: OLEVariant; 
    address: string; 

implementation 

Uses ActiveX; 

{$R *.dfm} 

const 
HTMLStr: AnsiString = 
'<html> '+ 
'<head> '+ 
'<meta name="viewport" content="initial-scale=1.0, user-scalable=yes" /> '+ 
//'<meta http-equiv="X-UA-Compatible" content="IE=edge" />'+ 
'<script type="text/javascript" src="http://maps.google.com/maps/api/js?v=3"></script> '+ 
'<script type="text/javascript"> '+ 
''+ 
''+ 
' var geocoder; '+ 
' var map; '+ 
//' var address; '+ 
' var trafficLayer;'+ 
' var bikeLayer;'+ 
' var markersArray = [];'+ 
''+ 
''+ 
' function initialize() { '+ 
' geocoder = new google.maps.Geocoder();'+ 
' var latlng = new google.maps.LatLng(40.714776,-74.019213); '+ 
//' var address = "San Diego, CA";'+ 
' var myOptions = { '+ 
'  zoom: 11, '+ 
'  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();'+ 
' map.set("streetViewControl", false);'+ 
' } '+ 
''+ 
''+ 
' function codeAddress(address) { '+ 
' if (geocoder) {'+ 
'  geocoder.geocode({ address: address}, function(results, status) { '+ 
'  if (status == google.maps.GeocoderStatus.OK) {'+ 
'   map.setCenter(results[0].geometry.location);'+ 
'   PutMarker(results[0].geometry.location.lat(), results[0].geometry.location.lng(), results[0].geometry.location.lat()+","+results[0].geometry.location.lng());'+ 
'  } 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);'+ 
' PutMarker(Lat, Lang, Lat+","+Lang);'+ 
' }'+ 
''+ 
''+ 
'function ClearMarkers() { '+ 
' if (markersArray) {  '+ 
' for (i in markersArray) { '+ 
'  markersArray[i].setMap(null); '+ 
' } '+ 
' } '+ 
'} '+ 
''+ 
' function PutMarker(Lat, Lang, Msg) { '+ 
' var latlng = new google.maps.LatLng(Lat,Lang);'+ 
' var marker = new google.maps.Marker({'+ 
'  position: latlng, '+ 
'  map: map,'+ 
'  title: Msg+" ("+Lat+","+Lang+")"'+ 
' });'+ 
' markersArray.push(marker); '+ 
' }'+ 
''+ 
''+ 
' 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 TViewMaps.OnFormCreate(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; 

procedure TViewMaps.GoToAddressBtnClick(Sender: TObject); 
begin 
    address := MemoAddress.Lines.Text; 
    address := StringReplace(StringReplace(Trim(address), #13, ' ', [rfReplaceAll]), #10, ' ', [rfReplaceAll]); 
    HTMLWindow2.execScript(Format('codeAddress(%s)',[QuotedStr(address)]), 'JavaScript'); 
end;

источник

2016-05-09 Hackbrew

Так что я до сих пор держать OnFormCreate как есть, а затем просто добавить компонент Timer1 в моей форме, а также процедуры Timer1Timer, что вам предлагать? Если это так, я попробовал это, и он вызывает ошибку нарушения прав доступа. – Hackbrew

Вы не можете загрузить веб-страницу в момент ее создания. Вместо этого, вы можете использовать TTimer, чтобы загрузить его на задержке ...

procedure TForm1.Timer1Timer(Sender: TObject); 
begin 
    Timer1.Enabled:= False; //Disable timer so it doesn't fire again 
    WebBrowser1.Navigate('about:blank'); 
    ........... 
end;

источник

2016-05-09 19:07:19

Const HTMLStr - это то, что контролирует начальное местоположение, отображаемое на карте, когда карта загружается с задержкой с помощью Timer1Timer, но как я могу передать или изменить адрес при вызове формы? – Hackbrew

@Hackbrew Это совершенно другой вопрос, но это чрезвычайно тривиально. Просто сохраните его в строковой переменной. –

Показать карту Google по адресу в Delphi TWebBrowser

ответ

Смежные вопросы