delphi xe6 for android 自带控件LocationSensor优先使用GPS定位的方法
2014-07-01 09:42
274 查看
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使用方法详解
- 【Android 开发】:UI控件之单选按钮 RadioButton 的使用方法
- Android Gallery控件使用方法详解
- 【Android 开发】:UI控件之复选框控件 CheckBox 的使用方法
- 【Android 开发】:Android中EditText控件的几种使用方法
- Android系列之浅谈AndroidGallery控件使用方法详解
- android应用开发笔记---常用控件使用方法
- 优先队列的构造以及使用方法的总结(for priority_queue)
- [Android]在游戏的SurfaceView中获取输入与使用EditText,Spinner等控件的方法
- 【Android 开发】:UI控件之开关状态按钮 ToggleButton 的使用方法
- Android控件之——SlidingDrawer的使用及重要方法
- android的控件Toast和EditText的使用方法
- Android_Android控件系列之EditText使用方法
- 回发或回调参数无效。在配置中使用 或在页面中使用 启用了事件验证。出于安全目的,此功能验证回发或回调事件的参数是否来源于最初呈现这些事件的服务器控件。如果数据有效并且是预期的,则使用 ClientScriptManager.RegisterForEventValidation 方法来注册回发或回调数据以进行验证。
- 在for,foreach语句中小心使用控件的SendToBack,BringToFront方法
- 【Android动态布局】之【使用addView方法时,如何保持已有动态控件位置不被改变】
- Android Gallery控件使用方法详解
- android startActivityForResult的使用方法介绍
- Android控件系列之RadioButton与RadioGroup使用方法 详细出处参考:http://www.jb51.net/article/31799.htm