![android | Embarcadero RAD Studio Delphi C++Builder Blogs](https://i0.wp.com/blogs.embarcadero.com/wp-content/uploads/2020/08/android-1.jpg?resize=1140%2C628&ssl=1)
The new maps component in RAD Studio XE8 simplifies the addition of mapping functionality to mobile applications. TMapView provides map API access for iOS and Android. It makes use of the Google Maps Android API on Android and the Map Kit Framework on iOS.
The key features of the TMapView component are:
- Four Types of Maps: Normal, Satellite, Hybrid and Terrain (Android only)
- Gesture Control: Intuitive tilt, rotate and zoom gesture controls
- Control the Map View: Ability to control the map properties such as the map center coordinates, the map orientation and so on
- Custom markers: Ability to add markers to the maps
If you are using TMapView on Android, you will need to obtain a Google Maps API key.
RAD Studio XE8 ships with two maps sample applications for Object Pascal and C++.
Object Pascal:
- C:UsersPublicDocumentsEmbarcaderoStudio16.0SamplesObject PascalMobile SamplesDevice Sensors and ServicesMaps
- C:UsersPublicDocumentsEmbarcaderoStudio16.0SamplesObject PascalMobile SamplesDevice Sensors and ServicesMap Type Selector
C++:
- C:UsersPublicDocumentsEmbarcaderoStudio16.0SamplesCPPMobile SamplesDevice Sensors and ServicesMaps
- C:UsersPublicDocumentsEmbarcaderoStudio16.0SamplesCPPMobile SamplesDevice Sensors and ServicesMap Type Selector
I created a small demo project that uses the Spitcast REST API, REST component framework, FDMemTable and TMapView to display surf locations on my map based on the longitude, latitude and spot name information returned from the REST service. A custom marker graphic in the shape of a surfboard fin is used to indicate the locations on the map.
You can download my demo project here.
Here is a code snippet from the demo project:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 |
procedure TForm26.FormCreate(Sender: TObject); var LongitudeField: TField; LatitudeField: TField; MyLocation: TMapCoordinate; Descr: TMapMarkerDescriptor; SpotName : TField; begin RESTRequest1.Execute; begin LongitudeField := FDMemtable1.FieldByName('longitude'); LatitudeField := FDMemtable1.FieldByName('latitude'); SpotName := FDMemTable1.FieldByName('spot_name'); FDMemTable1.First; while not FDMemTable1.EOF do begin MyLocation := TMapCoordinate.Create(StrToFloat(LatitudeField.AsWideString),StrToFloat(LongitudeField.AsWideString)); MapView1.Location := MyLocation; Descr := TMapMarkerDescriptor.Create(MyLocation, SpotName.AsWideString); Descr.Icon := BitmapSource.Bitmap; BitmapSource.Visible := True; Descr.Draggable := True; MapView1.AddMarker(Descr); MapView1.Zoom := 8; FDMemTable1.Next; end; end; end; |
Here is the app running on my iPad:
Here is a quick code snippet on how to clear the markers on the map:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 |
unit Markers; interface uses System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants, FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs, System.Generics.Collections, FMX.Controls.Presentation, FMX.StdCtrls, FMX.Maps, FMX.Layouts; type TForm2 = class(TForm) GridPanelLayout1: TGridPanelLayout; MapView1: TMapView; ButtonAdd: TButton; ButtonUndo: TButton; ButtonClear: TButton; ButtonToggle: TButton; procedure ButtonAddClick(Sender: TObject); procedure ButtonUndoClick(Sender: TObject); procedure ButtonClearClick(Sender: TObject); procedure ButtonToggleClick(Sender: TObject); private { Private declarations } FMarkers : TList<TMapMarker>; FShowMarkers: Boolean; procedure CenterMap; public { Public declarations } constructor Create(Owner: TComponent); override; end; var Form2: TForm2; implementation {$R *.fmx} procedure TForm2.ButtonAddClick(Sender: TObject); begin FMarkers.Add(MapView1.AddMarker(TMapMarkerDescriptor.Create(TMapCoordinate.Create((Random(180) - 90) * 0.75, Random(360) - 180), Format(’Marker Placed %d-%d’, [Random(42), Random(54124)])))); CenterMap; end; procedure TForm2.ButtonClearClick(Sender: TObject); var Marker: TMapMarker; begin for Marker in FMarkers do Marker.Remove; FMarkers.Clear; CenterMap; end; procedure TForm2.ButtonToggleClick(Sender: TObject); var Marker: TMapMarker; begin FShowMarkers := not FShowMarkers; for Marker in FMarkers do Marker.SetVisible(FShowMarkers); end; procedure TForm2.ButtonUndoClick(Sender: TObject); begin if FMarkers.Count > 0 then begin FMarkers.Last.Remove; FMarkers.Delete(FMarkers.Count - 1); end; CenterMap; end; procedure TForm2.CenterMap; begin if FMarkers.Count > 0 then MapView1.Location := FMarkers.Last.Descriptor.Position else MapView1.Location := TMapCoordinate.Zero; end; constructor TForm2.Create(Owner: TComponent); begin inherited; FMarkers := TList<TMapMarker>.Create; FShowMarkers := True; end; end. |
Design. Code. Compile. Deploy.
Start Free Trial Upgrade Today
Free Delphi Community Edition Free C++Builder Community Edition