Developer Jeff Overcash has a demo up on the Embarcadero Code Central which accesses the Android GPS functionality via the JNI in Delphi XE7 (and XE6) Firemonkey. If TLocationSensor does not quite work like you want you can go directly to the Android GPS data via the LocationManagerService. One goal of wanting to do this is you may be able to reduce the battery usage of accessing the GPS because your overhead may be less than the TLocationSensor component. The demo will give you longitude, latitude, and altitude. Additionally it will list the different GPS services available (on my device they were passive, GPS, and network). This demo is free and originally was for XE6 but I was able to update it to XE7 by simply adding Androidapi.Helpers to the uses clause. SharedActivityContext is now located in Androidapi.Helpers in Delphi XE7 Firemonkey. A tip for Firemonkey on IOS is that you can get location information directly from MKMapView using one of the DPF IOS or TMS Software wrapper components. This demo project and the IOS components should also work for Appmethod. Here is the main code from the demo:
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 |
procedure TForm1.Button1Click(Sender: TObject); var LocationManagerService: JObject; iter : JIterator; location : JLocation; begin if not Assigned(FLocationManager) then begin LocationManagerService := SharedActivityContext.getSystemService(TJContext.JavaClass.LOCATION_SERVICE); FLocationManager := TJLocationManager.Wrap((LocationManagerService as ILocalObject).GetObjectID); if not Assigned(locationListener) then locationListener := TLocationListener.Create(self); FLocationManager.requestLocationUpdates(TJLocationManager.JavaClass.GPS_PROVIDER, 10000, 10, locationListener, TJLooper.JavaClass.getMainLooper); end; iter := FLocationManager.GetAllProviders.Iterator; ListBox1.Clear; while iter.hasNext do begin ListBox1.Items.Add(JStringToString(iter.next.ToString)); end; CheckBox1.IsChecked := FLocationManager.isProviderEnabled(TJLocationManager.JavaClass.GPS_PROVIDER); CheckBox2.IsChecked := FLocationManager.isProviderEnabled(TJLocationManager.JavaClass.NETWORK_PROVIDER); location := FLocationManager.getLastKnownLocation(TJLocationManager.JavaClass.GPS_PROVIDER); onLocationChanged(location); end; |
Download our mirror of the Android GPS JNI project demo with Delphi XE7 Firemonkey support.
Update: For Delphi 10.2 Tokyo you should check out the code for doing this on StackOverFlow.
Thanks!
the “location” variable always NIL in delphi berlin 10 update 2, how to solve this problem ?
i’am using android 6 and nougat