Android实例-LocationSensor位置传感器(XE8+小米2)

结果：

1.启动后有时会闪退，后来重新做的工程就好了。原因不明(可能与地理反码有关)。

2.原文是用的GOOGLE地图显示位置，但在咱们这里好像不行，改为百度，但百度用的是HTML文件。太麻烦了，大家自己看百度API吧。

3.打开二个权限，不过我看了一下工程自动就是打上对号的(Access coarse location、Access fine location)。

相关资料：

官网地址  http://docwiki.embarcadero.com/RADStudio/XE5/en/Mobile_Tutorial:_Using_Location_Sensors_(iOS_and_Android)

实例代码：

 unit Unit1;

 interface

 uses
   System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,
   FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs, System.Sensors,
   System.Sensors.Components, FMX.WebBrowser, FMX.Controls.Presentation,
   FMX.StdCtrls;

 type
   TForm1 = class(TForm)
     Button1: TButton;
     WebBrowser1: TWebBrowser;
     LocationSensor1: TLocationSensor;
     Label1: TLabel;
     Label2: TLabel;
     Label3: TLabel;
     Label4: TLabel;
     Label5: TLabel;
     Label6: TLabel;
     Label7: TLabel;
     Label8: TLabel;
     Label9: TLabel;
     Label10: TLabel;
     Label11: TLabel;
     Label12: TLabel;
     Label13: TLabel;
     procedure Button1Click(Sender: TObject);
     procedure LocationSensor1LocationChanged(Sender: TObject; const OldLocation,
       NewLocation: TLocationCoord2D);
   private
     { Private declarations }
     FGeocoder: TGeocoder;//定义地理编码对象
     procedure OnGeocodeReverseEvent(const Address: TCivicAddress);//定义地理编码事件
   public
     { Public declarations }
   end;

 var
   Form1: TForm1;

 implementation

 {$R *.fmx}
 {$R *.NmXhdpiPh.fmx ANDROID}

 procedure TForm1.Button1Click(Sender: TObject);
 begin
   LocationSensor1.Active := True;
 end;

 procedure TForm1.LocationSensor1LocationChanged(Sender: TObject;
   const OldLocation, NewLocation: TLocationCoord2D);
   var
   URLString: String;
 begin
   //显示经纬度
   Label2.Text := Format('纬度:%2.6f', [NewLocation.Latitude]);
   Label3.Text := Format('经度:%2.6f', [NewLocation.Longitude]);
   //地图显示位置
 //  URLString := Format('https://maps.google.com/maps?q=%s,%s',
 //    [Format('%2.6f', [NewLocation.Latitude]), Format('%2.6f', [NewLocation.Longitude])]);
 //  WebBrowser1.Navigate(URLString);
   //地理编码功能
   if not Assigned(FGeocoder) then
   begin
     if Assigned(TGeocoder.Current) then
       FGeocoder := TGeocoder.Current.Create;
     if Assigned(FGeocoder) then
       FGeocoder.OnGeocodeReverse := OnGeocodeReverseEvent;
   end;
   if Assigned(FGeocoder) and not FGeocoder.Geocoding then
     FGeocoder.GeocodeReverse(NewLocation);
 end;

 //地理编码事件具体实现
 procedure TForm1.OnGeocodeReverseEvent(const Address: TCivicAddress);
 begin
   label4.Text       := Format('行政区:%s',   [Address.AdminArea]);
   label5.Text       := Format('国家代码:%s', [Address.CountryCode]);
   label6.Text       := Format('国家名称:%s', [Address.CountryName]);
   label7.Text       := Format('特征名称:%s', [Address.FeatureName]);
   label8.Text       := Format('地区:%s',     [Address.Locality]);
   label9.Text       := Format('邮政编码:%s', [Address.PostalCode]);
   label10.Text      := Format('分行政区:%s', [Address.SubAdminArea]);
   label11.Text      := Format('分地区:%s',   [Address.SubLocality]);
   label12.Text      := Format('分大街:%s',   [Address.SubThoroughfare]);
   label13.Text      := Format('大街:%s',     [Address.Thoroughfare]);
 end;

 end.