相关资料：

《修复 XE8 for Android 方向传感器 headingX,Y,Z 不会动的问题》：http://www.cnblogs.com/onechen/p/4497282.html

结果：

1.用XE8的话，会有个问题，就是Heading的值不刷新，一直是0。不过网上有修改方法，此文章也收录了一下。在本文中搜索“Heading的值不刷新begin”可以查看修改了什么。

实例代码：

 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,

   FMX.Controls.Presentation, FMX.StdCtrls, System.Sensors.Components,

   FMX.Layouts;

 type

   TForm1 = class(TForm)

     OrientationSensor1: TOrientationSensor;

     Label1: TLabel;

     Layout1: TLayout;

     Layout2: TLayout;

     Switch1: TSwitch;

     Label2: TLabel;

     Label3: TLabel;

     Label4: TLabel;

     Label5: TLabel;

     Label6: TLabel;

     Label7: TLabel;

     SpeedButton1: TSpeedButton;

     SpeedButton2: TSpeedButton;

     Timer1: TTimer;

     procedure OrientationSensor1SensorChoosing(Sender: TObject;

       const Sensors: TSensorArray; var ChoseSensorIndex: Integer);

     procedure SpeedButton1Click(Sender: TObject);

     procedure Timer1Timer(Sender: TObject);

     procedure FormActivate(Sender: TObject);

     procedure SpeedButton2Click(Sender: TObject);

     procedure Switch1Click(Sender: TObject);

   private

     { Private declarations }

   public

     { Public declarations }

   end;

 var

   Form1: TForm1;

 implementation

 {$R *.fmx}

 {$R *.NmXhdpiPh.fmx ANDROID}

 procedure TForm1.FormActivate(Sender: TObject);

 begin

   {$IFDEF IOS}

   {$IFNDEF CPUARM}

   lbOrientationSensor.Text := 'Simulator - no sensors';

   Switch1.Enabled := False;

   {$ENDIF}

   {$ENDIF}

 end;

 //Tilt与Heading的切换

 procedure TForm1.OrientationSensor1SensorChoosing(Sender: TObject;

   const Sensors: TSensorArray; var ChoseSensorIndex: Integer);

 var

   I: Integer;

   Found: Integer;

 begin

   Found := -;

   for I :=  to High(Sensors) do

   begin

     if SpeedButton1.IsPressed and (TCustomOrientationSensor.TProperty.TiltX in TCustomOrientationSensor(Sensors[I]).AvailableProperties) then

     begin

       Found := I;

       Break;

     end

     else if SpeedButton2.IsPressed and (TCustomOrientationSensor.TProperty.HeadingX in TCustomOrientationSensor(Sensors[I]).AvailableProperties) then

     begin

       Found := I;

       Break;

     end;

   end;

   if Found <  then

   begin

     Found := ;

     SpeedButton1.IsPressed := True;

     SpeedButton2.IsPressed := False;

     ShowMessage('Compass（电子罗盘） not（不） available（可用）');

   end;

   ChoseSensorIndex := Found;

 end;

 //Tilt刷新

 procedure TForm1.SpeedButton1Click(Sender: TObject);

 begin

   OrientationSensor1.Active := False;

   SpeedButton2.IsPressed := False;

   SpeedButton1.IsPressed := True;

   OrientationSensor1.Active := Switch1.IsChecked;

 end;

 //Heading刷新

 procedure TForm1.SpeedButton2Click(Sender: TObject);

 begin

   OrientationSensor1.Active := False;

   SpeedButton1.IsPressed := False;

   SpeedButton2.IsPressed := True;

   OrientationSensor1.Active := Switch1.IsChecked;

 end;

 //显示开关

 procedure TForm1.Switch1Click(Sender: TObject);

 begin

   OrientationSensor1.Active := Switch1.IsChecked;

   Timer1.Enabled:= Switch1.IsChecked;

 end;

 //取值方法

 procedure TForm1.Timer1Timer(Sender: TObject);

 begin

   Label2.Text := Format('Tilt X: %f', [OrientationSensor1.Sensor.TiltX]);

   Label3.Text := Format('Tilt Y: %f', [OrientationSensor1.Sensor.TiltY]);

   Label4.Text := Format('Tilt Z: %f', [OrientationSensor1.Sensor.TiltZ]);

   Label5.Text := Format('Heading X: %f', [OrientationSensor1.Sensor.HeadingX]);

   Label6.Text := Format('Heading Y: %f', [OrientationSensor1.Sensor.HeadingY]);

   Label7.Text := Format('Heading Z: %f', [OrientationSensor1.Sensor.HeadingZ]);

 end;

 end.

自带单元(System.Android.Sensors.pas )：

 {*******************************************************}

 {                                                       }

 {           CodeGear Delphi Runtime Library             }

 { Copyright(c) 2013-2015 Embarcadero Technologies, Inc. }

 {                                                       }

 {*******************************************************}

 unit System.Android.Sensors;

 interface

 uses

   System.Sensors;

 type

   TPlatformSensorManager = class(TSensorManager)

   protected

     class function GetSensorManager: TSensorManager; override;

   end;

   TPlatformGeocoder = class(TGeocoder)

   protected

     class function GetGeocoderImplementer: TGeocoderClass; override;

   end;

   TPlatformGpsStatus = class(TGpsStatus)

   protected

     class function GetGpsStatusImplementer: TGpsStatusClass; override;

   end;

 implementation

 uses

   System.SysUtils,

   Androidapi.Sensor, Androidapi.AppGlue, Androidapi.Looper, System.Math, Androidapi.Jni,

   Androidapi.JNIBridge, Androidapi.JNI.Location, Androidapi.JNI.JavaTypes,

   Androidapi.JNI.Os, Androidapi.JNI.App, Androidapi.NativeActivity,

   Androidapi.JNI.GraphicsContentViewText, Androidapi.Helpers;

 { Permissions manager }

 type

   TPermission = class

   private

     class var FPermissions: TJavaObjectArray<JString>;

   private

     class constructor Create;

     class destructor Destroy;

   public

     class function IsPermitted(const APermission: JString):Boolean;

     class function GetList: TJavaObjectArray<JString>;

   end;

 { TPermission }

 class function TPermission.IsPermitted(const APermission: JString): Boolean;

 var

   I: integer;

 begin

   Result := False;

   for I :=  to FPermissions.Length -  do

     if FPermissions[i].equalsIgnoreCase(APermission) then

     begin

       Result := True;

       Break;

     end;

 end;

 class constructor TPermission.Create;

 var

   PackageInfo: JPackageInfo;

   PackageManager: JPackageManager;

   Activity: JActivity;

 begin

   Activity := TJNativeActivity.Wrap(PANativeActivity(System.DelphiActivity)^.clazz);

   PackageManager := Activity.getPackageManager;

   PackageInfo := PackageManager.getPackageInfo(Activity.getPackageName, TJPackageManager.JavaClass.GET_PERMISSIONS);

   FPermissions := PackageInfo.requestedPermissions;

 end;

 class destructor TPermission.Destroy;

 begin

 end;

 class function TPermission.GetList: TJavaObjectArray<JString>;

 begin

   Result := FPermissions;

 end;

 type

   TAndroidGeocoder = class(TGeocoder)

   private

     type

       TGeocoderRunnable = class(TJavaLocal, JRunnable)

       private

         FCoord: TLocationCoord2D;

         FLGeocoder: JGeocoder;

       public

         constructor Create(ACoord: TLocationCoord2D; AGeocoder: JGeocoder);

         procedure run; cdecl;

       end;

   private class var

     FGeocoder: JGeocoder;

     FActivity: JActivity;

   private

     class constructor Create;

     class destructor Destroy;

   protected

     class function GetGeocoderImplementer: TGeocoderClass; override;

     class procedure GeocodeRequest(const AAddress: TCivicAddress); override;

     class procedure GeocodeReverseRequest(const Coords: TLocationCoord2D); override;

   public

     class function Supported: Boolean; override;

     class function Authorized: TAuthorizationType; override;

     class procedure Cancel; override;

   end;

 type

   TUIAndroidLocationSensor = class(TCustomLocationSensor)

   private

     FPermitted: Boolean;

     FActivity: JNativeActivity;

     FLastValue: JLocation;

     FLocationManager: JLocationManager;

     FAccuracy: TLocationAccuracy;

     FDistance: TLocationDistance;

     type

       TLocationListener = class(TJavaLocal, JLocationListener)

       private

         FLocationSensor: TUIAndroidLocationSensor;

       public

         constructor Create(ALocationSensor: TUIAndroidLocationSensor);

         procedure onLocationChanged(P1: JLocation); cdecl;

         procedure onStatusChanged(P1: JString; P2: Integer; P3: JBundle); cdecl;

         procedure onProviderEnabled(P1: JString); cdecl;

         procedure onProviderDisabled(P1: JString); cdecl;

       end;

       TLocationRunnable = class(TJavaLocal, JRunnable)

       private

         FLocationManager: JLocationManager;

         FListener: TLocationListener;

         FProvider: JString;

       public

         constructor Create(ALocationManager: JLocationManager; AListener: TLocationListener; AProvider: JString);

         procedure run; cdecl;

       end;

   private

     FGPSListener: TLocationListener;

     FGPSRunner: TLocationRunnable;

     FNetworkListener: TLocationListener;

     FNetworkRunner: TLocationRunnable;

     FPassiveListener: TLocationListener;

     FPassiveRunner: TLocationRunnable;

   protected

     function DoStart: Boolean; override;

     procedure DoStop; override;

     function GetLocationSensorType: TLocationSensorType; override;

     function GetAvailableProperties: TCustomLocationSensor.TProperties; override;

     function GetDoubleProperty(Prop: TCustomLocationSensor.TProperty): Double; override;

     function GetStringProperty(Prop: TCustomLocationSensor.TProperty): string; override;

     function GetSensorCategory: TSensorCategory; override;

     function GetState: TSensorState; override;

     function GetTimeStamp: TDateTime; override;

     procedure DoOptimize; override;

     function GetAuthorized: TAuthorizationType; override;

     function GetAccuracy: TLocationAccuracy; override;

     function GetDistance: TLocationDistance; override;

     function GetPowerConsumption: TPowerConsumption; override;

     procedure SetAccuracy(const Value: TLocationAccuracy); override;

     procedure SetDistance(const Value: TLocationDistance); override;

     procedure DoLocationChangeType; override;

   public

     constructor Create(AManager: TSensorManager); override;

     function Supported: Boolean;

   end;

   TNativeSensor = class

   strict private

     FSensorType: Integer;

     FSensorManager: PASensorManager;

     FNativeSensor: PASensor;

     FNativeEventQueue: PASensorEventQueue;

     FLastSensorEvent: ASensorEvent;

     FUpdateInterval: Double;

     function GetInterval: Double;

     procedure SetInterval(const Value: Double);

     class function NativeCallBack(FileDescriptor, Events: Integer; Data: Pointer): Integer; cdecl; static;

   public

     constructor Create(SensorType: Integer);

     function Supported: Boolean;

     function LastValue: ASensorEvent;

     property UpdateInterval: Double read GetInterval write SetInterval;

     function DoStart: Boolean;

     procedure DoStop;

     function TimeStamp: Double;

   end;

 {

   TAndroidNativeSensor = class(TCustomSensor)

   strict private

     FNativeSensor: TNativeSensor;

   protected

     function GetSensorCategory: TSensorCategory; override;

     function GetState: TSensorState; override;

     function GetTimeStamp: TDateTime; override;

     function GetDoubleProperty(Prop: TProperty): Double; override;

   public

     constructor Create(AManager: TSensorManager); override;

     function Supported: Boolean;

   end;

 }

   TAndroidNativeGravitySensor = class(TCustomMotionSensor)

   strict private

     FNativeSensor: TNativeSensor;

   protected

     function GetMotionSensorType: TMotionSensorType; override;

     function GetAvailableProperties: TCustomMotionSensor.TProperties; override;

     function DoStart: Boolean; override;

     procedure DoStop; override;

     function GetSensorCategory: TSensorCategory; override;

     function GetState: TSensorState; override;

     function GetTimeStamp: TDateTime; override;

     function GetDoubleProperty(Prop: TCustomMotionSensor.TProperty): Double; override;

     function GetUpdateInterval: Double;  override;

     procedure SetUpdateInterval(AInterval: Double); override;

   public

     constructor Create(AManager: TSensorManager); override;

     function Supported: Boolean;

   end;

   TAndroidNativeLinearAccelerometrSensor = class(TCustomMotionSensor)

   strict private

     FNativeSensor: TNativeSensor;

   protected

     function GetMotionSensorType: TMotionSensorType; override;

     function GetAvailableProperties: TCustomMotionSensor.TProperties; override;

     function DoStart: Boolean; override;

     procedure DoStop; override;

     function GetSensorCategory: TSensorCategory; override;

     function GetState: TSensorState; override;

     function GetTimeStamp: TDateTime; override;

     function GetDoubleProperty(Prop: TCustomMotionSensor.TProperty): Double; override;

     function GetUpdateInterval: Double;  override;

     procedure SetUpdateInterval(AInterval: Double); override;

   public

     constructor Create(AManager: TSensorManager); override;

     function Supported: Boolean;

   end;

   TAndroidNativeHumiditySensor = class(TCustomEnvironmentalSensor)

   strict private

     FNativeSensor: TNativeSensor;

   protected

     function GetSensorCategory: TSensorCategory; override;

     function GetState: TSensorState; override;

     function GetTimeStamp: TDateTime; override;

     function GetDoubleProperty(Prop: TCustomEnvironmentalSensor.TProperty): Double; override;

     function GetEnvironmentalSensorType: TEnvironmentalSensorType; override;

     function GetAvailableProperties: TCustomEnvironmentalSensor.TProperties; override;

   public

     constructor Create(AManager: TSensorManager); override;

     function Supported: Boolean;

   end;

   TAndroidNativeTemperatureSensor = class(TCustomEnvironmentalSensor)

   strict private

     FNativeSensor: TNativeSensor;

   protected

     function GetSensorCategory: TSensorCategory; override;

     function GetState: TSensorState; override;

     function GetTimeStamp: TDateTime; override;

     function GetDoubleProperty(Prop: TCustomEnvironmentalSensor.TProperty): Double; override;

     function GetEnvironmentalSensorType: TEnvironmentalSensorType; override;

     function GetAvailableProperties: TCustomEnvironmentalSensor.TProperties; override;

   public

     constructor Create(AManager: TSensorManager); override;

     function Supported: Boolean;

   end;

   TAndroidNativeProximitySensor = class(TCustomBiometricSensor)

   strict private

     FNativeSensor: TNativeSensor;

   protected

     function GetBiometricSensorType: TBiometricSensorType; override;

     function GetSensorCategory: TSensorCategory; override;

     function GetState: TSensorState; override;

     function GetTimeStamp: TDateTime; override;

     function GetAvailableProperties: TCustomBiometricSensor.TProperties; override;

     function GetDoubleProperty(Prop: TCustomBiometricSensor.TProperty): Double; override;

   public

     constructor Create(AManager: TSensorManager); override;

     function Supported: Boolean;

   end;

   TAndroidNativeMagneticSensor = class(TCustomOrientationSensor)

   strict private

     FNativeSensor: TNativeSensor;

   protected

     function GetUpdateInterval: Double;  override;

     procedure SetUpdateInterval(AInterval: Double); override;

     function GetOrientationSensorType: TOrientationSensorType; override;

     //Heading的值不刷新begin

     function DoStart: Boolean; override;

     procedure DoStop; override;

     //Heading的值不刷新end

     function GetSensorCategory: TSensorCategory; override;

     function GetState: TSensorState; override;

     function GetTimeStamp: TDateTime; override;

     function GetAvailableProperties: TCustomOrientationSensor.TProperties; override;

     function GetDoubleProperty(Prop: TCustomOrientationSensor.TProperty): Double; override;

   public

     constructor Create(AManager: TSensorManager); override;

     function Supported: Boolean;

   end;

   TAndroidNativePressureSensor = class(TCustomEnvironmentalSensor)

   strict private

     FNativeSensor: TNativeSensor;

   protected

     function GetSensorCategory: TSensorCategory; override;

     function GetState: TSensorState; override;

     function GetTimeStamp: TDateTime; override;

     function GetEnvironmentalSensorType: TEnvironmentalSensorType; override;

     function GetAvailableProperties: TCustomEnvironmentalSensor.TProperties; override;

     function GetDoubleProperty(Prop: TCustomEnvironmentalSensor.TProperty): Double; override;

   public

     constructor Create(AManager: TSensorManager); override;

     function Supported: Boolean;

   end;

   TAndroidNativeLightSensor = class(TCustomLightSensor)

   strict private

     FNativeSensor: TNativeSensor;

   protected

     function GetLightSensorType: TLightSensorType; override;

     function GetAvailableProperties: TCustomLightSensor.TProperties; override;

     function GetDoubleProperty(Prop: TCustomLightSensor.TProperty): Double; override;

     function GetSensorCategory: TSensorCategory; override;

     function GetState: TSensorState; override;

     function GetTimeStamp: TDateTime; override;

   public

     constructor Create(AManager: TSensorManager); override;

     function Supported: Boolean;

   end;

   TAndroidNativeAccelerometrSensor = class(TCustomMotionSensor)

   strict private

     FNativeSensor: TNativeSensor;

   protected

     function GetMotionSensorType: TMotionSensorType; override;

     function GetAvailableProperties: TCustomMotionSensor.TProperties; override;

     function DoStart: Boolean; override;

     procedure DoStop; override;

     function GetSensorCategory: TSensorCategory; override;

     function GetState: TSensorState; override;

     function GetTimeStamp: TDateTime; override;

     function GetDoubleProperty(Prop: TCustomMotionSensor.TProperty): Double; override;

     function GetUpdateInterval: Double;  override;

     procedure SetUpdateInterval(AInterval: Double); override;

   public

     constructor Create(AManager: TSensorManager); override;

     function Supported: Boolean;

   end;

   TAndroidNativeRotationSensor = class(TCustomOrientationSensor)

   private

     FNativeSensor: TNativeSensor;

   protected

     constructor Create(AManager: TSensorManager); override;

   public

     function Supported: Boolean;

     function GetOrientationSensorType: TOrientationSensorType; override;

     function GetAvailableProperties: TCustomOrientationSensor.TProperties;  override;

     function GetDoubleProperty(Prop: TCustomOrientationSensor.TProperty): Double;  override;

     function GetSensorCategory: TSensorCategory; override;

     function GetUpdateInterval: Double;  override;

     procedure SetUpdateInterval(AInterval: Double); override;

     function DoStart: Boolean; override;

     procedure DoStop; override;

     function GetState: TSensorState; override;

     function GetTimeStamp: TDateTime; override;

   end;

   TAndroidNativeGyroscopeSensor = class(TCustomMotionSensor)

   private

     FNativeSensor: TNativeSensor;

   protected

     constructor Create(AManager: TSensorManager); override;

   public

     function Supported: Boolean;

     function GetMotionSensorType: TMotionSensorType; override;

     function GetAvailableProperties: TCustomMotionSensor.TProperties;  override;

     function GetDoubleProperty(Prop: TCustomMotionSensor.TProperty): Double;  override;

     function GetSensorCategory: TSensorCategory; override;

     function GetUpdateInterval: Double;  override;

     procedure SetUpdateInterval(AInterval: Double); override;

     function DoStart: Boolean; override;

     procedure DoStop; override;

     function GetState: TSensorState; override;

     function GetTimeStamp: TDateTime; override;

   end;

 type

   TAndroidSensorManager = class(TPlatformSensorManager)

   private

     FActive: Boolean;

     FSensorManager: PASensorManager;

   protected

     function GetCanActivate: Boolean; override;

     function GetActive: Boolean; override;

   public

     constructor Create;

     destructor Destroy; override;

     procedure Activate; override;

     procedure Deactivate; override;

   end;

 { TAndroidSensorManager }

 procedure TAndroidSensorManager.Activate;

 var

   Accelerator: TAndroidNativeAccelerometrSensor;

   Orientation: TAndroidNativeGyroscopeSensor;

   Light: TAndroidNativeLightSensor;

   Pressure: TAndroidNativePressureSensor;

   MagneticField: TAndroidNativeMagneticSensor;

   Proximity: TAndroidNativeProximitySensor;

   Rotation: TAndroidNativeRotationSensor;

   Temperature: TAndroidNativeTemperatureSensor;

   Humidity: TAndroidNativeHumiditySensor;

   Gravity: TAndroidNativeGravitySensor;

   LinearAcceleration: TAndroidNativeLinearAccelerometrSensor;

   Location: TUIAndroidLocationSensor;

 begin

   if not Active then

   begin

     FActive := True;

     Accelerator := TAndroidNativeAccelerometrSensor.Create(Self);

     if not Accelerator.Supported then

       RemoveSensor(Accelerator);

     Orientation := TAndroidNativeGyroscopeSensor.Create(Self);

     if not Orientation.Supported then

       RemoveSensor(Orientation);

     Light := TAndroidNativeLightSensor.Create(Self);

     if not Light.Supported then

       RemoveSensor(Light);

     Pressure := TAndroidNativePressureSensor.Create(Self);

     if not Pressure.Supported then

       RemoveSensor(Pressure);

     MagneticField := TAndroidNativeMagneticSensor.Create(Self);

     if not MagneticField.Supported then

       RemoveSensor(MagneticField);

     Proximity := TAndroidNativeProximitySensor.Create(Self);

     if not Proximity.Supported then

       RemoveSensor(Proximity);

     Rotation := TAndroidNativeRotationSensor.Create(Self);

     if not Rotation.Supported then

       RemoveSensor(Rotation);

     Temperature := TAndroidNativeTemperatureSensor.Create(Self);

     if not Temperature.Supported then

       RemoveSensor(Temperature);

     Humidity := TAndroidNativeHumiditySensor.Create(Self);

     if not Humidity.Supported then

       RemoveSensor(Humidity);

     Gravity := TAndroidNativeGravitySensor.Create(Self);

     if not Gravity.Supported then

       RemoveSensor(Gravity);

     LinearAcceleration := TAndroidNativeLinearAccelerometrSensor.Create(Self);

     if not LinearAcceleration.Supported then

       RemoveSensor(LinearAcceleration);

     Location := TUIAndroidLocationSensor.Create(Self);

     if not Location.Supported then

       RemoveSensor(Location);

   end;

 end;

 constructor TAndroidSensorManager.Create;

 begin

   inherited;

   FSensorManager := ASensorManager_getInstance;

   FActive := False;

 end;

 procedure TAndroidSensorManager.Deactivate;

 var

   I: Integer;

 begin

   FActive := False;

   for I := Count -  downto  do

     RemoveSensor(Sensors[I]);

 end;

 destructor TAndroidSensorManager.Destroy;

 begin

   inherited;

 end;

 function TAndroidSensorManager.GetActive: Boolean;

 begin

   Result := FActive;

 end;

 function TAndroidSensorManager.GetCanActivate: Boolean;

 begin

   Result := Assigned(FSensorManager);

 end;

 { TAndroidCustomSensor }

 constructor TAndroidNativeAccelerometrSensor.Create(AManager: TSensorManager);

 begin

   inherited;

   FNativeSensor := TNativeSensor.Create(ASENSOR_TYPE_ACCELEROMETER);

 end;

 function TAndroidNativeAccelerometrSensor.DoStart: Boolean;

 begin

   Result := FNativeSensor.DoStart;

 end;

 procedure TAndroidNativeAccelerometrSensor.DoStop;

 begin

   inherited;

   FNativeSensor.DoStop;

 end;

 function TAndroidNativeAccelerometrSensor.GetAvailableProperties: TCustomMotionSensor.TProperties;

 begin

   Result := [TCustomMotionSensor.TProperty.AccelerationX, TCustomMotionSensor.TProperty.AccelerationY,

     TCustomMotionSensor.TProperty.AccelerationZ]

 end;

 function TAndroidNativeAccelerometrSensor.GetDoubleProperty(

   Prop: TCustomMotionSensor.TProperty): Double;

 begin

   case Prop of

     TCustomMotionSensor.TProperty.AccelerationX: Result := - * FNativeSensor.LastValue.acceleration.x / ASENSOR_STANDARD_GRAVITY;

     TCustomMotionSensor.TProperty.AccelerationY: Result := - * FNativeSensor.LastValue.acceleration.y / ASENSOR_STANDARD_GRAVITY;

     TCustomMotionSensor.TProperty.AccelerationZ: Result := - * FNativeSensor.LastValue.acceleration.z / ASENSOR_STANDARD_GRAVITY;

   else

     Result := NaN;

   end;

 end;

 function TAndroidNativeAccelerometrSensor.GetMotionSensorType: TMotionSensorType;

 begin

   Result := TMotionSensorType.Accelerometer3D;

 end;

 function TAndroidNativeAccelerometrSensor.GetSensorCategory: TSensorCategory;

 begin

   Result := TSensorCategory.Motion;

 end;

 function TAndroidNativeAccelerometrSensor.GetState: TSensorState;

 begin

   if Supported then

     Result := TSensorState.Ready

   else

     Result := TSensorState.NoData;

 end;

 function TAndroidNativeAccelerometrSensor.GetTimeStamp: TDateTime;

 begin

   Result := FNativeSensor.TimeStamp;

 end;

 function TAndroidNativeAccelerometrSensor.GetUpdateInterval: Double;

 begin

   Result := FNativeSensor.UpdateInterval;

 end;

 procedure TAndroidNativeAccelerometrSensor.SetUpdateInterval(AInterval: Double);

 begin

   if Supported then

     FNativeSensor.UpdateInterval := AInterval;

 end;

 function TAndroidNativeAccelerometrSensor.Supported: Boolean;

 begin

   Result := FNativeSensor.Supported;

 end;

 { TPlatformSensorManager }

 class function TPlatformSensorManager.GetSensorManager: TSensorManager;

 begin

   Result := TAndroidSensorManager.Create;

 end;

 { TPlatformGeocoder }

 class function TPlatformGeocoder.GetGeocoderImplementer: TGeocoderClass;

 begin

   Result := TAndroidGeocoder;

 end;

 { TPlatformGpsStatus }

 class function TPlatformGpsStatus.GetGpsStatusImplementer: TGpsStatusClass;

 begin

   Result := nil;

 end;

 constructor TAndroidNativeGyroscopeSensor.Create(AManager: TSensorManager);

 begin

   inherited;

   FNativeSensor := TNativeSensor.Create(ASENSOR_TYPE_GYROSCOPE);

 end;

 function TAndroidNativeGyroscopeSensor.DoStart: Boolean;

 begin

   Result := FNativeSensor.DoStart;

 end;

 procedure TAndroidNativeGyroscopeSensor.DoStop;

 begin

   inherited;

   FNativeSensor.DoStop;

 end;

 function TAndroidNativeGyroscopeSensor.GetAvailableProperties: TCustomMotionSensor.TProperties;

 begin

   Result := [TCustomMotionSensor.TProperty.AngleAccelX, TCustomMotionSensor.TProperty.AngleAccelY, TCustomMotionSensor.TProperty.AngleAccelZ];

 end;

 function TAndroidNativeGyroscopeSensor.GetDoubleProperty(

   Prop: TCustomMotionSensor.TProperty): Double;

 begin

   case Prop of

     TCustomMotionSensor.TProperty.AngleAccelX: Result := FNativeSensor.LastValue.vector.x;

     TCustomMotionSensor.TProperty.AngleAccelY: Result := FNativeSensor.LastValue.vector.y;

     TCustomMotionSensor.TProperty.AngleAccelZ: Result := FNativeSensor.LastValue.vector.z;

   else

     Result := NaN;

   end;

 end;

 function TAndroidNativeGyroscopeSensor.GetMotionSensorType: TMotionSensorType;

 begin

   Result := TMotionSensorType.Gyrometer3D;

 end;

 function TAndroidNativeGyroscopeSensor.GetSensorCategory: TSensorCategory;

 begin

   Result := TSensorCategory.Motion;

 end;

 function TAndroidNativeGyroscopeSensor.GetState: TSensorState;

 begin

   if FNativeSensor.Supported then

     Result := TSensorState.Ready

   else

     Result := TSensorState.NoData;

 end;

 function TAndroidNativeGyroscopeSensor.GetTimeStamp: TDateTime;

 begin

   Result := FNativeSensor.TimeStamp;

 end;

 function TAndroidNativeGyroscopeSensor.GetUpdateInterval: Double;

 begin

   Result := FNativeSensor.UpdateInterval;

 end;

 procedure TAndroidNativeGyroscopeSensor.SetUpdateInterval(AInterval: Double);

 begin

   inherited;

   FNativeSensor.UpdateInterval := AInterval;

 end;

 function TAndroidNativeGyroscopeSensor.Supported: Boolean;

 begin

   Result := FNativeSensor.Supported;

 end;

 { TNativeSensor }

 constructor TNativeSensor.Create(SensorType: Integer);

 begin

   FSensorType := SensorType;

   FSensorManager := ASensorManager_getInstance;

   FNativeSensor := ASensorManager_getDefaultSensor(FSensorManager, SensorType);

   FNativeEventQueue := ASensorManager_createEventQueue(FSensorManager, ALooper_forThread, LOOPER_ID_USER,

     nil, nil);

   SetInterval();

 end;

 function TNativeSensor.DoStart: Boolean;

 begin

   Result := True;

   if Supported then

     ASensorEventQueue_enableSensor(FNativeEventQueue,FNativeSensor);

 end;

 procedure TNativeSensor.DoStop;

 begin

   ASensorEventQueue_disableSensor(FNativeEventQueue,FNativeSensor);

 end;

 function TNativeSensor.GetInterval: Double;

 begin

   Result := FUpdateInterval;

 end;

 function TNativeSensor.LastValue: ASensorEvent;

 var

   SensorEvent: ASensorEvent;

 begin

   while ASensorEventQueue_getEvents(FNativeEventQueue, @SensorEvent,) >  do

       FLastSensorEvent := SensorEvent;

   Result := FLastSensorEvent;

 end;

 class function TNativeSensor.NativeCallBack(FileDescriptor, Events: Integer; Data: Pointer): Integer;

 const

   UnregisteredFromTheLooper = ;

   ContinueReceivingCallbacks = ;

 begin

   Result := ContinueReceivingCallbacks;

 end;

 procedure TNativeSensor.SetInterval(const Value: Double);

 begin

   if Supported then

   begin

     FUpdateInterval := Value;

     ASensorEventQueue_setEventRate(FNativeEventQueue,FNativeSensor,Round(FUpdateInterval));

   end;

 end;

 function TNativeSensor.Supported: Boolean;

 begin

   Result := Assigned(FNativeSensor) and Assigned(FNativeEventQueue);

 end;

 function TNativeSensor.TimeStamp: Double;

 begin

   Result := NaN;

   if Supported then

     Result := FLastSensorEvent.timestamp;

 end;

 { TAndroidNativeLightSensor }

 constructor TAndroidNativeLightSensor.Create(AManager: TSensorManager);

 begin

   inherited;

   FNativeSensor := TNativeSensor.Create(ASENSOR_TYPE_LIGHT);

 end;

 function TAndroidNativeLightSensor.GetAvailableProperties: TCustomLightSensor.TProperties;

 begin

   Result := [TCustomLightSensor.TProperty.Lux];

 end;

 function TAndroidNativeLightSensor.GetDoubleProperty(Prop: TCustomLightSensor.TProperty): Double;

 begin

   case Prop of

     TCustomLightSensor.TProperty.Lux: Result := FNativeSensor.LastValue.light;

   else

     Result := NaN;

   end;

 end;

 function TAndroidNativeLightSensor.GetLightSensorType: TLightSensorType;

 begin

   Result := TLightSensorType.AmbientLight;

 end;

 function TAndroidNativeLightSensor.GetSensorCategory: TSensorCategory;

 begin

   Result := TSensorCategory.Light;

 end;

 function TAndroidNativeLightSensor.GetState: TSensorState;

 begin

   if FNativeSensor.Supported then

     Result := TSensorState.Ready

   else

     Result := TSensorState.NoData;

 end;

 function TAndroidNativeLightSensor.GetTimeStamp: TDateTime;

 begin

   Result := FNativeSensor.TimeStamp;

 end;

 function TAndroidNativeLightSensor.Supported: Boolean;

 begin

   Result := FNativeSensor.Supported;

 end;

 { TAndroidNativePressureSensor }

 constructor TAndroidNativePressureSensor.Create(AManager: TSensorManager);

 begin

   inherited;

   FNativeSensor := TNativeSensor.Create(ASENSOR_TYPE_PRESSURE);

 end;

 function TAndroidNativePressureSensor.GetAvailableProperties: TCustomEnvironmentalSensor.TProperties;

 begin

   Result := [TCustomEnvironmentalSensor.TProperty.Pressure];

 end;

 function TAndroidNativePressureSensor.GetDoubleProperty(

   Prop: TCustomEnvironmentalSensor.TProperty): Double;

 begin

   case Prop of

     //  Atmospheric pressure in hPa (millibar)

     TCustomEnvironmentalSensor.TProperty.Pressure: Result := FNativeSensor.LastValue.pressure;

   else

     Result := NaN;

   end;

 end;

 function TAndroidNativePressureSensor.GetEnvironmentalSensorType: TEnvironmentalSensorType;

 begin

   Result := TEnvironmentalSensorType.AtmosphericPressure;

 end;

 function TAndroidNativePressureSensor.GetSensorCategory: TSensorCategory;

 begin

   Result := TSensorCategory.Environmental;

 end;

 function TAndroidNativePressureSensor.GetState: TSensorState;

 begin

   if Supported then

     Result := TSensorState.Ready

   else

     Result := TSensorState.NoData;

 end;

 function TAndroidNativePressureSensor.GetTimeStamp: TDateTime;

 begin

   Result := FNativeSensor.TimeStamp;

 end;

 function TAndroidNativePressureSensor.Supported: Boolean;

 begin

   Result := FNativeSensor.Supported;

 end;

 { TAndroidNativeMagneticSensor }

 constructor TAndroidNativeMagneticSensor.Create(AManager: TSensorManager);

 begin

   inherited;

   FNativeSensor := TNativeSensor.Create(ASENSOR_TYPE_MAGNETIC_FIELD);

 end;

 //Heading的值不刷新begin

 function TAndroidNativeMagneticSensor.DoStart: Boolean;

 begin

   Result := FNativeSensor.DoStart;

 end;

 procedure TAndroidNativeMagneticSensor.DoStop;

 begin

   inherited;

   FNativeSensor.DoStop;

 end;

 //Heading的值不刷新end

 function TAndroidNativeMagneticSensor.GetAvailableProperties: TCustomOrientationSensor.TProperties;

 begin

   Result := [TCustomOrientationSensor.TProperty.HeadingX, TCustomOrientationSensor.TProperty.HeadingY,

     TCustomOrientationSensor.TProperty.HeadingZ];

 end;

 function TAndroidNativeMagneticSensor.GetDoubleProperty(

   Prop: TCustomOrientationSensor.TProperty): Double;

 begin

   case Prop of

     // All values are in micro-Tesla (uT) and measure the ambient magnetic field in the X, Y and Z axis.

     TCustomOrientationSensor.TProperty.HeadingX: Result := FNativeSensor.LastValue.magnetic.x;

     TCustomOrientationSensor.TProperty.HeadingY: Result := FNativeSensor.LastValue.magnetic.y;

     TCustomOrientationSensor.TProperty.HeadingZ: Result := FNativeSensor.LastValue.magnetic.z;

   else

     Result := NaN;

   end;

 end;

 function TAndroidNativeMagneticSensor.GetOrientationSensorType: TOrientationSensorType;

 begin

   Result := TOrientationSensorType.Compass3D;

 end;

 function TAndroidNativeMagneticSensor.GetSensorCategory: TSensorCategory;

 begin

   Result := TSensorCategory.Orientation;

 end;

 function TAndroidNativeMagneticSensor.GetState: TSensorState;

 begin

   if Supported then

     Result := TSensorState.Ready

   else

     Result := TSensorState.NoData;

 end;

 function TAndroidNativeMagneticSensor.GetTimeStamp: TDateTime;

 begin

   Result := FNativeSensor.TimeStamp;

 end;

 function TAndroidNativeMagneticSensor.GetUpdateInterval: Double;

 begin

   Result := FNativeSensor.UpdateInterval;

 end;

 procedure TAndroidNativeMagneticSensor.SetUpdateInterval(AInterval: Double);

 begin

   inherited;

   FNativeSensor.UpdateInterval := AInterval;

 end;

 function TAndroidNativeMagneticSensor.Supported: Boolean;

 begin

   Result := FNativeSensor.Supported;

 end;

 { TAndroidNativeProximitySensor }

 constructor TAndroidNativeProximitySensor.Create(AManager: TSensorManager);

 begin

   inherited;

   FNativeSensor := TNativeSensor.Create(ASENSOR_TYPE_PROXIMITY);

 end;

 function TAndroidNativeProximitySensor.GetAvailableProperties: TCustomBiometricSensor.TProperties;

 begin

   Result := [TCustomBiometricSensor.TProperty.HumanProximity];

 end;

 function TAndroidNativeProximitySensor.GetBiometricSensorType: TBiometricSensorType;

 begin

   Result := TBiometricSensorType.HumanProximity;

 end;

 function TAndroidNativeProximitySensor.GetDoubleProperty(

   Prop: TCustomBiometricSensor.TProperty): Double;

 begin

   case Prop of

     // Proximity sensor distance measured in centimeters

     TCustomBiometricSensor.TProperty.HumanProximity:

     begin

       Result := FNativeSensor.LastValue.proximity;

     end;

   else

     Result := NaN;

   end;

 end;

 function TAndroidNativeProximitySensor.GetSensorCategory: TSensorCategory;

 begin

   Result := TSensorCategory.Biometric;

 end;

 function TAndroidNativeProximitySensor.GetState: TSensorState;

 begin

   if Supported then

     Result := TSensorState.Ready

   else

     Result := TSensorState.NoData;

 end;

 function TAndroidNativeProximitySensor.GetTimeStamp: TDateTime;

 begin

   Result := FNativeSensor.TimeStamp;

 end;

 function TAndroidNativeProximitySensor.Supported: Boolean;

 begin

   Result := FNativeSensor.Supported;

 end;

 { TAndroidNativeRotationSensor }

 constructor TAndroidNativeRotationSensor.Create(AManager: TSensorManager);

 begin

   inherited;

   FNativeSensor := TNativeSensor.Create(ASENSOR_TYPE_ROTATION_VECTOR);

 end;

 function TAndroidNativeRotationSensor.DoStart: Boolean;

 begin

   Result := FNativeSensor.DoStart;

 end;

 procedure TAndroidNativeRotationSensor.DoStop;

 begin

   inherited;

   FNativeSensor.DoStop;

 end;

 function TAndroidNativeRotationSensor.GetAvailableProperties: TCustomOrientationSensor.TProperties;

 begin

   Result := [TCustomOrientationSensor.TProperty.TiltX, TCustomOrientationSensor.TProperty.TiltY, TCustomOrientationSensor.TProperty.TiltZ];

 end;

 function TAndroidNativeRotationSensor.GetDoubleProperty(Prop: TCustomOrientationSensor.TProperty): Double;

 var

   Tilts: ASensorVector;

   function VectorToAngles(const RotationVector: ASensorVector): ASensorVector;

   var

     RM: array[..] of Double;

     Len: Double;

     sqX, sqY, sqZ, qXY, qZL, qXZ, qYL, qYZ, qXL: Double;

   begin

     sqX := RotationVector.x * RotationVector.x;

     sqY := RotationVector.y * RotationVector.y;

     sqZ := RotationVector.z * RotationVector.z;

     Len :=  - sqX - sqY - sqZ;

     if Len >  then

       Len := Sqrt(Len)

     else

       Len := ;

     sqX :=  * sqX;

     sqY :=  * sqY;

     sqZ :=  * sqZ;

     qXY :=  * RotationVector.x * RotationVector.y;

     qZL :=  * RotationVector.z * Len;

     qXZ :=  * RotationVector.x * RotationVector.z;

     qYL :=  * RotationVector.y * Len;

     qYZ :=  * RotationVector.y * RotationVector.z;

     qXL :=  * RotationVector.x * Len;

     RM[] :=  - sqY - sqZ;

     RM[] := qXY - qZL;

     RM[] := qXZ + qYL;

     RM[] := qXY + qZL;

     RM[] :=  - sqX - sqZ;

     RM[] := qYZ - qXL;

     RM[] := qXZ - qYL;

     RM[] := qYZ + qXL;

     RM[] :=  - sqX - sqY;

     Result.azimuth := RadToDeg(ArcTan2( RM[], RM[]));

     Result.pitch := RadToDeg(ArcCos( - RM[]) - Pi / );

     Result.roll := RadToDeg(ArcTan2( - RM[], RM[]));

   end;

 begin

   Tilts := VectorToAngles(FNativeSensor.LastValue.vector);

   case Prop of

     TCustomOrientationSensor.TProperty.TiltX: Result := Tilts.roll;

     TCustomOrientationSensor.TProperty.TiltY: Result := Tilts.pitch;

     TCustomOrientationSensor.TProperty.TiltZ: Result := Tilts.azimuth;

   else

     Result := NaN;

   end;

 end;

 function TAndroidNativeRotationSensor.GetOrientationSensorType: TOrientationSensorType;

 begin

   Result := TOrientationSensorType.Inclinometer3D;

 end;

 function TAndroidNativeRotationSensor.GetSensorCategory: TSensorCategory;

 begin

   Result := TSensorCategory.Orientation;

 end;

 function TAndroidNativeRotationSensor.GetState: TSensorState;

 begin

   if FNativeSensor.Supported then

     Result := TSensorState.Ready

   else

     Result := TSensorState.NoData;

 end;

 function TAndroidNativeRotationSensor.GetTimeStamp: TDateTime;

 begin

   Result := FNativeSensor.TimeStamp;

 end;

 function TAndroidNativeRotationSensor.GetUpdateInterval: Double;

 begin

   Result := FNativeSensor.UpdateInterval;

 end;

 procedure TAndroidNativeRotationSensor.SetUpdateInterval(AInterval: Double);

 begin

   inherited;

   FNativeSensor.UpdateInterval := AInterval;

 end;

 function TAndroidNativeRotationSensor.Supported: Boolean;

 begin

   Result := FNativeSensor.Supported;

 end;

 { TAndroidNativeTemperatureSensor }

 constructor TAndroidNativeTemperatureSensor.Create(AManager: TSensorManager);

 begin

   inherited;

   FNativeSensor := TNativeSensor.Create(ASENSOR_TYPE_AMBIENT_TEMPERATURE);

 end;

 function TAndroidNativeTemperatureSensor.GetAvailableProperties: TCustomEnvironmentalSensor.TProperties;

 begin

   Result := [TCustomEnvironmentalSensor.TProperty.Temperature];

 end;

 function TAndroidNativeTemperatureSensor.GetDoubleProperty(

   Prop: TCustomEnvironmentalSensor.TProperty): Double;

 begin

   case Prop of

     // ambient (room) temperature in degree Celsius

     TCustomEnvironmentalSensor.TProperty.Temperature: Result := FNativeSensor.LastValue.temperature;

   else

     Result := NaN;

   end;

 end;

 function TAndroidNativeTemperatureSensor.GetEnvironmentalSensorType: TEnvironmentalSensorType;

 begin

   Result := TEnvironmentalSensorType.Temperature;

 end;

 function TAndroidNativeTemperatureSensor.GetSensorCategory: TSensorCategory;

 begin

   Result := TSensorCategory.Environmental;

 end;

 function TAndroidNativeTemperatureSensor.GetState: TSensorState;

 begin

   if Supported then

     Result := TSensorState.Ready

   else

     Result := TSensorState.NoData;

 end;

 function TAndroidNativeTemperatureSensor.GetTimeStamp: TDateTime;

 begin

   Result := FNativeSensor.TimeStamp;

 end;

 function TAndroidNativeTemperatureSensor.Supported: Boolean;

 begin

   Result := FNativeSensor.Supported;

 end;

 { TAndroidNativeSensor }

 constructor TAndroidNativeHumiditySensor.Create(AManager: TSensorManager);

 begin

   inherited;

   FNativeSensor := TNativeSensor.Create(ASENSOR_TYPE_RELATIVE_HUMIDITY);

 end;

 function TAndroidNativeHumiditySensor.GetAvailableProperties: TCustomEnvironmentalSensor.TProperties;

 begin

   Result := [TCustomEnvironmentalSensor.TProperty.Humidity];

 end;

 function TAndroidNativeHumiditySensor.GetDoubleProperty(

   Prop: TCustomEnvironmentalSensor.TProperty): Double;

 begin

   case Prop of

     // Relative ambient air humidity in percent

     TCustomEnvironmentalSensor.TProperty.Humidity: Result := FNativeSensor.LastValue.vector.v[];

   else

     Result := NaN;

   end;

 end;

 function TAndroidNativeHumiditySensor.GetEnvironmentalSensorType: TEnvironmentalSensorType;

 begin

   Result := TEnvironmentalSensorType.Humidity;

 end;

 function TAndroidNativeHumiditySensor.GetSensorCategory: TSensorCategory;

 begin

   Result := TSensorCategory.Environmental;

 end;

 function TAndroidNativeHumiditySensor.GetState: TSensorState;

 begin

   if Supported then

     Result := TSensorState.Ready

   else

     Result := TSensorState.NoData;

 end;

 function TAndroidNativeHumiditySensor.GetTimeStamp: TDateTime;

 begin

   Result := FNativeSensor.TimeStamp;

 end;

 function TAndroidNativeHumiditySensor.Supported: Boolean;

 begin

   Result := FNativeSensor.Supported;

 end;

 { TAndroidNativeGravitySensor }

 constructor TAndroidNativeGravitySensor.Create(AManager: TSensorManager);

 begin

   inherited;

   FNativeSensor := TNativeSensor.Create(ASENSOR_TYPE_GRAVITY);

 end;

 function TAndroidNativeGravitySensor.DoStart: Boolean;

 begin

   Result := FNativeSensor.DoStart;

 end;

 procedure TAndroidNativeGravitySensor.DoStop;

 begin

   inherited;

   FNativeSensor.DoStop;

 end;

 function TAndroidNativeGravitySensor.GetAvailableProperties: TCustomMotionSensor.TProperties;

 begin

   Result := [TCustomMotionSensor.TProperty.AccelerationX, TCustomMotionSensor.TProperty.AccelerationY,

     TCustomMotionSensor.TProperty.AccelerationZ]

 end;

 function TAndroidNativeGravitySensor.GetDoubleProperty(

   Prop: TCustomMotionSensor.TProperty): Double;

 begin

   case Prop of

     TCustomMotionSensor.TProperty.AccelerationX: Result := - * FNativeSensor.LastValue.acceleration.x / ASENSOR_STANDARD_GRAVITY;

     TCustomMotionSensor.TProperty.AccelerationY: Result := - * FNativeSensor.LastValue.acceleration.y / ASENSOR_STANDARD_GRAVITY;

     TCustomMotionSensor.TProperty.AccelerationZ: Result := - * FNativeSensor.LastValue.acceleration.z / ASENSOR_STANDARD_GRAVITY;

   else

     Result := NaN;

   end;

 end;

 function TAndroidNativeGravitySensor.GetMotionSensorType: TMotionSensorType;

 begin

   Result := TMotionSensorType.GravityAccelerometer3D;

 end;

 function TAndroidNativeGravitySensor.GetSensorCategory: TSensorCategory;

 begin

   Result := TSensorCategory.Motion;

 end;

 function TAndroidNativeGravitySensor.GetState: TSensorState;

 begin

   if Supported then

     Result := TSensorState.Ready

   else

     Result := TSensorState.NoData;

 end;

 function TAndroidNativeGravitySensor.GetTimeStamp: TDateTime;

 begin

   Result := FNativeSensor.TimeStamp;

 end;

 function TAndroidNativeGravitySensor.GetUpdateInterval: Double;

 begin

   Result := FNativeSensor.UpdateInterval;

 end;

 procedure TAndroidNativeGravitySensor.SetUpdateInterval(AInterval: Double);

 begin

   inherited;

   FNativeSensor.UpdateInterval := AInterval;

 end;

 function TAndroidNativeGravitySensor.Supported: Boolean;

 begin

   Result := FNativeSensor.Supported;

 end;

 { TAndroidNativeLinearAccelerometrSensor }

 constructor TAndroidNativeLinearAccelerometrSensor.Create(

   AManager: TSensorManager);

 begin

   inherited;

   FNativeSensor := TNativeSensor.Create(ASENSOR_TYPE_LINEAR_ACCELERATION);

 end;

 function TAndroidNativeLinearAccelerometrSensor.DoStart: Boolean;

 begin

   Result := FNativeSensor.DoStart;

 end;

 procedure TAndroidNativeLinearAccelerometrSensor.DoStop;

 begin

   inherited;

   DoStop;

 end;

 function TAndroidNativeLinearAccelerometrSensor.GetAvailableProperties: TCustomMotionSensor.TProperties;

 begin

   Result := [TCustomMotionSensor.TProperty.AccelerationX, TCustomMotionSensor.TProperty.AccelerationY,

     TCustomMotionSensor.TProperty.AccelerationZ]

 end;

 function TAndroidNativeLinearAccelerometrSensor.GetDoubleProperty(

   Prop: TCustomMotionSensor.TProperty): Double;

 begin

   case Prop of

     TCustomMotionSensor.TProperty.AccelerationX: Result := - * FNativeSensor.LastValue.acceleration.x / ASENSOR_STANDARD_GRAVITY;

     TCustomMotionSensor.TProperty.AccelerationY: Result := - * FNativeSensor.LastValue.acceleration.y / ASENSOR_STANDARD_GRAVITY;

     TCustomMotionSensor.TProperty.AccelerationZ: Result := - * FNativeSensor.LastValue.acceleration.z / ASENSOR_STANDARD_GRAVITY;

   else

     Result := NaN;

   end;

 end;

 function TAndroidNativeLinearAccelerometrSensor.GetMotionSensorType: TMotionSensorType;

 begin

   Result := TMotionSensorType.LinearAccelerometer3D;

 end;

 function TAndroidNativeLinearAccelerometrSensor.GetSensorCategory: TSensorCategory;

 begin

   Result := TSensorCategory.Motion;

 end;

 function TAndroidNativeLinearAccelerometrSensor.GetState: TSensorState;

 begin

   if Supported then

     Result := TSensorState.Ready

   else

     Result := TSensorState.NoData;

 end;

 function TAndroidNativeLinearAccelerometrSensor.GetTimeStamp: TDateTime;

 begin

   Result := FNativeSensor.TimeStamp;

 end;

 function TAndroidNativeLinearAccelerometrSensor.GetUpdateInterval: Double;

 begin

   Result := FNativeSensor.UpdateInterval;

 end;

 procedure TAndroidNativeLinearAccelerometrSensor.SetUpdateInterval(

   AInterval: Double);

 begin

   inherited;

   FNativeSensor.UpdateInterval := AInterval;

 end;

 function TAndroidNativeLinearAccelerometrSensor.Supported: Boolean;

 begin

   Result := FNativeSensor.Supported;

 end;

 { TUIAndroidLocationSensor.TLocationListener }

 constructor TUIAndroidLocationSensor.TLocationListener.Create(ALocationSensor: TUIAndroidLocationSensor);

 begin

   inherited Create;

   FLocationSensor := ALocationSensor;

 end;

 procedure TUIAndroidLocationSensor.TLocationListener.onLocationChanged(P1: JLocation);

 var

   OldLocation, CurrentLocation: TLocationCoord2D;

   Heading: THeading;

 begin

   if Assigned(FLocationSensor.FLastValue) then

     OldLocation.Create(FLocationSensor.FLastValue.getLatitude,

       FLocationSensor.FLastValue.getLongitude)

   else

     OldLocation.Create(NaN,NaN);

   CurrentLocation.Create(P1.getLatitude, P1.getLongitude);

   FLocationSensor.FLastValue := P1;

   FLocationSensor.DoLocationChanged(OldLocation, CurrentLocation);

   if p1.hasBearing then

   begin

     Heading.Azimuth := P1.getBearing;

     FLocationSensor.DoHeadingChanged(Heading);

   end;

 end;

 procedure TUIAndroidLocationSensor.TLocationListener.onProviderDisabled(

   P1: JString);

 begin

 ;

 end;

 procedure TUIAndroidLocationSensor.TLocationListener.onProviderEnabled(

   P1: JString);

 begin

 ;

 end;

 procedure TUIAndroidLocationSensor.TLocationListener.onStatusChanged(

   P1: JString; P2: Integer; P3: JBundle);

 begin

 ;

 end;

 { TUIAndroidLocationSensor.TLocationRunnable }

 constructor TUIAndroidLocationSensor.TLocationRunnable.Create(ALocationManager: JLocationManager; AListener:

   TLocationListener; AProvider: JString);

 begin

   Inherited Create;

   FLocationManager := ALocationManager;

   FListener := AListener;

   FProvider := AProvider;

 end;

 procedure TUIAndroidLocationSensor.TLocationRunnable.run;

 const

   cMinTime = ;

   cMinDistance = ;

 begin

   FLocationManager.requestLocationUpdates( FProvider, cMinTime, cMinDistance, FListener);

 end;

 { TUIAndroidLocationSensor }

 constructor TUIAndroidLocationSensor.Create(AManager: TSensorManager);

 var

   LocationService: JObject;

 begin

   inherited;

   FActivity := TJNativeActivity.Wrap(PANativeActivity(System.DelphiActivity)^.clazz);

   LocationService := FActivity.getSystemService(TJContext.JavaClass.LOCATION_SERVICE);

   if Assigned(LocationService) then

     FLocationManager := TJLocationManager.Wrap((LocationService as ILocalObject).GetObjectID);

 end;

 procedure TUIAndroidLocationSensor.DoLocationChangeType;

 begin

   inherited;

 end;

 procedure TUIAndroidLocationSensor.DoOptimize;

 begin

 end;

 function TUIAndroidLocationSensor.DoStart: Boolean;

   function RunIfPossible(var ARunnable: TLocationRunnable; var AListener: TLocationListener; AProviderName: JString):

     Boolean;

   var

     Provider: JLocationProvider;

   begin

     Result := False;

     if FLocationManager.isProviderEnabled(AProviderName) then

     begin

       if AListener = nil then

         AListener := TLocationListener.Create(Self);

       Provider := FLocationManager.getProvider(AProviderName);

       if Provider <> nil then

       begin

         ARunnable := TLocationRunnable.Create(FLocationManager, AListener, AProviderName);

         FActivity.runOnUiThread(ARunnable);

         Result := True;

       end;

     end;

   end;

   function RunTheBestProvider(var ARunnable: TLocationRunnable; var AListener: TLocationListener):Boolean;

   var

     Criteria: JCriteria;

     ProviderName: JString;

   begin

     Result := False;

     Criteria := TJCriteria.JavaClass.init;

     case Round(FAccuracy) of

       ..:

         Criteria.setHorizontalAccuracy(TJCriteria.JavaClass.ACCURACY_HIGH);

       ..:

         Criteria.setHorizontalAccuracy(TJCriteria.JavaClass.ACCURACY_MEDIUM);

     else

       Criteria.setHorizontalAccuracy(TJCriteria.JavaClass.ACCURACY_LOW);

     end;

     ProviderName := FLocationManager.getBestProvider(Criteria, True);

     if ProviderName <> nil then

       Result := RunIfPossible(ARunnable, AListener, ProviderName);

   end;

 var

   GPSStarted, NetworkStarted, PassiveStarted: Boolean;

 begin

   Result := False;

   FPermitted := TPermission.IsPermitted(StringToJString('android.permission.ACCESS_FINE_LOCATION'));

   if FPermitted then

   begin

     if FAccuracy >  then

       Result := RunTheBestProvider(FPassiveRunner, FPassiveListener)

     else

     begin

       GPSStarted := RunIfPossible(FGPSRunner, FGPSListener, TJLocationManager.JavaClass.GPS_PROVIDER);

       NetworkStarted := RunIfPossible(FNetworkRunner, FNetworkListener, TJLocationManager.JavaClass.NETWORK_PROVIDER);

       PassiveStarted := RunIfPossible(FPassiveRunner, FPassiveListener, TJLocationManager.JavaClass.PASSIVE_PROVIDER);

       Result := GPSStarted or NetworkStarted or PassiveStarted;

     end;

   end;

 end;

 procedure TUIAndroidLocationSensor.DoStop;

 begin

   inherited;

   if FPassiveListener <> nil then

     FLocationManager.removeUpdates(FPassiveListener);

   if FNetworkListener <> nil then

     FLocationManager.removeUpdates(FNetworkListener);

   if FGPSListener <> nil then

     FLocationManager.removeUpdates(FGPSListener);

 end;

 function TUIAndroidLocationSensor.GetAccuracy: TLocationAccuracy;

 begin

   Result := FAccuracy;

 end;

 function TUIAndroidLocationSensor.GetAuthorized: TAuthorizationType;

 begin

   Result := TAuthorizationType.atNotSpecified;

 end;

 function TUIAndroidLocationSensor.GetAvailableProperties: TCustomLocationSensor.TProperties;

 begin

   Result := [TCustomLocationSensor.TProperty.Latitude,

     TCustomLocationSensor.TProperty.Longitude, TCustomLocationSensor.TProperty.Altitude,

     TCustomLocationSensor.TProperty.Speed, TCustomLocationSensor.TProperty.TrueHeading];

 end;

 function TUIAndroidLocationSensor.GetDistance: TLocationDistance;

 begin

   Result := FDistance;

 end;

 function TUIAndroidLocationSensor.GetDoubleProperty(Prop: TCustomLocationSensor.TProperty): Double;

 begin

   Result := NaN;

   if Assigned(FLastValue) then

     case Prop of

       TCustomLocationSensor.TProperty.Latitude: Result := FLastValue.getLatitude;

       TCustomLocationSensor.TProperty.Longitude: Result := FLastValue.getLongitude ;

       TCustomLocationSensor.TProperty.Altitude:

         if FLastValue.hasAltitude then

           Result := FLastValue.getAltitude;

       TCustomLocationSensor.TProperty.Speed:

         if FLastValue.hasSpeed then

           Result := FLastValue.getSpeed;

       TCustomLocationSensor.TProperty.TrueHeading:

         if FLastValue.hasBearing then

           Result := FLastValue.getBearing;

     else

       Result := NaN;

     end;

 end;

 function TUIAndroidLocationSensor.GetLocationSensorType: TLocationSensorType;

 begin

   Result := TLocationSensorType.GPS;

 end;

 function TUIAndroidLocationSensor.GetPowerConsumption: TPowerConsumption;

 begin

   Result := TPowerConsumption.pcNotSpecified;

 end;

 function TUIAndroidLocationSensor.GetSensorCategory: TSensorCategory;

 begin

   Result := TSensorCategory.Location;

 end;

 function TUIAndroidLocationSensor.GetState: TSensorState;

 begin

   if Supported then

     Result := TSensorState.Ready

   else

     Result := TSensorState.NoData;

 end;

 function TUIAndroidLocationSensor.GetStringProperty(Prop: TCustomLocationSensor.TProperty): string;

 begin

   Result := '';

 end;

 function TUIAndroidLocationSensor.GetTimeStamp: TDateTime;

 begin

   if Assigned(FLastValue) then

     Result := FLastValue.getTime

   else

     Result := ;

 end;

 procedure TUIAndroidLocationSensor.SetAccuracy(const Value: TLocationAccuracy);

 begin

   inherited;

   FAccuracy := Max(, Value);

 end;

 procedure TUIAndroidLocationSensor.SetDistance(const Value: TLocationDistance);

 begin

   inherited;

   FDistance := Value;

 end;

 function TUIAndroidLocationSensor.Supported: Boolean;

 begin

   Result := Assigned(FLocationManager);

 end;

 { TAndroidGeocoder }

 class function TAndroidGeocoder.Authorized: TAuthorizationType;

 begin

   Result := TAuthorizationType.atNotSpecified;

 end;

 class procedure TAndroidGeocoder.Cancel;

 begin

 ;

 end;

 class constructor TAndroidGeocoder.Create;

 begin

   FActivity := TJNativeActivity.Wrap(PANativeActivity(System.DelphiActivity)^.clazz);

   FGeocoder := TJGeocoder.JavaClass.init(FActivity);

 end;

 class destructor TAndroidGeocoder.Destroy;

 begin

 end;

 class procedure TAndroidGeocoder.GeocodeRequest(const AAddress: TCivicAddress);

 var

   I: Integer;

   List: JList;

   LAddress: JAddress;

   JO: JObject;

 begin

   List := FGeocoder.getFromLocationName(StringToJString(AAddress.ToString),);

   SetLength(FGeoFwdCoords, List.size);

   for I :=  to List.size -  do

   begin

     JO := List.get(I);

     LAddress := TJAddress.Wrap((JO as ILocalObject).GetObjectID);

     FGeoFwdCoords[I] := TLocationCoord2D.Create(LAddress.getLatitude,LAddress.getLongitude);

   end;

   DoGeocode(FGeoFwdCoords);

 end;

 class procedure TAndroidGeocoder.GeocodeReverseRequest(const Coords: TLocationCoord2D);

 var

   List: JList;

   LAddress: JAddress;

   Addr: TCivicAddress;

   FLActivity: JActivity;

   JO: JObject;

   I: Integer;

 begin

   FLActivity := TJNativeActivity.Wrap(PANativeActivity(System.DelphiActivity)^.clazz);

   List := FGeocoder.getFromLocation(Coords.Latitude,Coords.Longitude,);

   if List.size =  then

     Addr := nil

   else

   begin

     for I :=  to List.size -  do

     begin

       JO := List.get(I);

       LAddress := TJAddress.Wrap((JO as ILocalObject).GetObjectID);

       Addr := FGeoRevAddress;

       Addr.AdminArea       := JStringToString(LAddress.getAdminArea);

       Addr.CountryName     := JStringToString(LAddress.getCountryName);

       Addr.CountryCode     := JStringToString(LAddress.getCountryCode);

       Addr.Locality        := JStringToString(LAddress.getLocality);

       Addr.FeatureName     := JStringToString(LAddress.getFeatureName);

       Addr.PostalCode      := JStringToString(LAddress.getPostalCode);

       Addr.SubAdminArea    := JStringToString(LAddress.getAdminArea);

       Addr.SubLocality     := JStringToString(LAddress.getSubLocality);

       Addr.SubThoroughfare := JStringToString(LAddress.getSubThoroughfare);

       Addr.Thoroughfare    := JStringToString(LAddress.getThoroughfare);

     end;

   end;

   DoGeocodeReverse(Addr);

 end;

 class function TAndroidGeocoder.GetGeocoderImplementer: TGeocoderClass;

 begin

   Result := Self;

 end;

 class function TAndroidGeocoder.Supported: Boolean;

 begin

   Result := False;

   if Assigned(FGeocoder) then

     Result := TjGeocoder.JavaClass.isPresent;

 end;

 { TAndroidGeocoder.TGeocoderRunnable }

 constructor TAndroidGeocoder.TGeocoderRunnable.Create(ACoord: TLocationCoord2D; AGeocoder: JGeocoder);

 begin

   inherited Create;

   FCoord := ACoord;

   FLGeocoder := AGeocoder;

 end;

 procedure TAndroidGeocoder.TGeocoderRunnable.run;

 var

   List: JList;

   Address: JAddress;

   Addr: TCivicAddress;

   Activity: JActivity;

   JO: JObject;

   I: Integer;

 begin

   Activity := TJNativeActivity.Wrap(PANativeActivity(System.DelphiActivity)^.clazz);

   FLGeocoder := TJGeocoder.JavaClass.init(Activity);

   List := FLGeocoder.getFromLocation(FCoord.Latitude,FCoord.Longitude,);

   if List.size =  then

     Addr := nil

   else

   begin

     for I :=  to List.size -  do

     begin

       JO := List.get(I);

       Address := TJAddress.Wrap((JO as ILocalObject).GetObjectID);

       Addr := FGeoRevAddress;

       Addr.AdminArea       := JStringToString(Address.getAdminArea);

       Addr.CountryName     := JStringToString(Address.getCountryName);

       Addr.CountryCode     := JStringToString(Address.getCountryCode);

       Addr.Locality        := JStringToString(Address.getLocality);

       Addr.FeatureName     := JStringToString(Address.getFeatureName);

       Addr.PostalCode      := JStringToString(Address.getPostalCode);

       Addr.SubAdminArea    := JStringToString(Address.getAdminArea);

       Addr.SubLocality     := JStringToString(Address.getSubLocality);

       Addr.SubThoroughfare := JStringToString(Address.getSubThoroughfare);

       Addr.Thoroughfare    := JStringToString(Address.getThoroughfare);

     end;

   end;

   DoGeocodeReverse(Addr);

 end;

 initialization

 end.

Android实例-OrientationSensor方向传感器(XE8+小米2)的更多相关文章

  1. Android实例-读取设备联系人(XE8+小米2)

    相关资料: http://www.colabug.com/thread-1071065-1-1.html 结果: 1.将权限打开Read contacts设置为True,不然报图一的错误. 2.搜索空 ...

  2. Android实例-设置消息提醒(XE8+小米2)

    相关资料: 1.官网实例:http://docwiki.embarcadero.com/RADStudio/XE5/en/Mobile_Tutorial:_Using_the_Notification ...

  3. Android实例-TTabControl的使用(XE8+小米2)

    结果:  1.如果直接改变Tab的TabIndex,那样是没有动态效果的.如果想要动态效果需要用到ChangeTabAction1; 2.ChangeTabAction1可以直接为按钮指定Action ...

  4. Android实例-闪光灯的控制(XE8+小米2)

    unit Unit1; interface uses System.SysUtils, System.Types, System.UITypes, System.Classes, System.Var ...

  5. Android实例-获取程序版本号(XE10+小米2)

    相关资料: 383675978群号 实例源码: unit Unit1; interface uses System.SysUtils, System.Types, System.UITypes, Sy ...

  6. Android实例-调用系统APP(XE10+小米2)

    相关资料:群号383675978 实例源码: unit Unit1; interface uses System.SysUtils, System.Types, System.UITypes, Sys ...

  7. Android实例-红外线操作(XE10.2+小米5)

    相关资料: http://blog.csdn.net/qq_21752153/article/details/50244717https://developer.xamarin.com/api/typ ...

  8. 修复 XE8 for Android 方向传感器 headingX,Y,Z 不会动的问题

    问题:XE8 for Android 方向传感器无法正常运作(在 XE7 是正常的) 测试:官方示例 Samples\Object Pascal\Mobile Snippets\Orientation ...

  9. Android利用方向传感器获得手机的相对角度实例说明

    http://www.jb51.net/article/37710.htm 1.android 的坐标系是如何定义x, y z 轴的 x轴的方向是沿着屏幕的水平方向从左向右,如果手机不是正方形的话,较 ...

随机推荐

  1. 1046-第K回文数

    描述 回文数是这样一个正整数:它从左往右读和从右往左读是一样的.例如1,111,121,505都是回文数.将1到100,000,000内所有回文数按从小到达排序后,第k个回文数是多少呢? 输入 第一行 ...

  2. c缺陷与陷阱笔记-第二章 语法陷阱

    1.函数的调用和番薯返回值是函数指针的声明 定义一个函数指针,例如  int (*fp)(float),这个函数的返回值是Int,参数是1个float类型,调用这个函数的方法是 (*fp)(),还有f ...

  3. 【无聊放个模板系列】POJ 3678 2-SAT

    #include<cstdio> #include<cstdlib> #include<cstring> #include<iostream> #inc ...

  4. *[topcoder]GooseTattarrattatDiv1

    http://community.topcoder.com/stat?c=problem_statement&pm=12730&rd=15701 这道题有点意思.首先把字符串变成回文, ...

  5. （转）CSS+DIV float 定位

    来自:http://www.cnblogs.com/iyangyuan/archive/2013/03/27/2983813.html 很早以前就接触过CSS,但对于浮动始终非常迷惑,可能是自身理解能 ...

  6. P114、面试题17：合并两个排序的链表

    题目:输入两个递增排序的链表,合并这两个链表并使新链表中的结点仍然是按照递增顺序的.struct ListNode{      int    m_nKey;      ListNode*    m_p ...

  7. Java对象相关元素的初始化过程

    1.类的成员变量.构造函数.成员方法的初始化过程 当一个类使用new关键字来创建新的对象的时候,比如Person per = new Person();JVM根据Person()寻找匹配的类,然后找到 ...

  8. sdut Message Flood（c++ map）

    用字典树没过,学习了一下map; 参考博客:http://blog.csdn.net/zhengnanlee/article/details/8962432 AC代码 #include<iost ...

  9. freemarker截取字符串

    [#if   a.title?length   lt   23   ]   ${a.title} [#else]${a.title[0..22]}...[/#if]

  10. [swustoj 1094] 中位数

    中位数(1094) 问题描述 中位数(又称中值,英语:Median),统计学中的专有名词,代表一个样本.种群或概率分布中的一个数值,其可将数值集合划分为相等的上下两部分.对于有限的数集,可以通过把所有 ...