You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
61 lines
1.1 KiB
61 lines
1.1 KiB
B4A=true
|
|
Group=Default Group
|
|
ModulesStructureVersion=1
|
|
Type=Service
|
|
Version=9.801
|
|
@EndOfDesignText@
|
|
#Region Service Attributes
|
|
#StartAtBoot: False
|
|
#ExcludeFromLibrary: True
|
|
#End Region
|
|
|
|
Sub Process_Globals
|
|
Public rp As RuntimePermissions
|
|
Public GPS1 As GPS
|
|
Private gpsStarted As Boolean
|
|
Public ValidGPS As Boolean
|
|
Public Location2 As Location
|
|
|
|
End Sub
|
|
|
|
Sub Service_Create
|
|
GPS1.Initialize("GPS")
|
|
End Sub
|
|
|
|
Sub Service_Start (StartingIntent As Intent)
|
|
Service.StopAutomaticForeground 'Starter service can start in the foreground state in some edge cases.
|
|
End Sub
|
|
|
|
Public Sub StartGps
|
|
If gpsStarted = False Then
|
|
GPS1.Start(0, 0)
|
|
gpsStarted = True
|
|
End If
|
|
End Sub
|
|
|
|
Public Sub StopGps
|
|
If gpsStarted Then
|
|
GPS1.Stop
|
|
gpsStarted = False
|
|
End If
|
|
End Sub
|
|
|
|
Sub GPS_LocationChanged (Location1 As Location)
|
|
CallSub2(Main, "LocationChanged", Location1)
|
|
Location2 = Location1
|
|
ValidGPS = True
|
|
End Sub
|
|
|
|
|
|
'Sub GPS_GpsStatus (Satellites As List)
|
|
' CallSub2(Main, "GpsStatus", Satellites)
|
|
'End Sub
|
|
|
|
Sub Application_Error (Error As Exception, StackTrace As String) As Boolean
|
|
Return True
|
|
End Sub
|
|
|
|
Sub Service_Destroy
|
|
StopGps
|
|
End Sub
|