delphi 获取java控件位置_delphi xe6 调用java原生GPS的方法

如果用xe6自带的LocationSensor控件，默认优先使用网络位置，为了直接使用GPS位置，在网上搜到了以下代码，经实测证实是可用的。

uses

Androidapi.JNI.Location, Androidapi.JNIBridge,

Androidapi.JNI.JavaTypes,

Androidapi.JNI.Os,FMX.Helpers.Android,Androidapi.JNI.GraphicsContentViewText;

type

TLocationListener = class;

TForm1 = class(TForm)

. . . . . .

private

{ Private declarations }

FLocationManager : JLocationManager;

locationListener : TLocationListener;

public

destructor Destroy; override;

{ Public declarations }

procedure onLocationChanged(location: JLocation);

end;

//Sensore GPS

TLocationListener = class(TJavaLocal, JLocationListener)

private

[weak]

FParent : TForm1;

public

constructor Create(AParent : TForm1);

procedure onLocationChanged(locati