delphi xe6 for android 自带控件LocationSensor优先使用GPS定位的方法
2015-03-13 17:47
507 查看
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;
修改方法:
将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定位的方法
- Android自带倒计时控件Chronometer使用方法详解
- C#中datagridview使用tooltip控件显示单元格内容与datagridview自带的tooltip显示单元格内容的方法
- Android GridView控件在使用过程中图片压缩或者方法
- Android省市区三级联动控件使用方法实例讲解
- Android常规控件的基本使用方法
- (转)Android控件之——SlidingDrawer的使用及重要方法
- Android之 WebView(网页控件)使用方法
- Android中常用基本控件的使用方法和步骤(.txt)
- Android开源控件ViewPager Indicator的使用方法
- 简单使用android自带刷新控件SwipeRefreshLayout
- Android控件ListView使用方法详解
- Android自带emoji表情的使用方法详解
- Android中SeekBar拖动条控件使用方法详解
- Android中CheckBox复选框控件使用方法详解
- Android用户输入自动提示控件AutoCompleteTextView使用方法
- Android垂直滚动控件ScrollView使用方法详解
- Android进度条控件progressbar使用方法详解
- Android控件Spinner的使用方法(1)
- Android常用控件ImageSwitcher使用方法详解