線上訂房服務-台灣趴趴狗聯合訂房中心
發文 回覆 瀏覽次數:648
推到 Plurk!
推到 Facebook!

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

 
aftcast
站務副站長


發表:81
回覆:1482
積分:1762
註冊:2002-11-21

發送簡訊給我
#1 引用回覆 回覆 發表時間:2015-05-13 11:15:25 IP:114.32.xxx.xxx 訂閱
http://www.cnblogs.com/onechen/p/4497282.html
以下是轉貼上方網址作者,龟山阿卍的blog。看了修正的內容,我不禁很想酸一下emb…源碼寫好有測嗎?

问题:XE8 for Android 方向传感器无法正常运作(在 XE7 是正常的)
测试:官方示例 Samples\Object Pascal\Mobile Snippets\OrientationSensor\
适用: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;
{<   } // 加入上面代码 

... 略 ...
复制代码
------



蕭沖
--All ideas are worthless unless implemented--

C++ Builder Delphi Taiwan G+ 社群
http://bit.ly/cbtaiwan
P.D.
版主


發表:571
回覆:3880
積分:3666
註冊:2006-10-31

發送簡訊給我
#2 引用回覆 回覆 發表時間:2015-05-13 14:38:37 IP:118.160.xxx.xxx 未訂閱
真佩服 龟山阿卍 的本事! 沒他的話, XE 會是怎樣的景象?!
但不知 IOS 是否也會如此, 因為我剛查了XE8的源碼, 還分了 WINAPI, ANDROID, IOS...
編輯記錄
P.D. 重新編輯於 2015-05-13 14:45:15, 註解 無‧
系統時間:2017-10-17 12:11:59
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!