码迷,mamicode.com
首页 > 移动开发 > 详细

delphi xe6 for android 自带控件LocationSensor优先使用GPS定位的方法

时间:2015-03-13 18:30:30      阅读:154      评论:0      收藏:0      [点我收藏+]

标签:

delphi xe6 for android LocationSensor控件默认是优先使用网络定位,对定位精度要求高的应用我们可以修改原码直接指定GPS定位。
 
修改方法:
 
将C:\Program Files\Embarcadero\Studio\14.0\source\rtl\common\System.Android.Sensors.pas拷贝到自己的工程目录里
 
打开System.Android.Sensors.pas找到function TUIAndroidLocationSensor.DoStart: Boolean;,然后按下面的提示修改就可以了。
 
 
 
function TUIAndroidLocationSensor.DoStart: Boolean;
var
  ProviderName : JString;
  Provider : JLocationProvider;
begin
  Result := False;
  FPermitted := TPermission.IsPermitted(StringToJString(‘android.permission.ACCESS_FINE_LOCATION‘));
  if FPermitted then
  begin
    if not Assigned(FLocationListener) then
      FLocationListener := TLocationListener.Create(Self);
{-----删除以下几行
    if FLocationManager.isProviderEnabled(TJLocationManager.JavaClass.NETWORK_PROVIDER) then
      ProviderName := TJLocationManager.JavaClass.NETWORK_PROVIDER
    else
      if FLocationManager.isProviderEnabled(TJLocationManager.JavaClass.GPS_PROVIDER) then
        ProviderName := TJLocationManager.JavaClass.GPS_PROVIDER
      else
        ProviderName := TJLocationManager.JavaClass.PASSIVE_PROVIDER;
-----删除以上几行}
    ProviderName := TJLocationManager.JavaClass.GPS_PROVIDER ;//增加这一行
    Provider := FLocationManager.getProvider(ProviderName);
 
    if Assigned(Provider) then
    begin
      FMyRunner := TLocationRunnable.Create(FLocationManager, FLocationListener, ProviderName);
      FActivity.runOnUiThread(FMyRunner);
      Result := True;
    end;
  end;
end;

delphi xe6 for android 自带控件LocationSensor优先使用GPS定位的方法

标签:

原文地址:http://www.cnblogs.com/lantianhf/p/4335703.html

(0)
(0)
   
举报
评论 一句话评论(0
登录后才能评论!
© 2014 mamicode.com 版权所有  联系我们:gaon5@hotmail.com
迷上了代码!