delphi xe6 for android 內建控制項LocationSensor優先使用GPS定位的方法

標籤：android   java   使用   os   art   cti   

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;