DelphiGoogleMap

TEdgeGoogleMapViewer: a Delphi "WebView2" Component to View Google Map with integrated Routing and Markers Support

Actual official version 1.6.0 (VCL)

This component is based on TEdgeBrowser Component (available from Delphi 10.4)

It's very easy to use Google Maps API directly from Delphi Code, settings Component properties or invoking methods, for example:

//Goto Address Example
EdgeGoogleMapViewer.GotoAddress(MemoAddress.Lines.Text);

//Goto Latitude/Longitude Example
var
  Location: TLatLng;
begin
  Location.Latitude := TEdgeGoogleMapViewer.TextToCoord(Latitude.Text);
  Location.Longitude := TEdgeGoogleMapViewer.TextToCoord(Longitude.Text);
  EdgeGoogleMapViewer.GotoLocation(Location);
  
//Setting Map View Mode
  EdgeGoogleMapViewer.MapTypeId := TGoogleMapTypeId(MapTypeIdComboBox.ItemIndex);

How it works

The component works in a simple way: creates an html file with some javascript functions inside it and load it from disk, so the Delphi component can call those javascript functions inside the component methods, calling ExecuteScript(ScriptCommand) method of the TEdgeBrowser. If you want to analyse the content of the file created, put a break-point into TEdgeGoogleMapViewer.ShowMap at this line to know the name of the file created:

NavigateToURL('file:///'+LFileName);

If you want to see how the component calls a javascript function inside the page, look for example at the method "GotoAddress":

procedure TEdgeGoogleMapViewer.GotoAddress(const Address: string);
var
  ScriptCommand: String;
begin
  FAddress := Address;
  if FAddress = '' then
    HideMap
  else if not MapVisible then
    ShowMap(FAddress)
  else
  begin
    ScriptCommand := Format('codeAddress(%s)',[QuotedStr(ClearAddressText(Address))]);
    ExecuteScript(ScriptCommand);
  end;
end;

You can extend the component with any functionality you can execute at javascipt level, adding the function into the code, in the method "GetHTMLScript" that collect all the Javascript functions, or you can add your personal javascript code in the event "OnGetJavascript".

function TEdgeGoogleMapViewer.GetHTMLScript : string;
var
  LJSScript : string;
begin
  LJSScript := GetJSVariables +sLineBreak+
  GetJSInitialize +sLineBreak+
  (...)
  GetJSRouteAddress + sLineBreak +
  GetJSCalcRoute;
  if Assigned(FOnGetJavascript) then
    FOnGetJavascript(Self,LJSScript);
  Result :=
  '<script type="text/javascript"> '+sLineBreak+
  LJSScript + sLineBreak +
  '</script> '+ sLineBreak;
end;

Look at the GoogleAPI documentation if you need more functionality and please make a pull request to the project.

A complete demo is available!

Notice that in the same folder of the executable you must place the correct webview2loader.dll (32 or 64 bit) as you can see into Demo\GoogleMaps\Bin\Win32 and Demo\GoogleMaps\Bin\Win64.

Available for Delphi 10.4.2, Delphi 11 and Delphi 12 (VCL 32bit and 64bit platforms)

INSTALLATION

Open {DelphiGoogleMapFolder}\Packages\DelphiGoogleMapsPackages.groupproj from Delphi IDE
Build Run-Time Package: DelphiGoogleMap
Build and Install Design-Time Package:
Add {DelphiGoogleMapFolder}\Source to Delphi source path

The Demo in action

Open \Demo\GoogleMaps\GoogleMapsTest.dproj: Build (32 or 64 bit) and Run.

Notice: you need a Google API key to activate the navigation: by default the Demo request to input API before using the component, or you can edit TformMain.EdgeGoogleMapViewerBeforeShowMap event to add your API KEY to the component.

Goto Address: Via S.Cecilia 4, Carugate, Milano

Input Address and click to "Goto Address":

Goto Latitude/Longitude (25.767314 / -80.135694)

Input Latutude and Longitude and click to "Goto Latitude/Longitude"

Route Bicycling - RoadMap View Style

Select Routing Mode "Bicycling", Select "RoadMap" View Mode, click to "Route by Location":

Route By Addresses - Hybrid and Traffic from Satellite View Style

Select Select "Hybrid" View Mode, Activate Traffic and click to "Route by Addreess":

Route showing "Direction Panel"

Check "Direction Panel" and and click to "Route by Addresses":

Showing "Print Panel" embedded into Browser

Click on "Show Print UI" button:

Markers from Customer Table (customers.xml)

Load Customer Table, scroll down the table: for every record a Marker is added to the Map. Zoom out map to see all Markers.

DOCUMENTATION

No documentation available, but the Demo explain very well the use of the component.

RELEASE NOTES

24 Apr 2024 - Version 1.6.0

Added functions to add Circles, Polylines or Polygons to map
Added function ComputeDistanceBetween
Enabled component into IDE using Win64 Platform

21 Aug 2023 - Version 1.5.0

Changed Packages: separated Run-Time and Design-Time Packages
Added "Show Print UI" Panel command
Added support for Delphi 12

29 Nov 2022 - Version 1.4.0

FullScreen Control showing switch
Zoom Control showing switch
MapType Control showing switch
Update Demo to implement "fullscreen" request

15 Sep 2022 - Version 1.3.1

Added 64bit platform to package and demo

09 Apr 2022 - Version 1.3.0

Fixed problem building package for Delphi 10.4.2

07 Dec 2021 - Version 1.2.0

Change base object to TCustomEdgeBrowser
inherit properies to allow the hiding of OnWebMessageReceived and presenting new event OnWebUnhandledMessageReceived
Map onclick, onzoom listener events
New property OnMapClick and OnMapRightClick
Demo to show right click menu and adding a marker
Demo to have option on center on mouse click
Demo updated to change zoom edit value on map zoom event
GotoLocation changed to have option to place marker.

02 Nov 2021 - Version 1.1.0

Added method to register UserDataFolder: TEdgeGoogleMapViewer.RegisterUserDataFolder
Added Event Handler BeforeInitMap
Added a secondary form to Demo (to test multiple instance of component)

24 Sep 2021 - Version 1.0.0

Google Map Viewer Component based on TEdgeBrowser
Full Demo available

EtheaDev/DelphiGoogleMap