zoukankan      html  css  js  c++  java
  • 修复 XE8 for Android 方向传感器 headingX,Y,Z 不会动的问题

    问题:XE8 for Android 方向传感器无法正常运作(在 XE7 是正常的)

    测试:官方示例 SamplesObject PascalMobile SnippetsOrientationSensor

    适用:XE8 for Android

    修复方法:

    请将源码 System.Android.Sensors.pas 复制到自己的工程目录里,再进行修改。

    修改下面代码:

      TAndroidNativeMagneticSensor = class(TCustomOrientationSensor)
      strict private
        FNativeSensor: TNativeSensor;
      protected
        function GetUpdateInterval: Double;  override;
        procedure SetUpdateInterval(AInterval: Double); override;
        function GetOrientationSensorType: TOrientationSensorType; override;
    {+++>} // 加入下面二行代码
        function DoStart: Boolean; override;
        procedure DoStop; override;
    {<+++}
        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;

    找到 TAndroidNativeMagneticSensor.Create 加入下面代码:

    ... 略 ...
    
    constructor TAndroidNativeMagneticSensor.Create(AManager: TSensorManager);
    begin
      inherited;
      FNativeSensor := TNativeSensor.Create(ASENSOR_TYPE_MAGNETIC_FIELD);
    end;
    
    {+++>} // 加入下面代码
    function TAndroidNativeMagneticSensor.DoStart: Boolean;
    begin
      Result := FNativeSensor.DoStart;
    end;
    
    procedure TAndroidNativeMagneticSensor.DoStop;
    begin
      inherited;
      FNativeSensor.DoStop;
    end;
    {<+++} // 加入上面代码 
    
    ... 略 ...
  • 相关阅读:
    战胜忧虑<2>——忙碌可以消除忧虑
    战胜忧虑<1>——不要让忧郁侵入你的生活
    Django的下载和安装
    Github 如何上传本地文件
    Python_相对路径的获取
    Python_生成HTMLTestRunner测试报告
    Python_requests实例
    Charles抓包(Http/Https请求)
    Python_base_函数返回值
    Python_base_print 取消自动换行
  • 原文地址:https://www.cnblogs.com/onechen/p/4497282.html
Copyright © 2011-2022 走看看