delphi xe6 for android 自带控件LocationSensor优先使用GPS定位的方法
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;
最新文章
- 素数筛 poj 3518
- hdu 1541 Stars(树状数组)
- UML建模系列文章总结
- android中的样式和主题
- localStorage存储JSON对象的小方法
- 联想S720/S720i通刷刷机包 Vibe V1.0
- RSA加密解密和读取公钥、私钥
- Openjudge-计算概论(A)-字符串排序
- .net—— webservice的新建、发布、使用(最全、最简单)【原创】
- android 事件传递机制(1)
- vue中一个dom元素可以绑定多个事件?
- [mstsc]解决win8 win10 平板无法被mstsc连接的问题
- itext实现pdf自动定位合同签订
- Forms Authentication and Role based Authorization: A Quicker, Simpler, and Correct Approach
- 5.8 C++重载自增与自减操作符
- OAF Sample Code(转)
- [翻译] FastReport ";Text"; 对象中使用表达式
- [USACO09JAN]Earthquake Damage
- Oracle EBS学习网站列表
- flask请求流程