FLP_2.0/Tracker.bas

B4A=true
Group=Default Group
ModulesStructureVersion=1
Type=Service
Version=10.5
@EndOfDesignText@
#Region  Service Attributes 
	#StartAtBoot: True
#End Region
'******************************************************************************
'No olvidar agregar esta linea al editor de manifiesto:
' SetServiceAttribute(Tracker, android:foregroundServiceType, "location")
'
'En Starter agregar estas lineas en Process_Globals
'	Public rp As RuntimePermissions
'	Public FLP As FusedLocationProvider
'	Private flpStarted As Boolean
'
'En Main agregar estas lineas a Activity_Resume
'	Starter.rp.CheckAndRequest(Starter.rp.PERMISSION_ACCESS_FINE_LOCATION)
'	Wait For Activity_PermissionResult (Permission As String, Result As Boolean)
'	If Result Then
'		StartService(Tracker)
'		Log("Start Tracker")
'	Else
'		ToastMessageShow("No permission", True)
'	End If
'
'Se necesitan las librerias FusedLocationProvider, GPS, Phone y RunTimePermissions
'
'Y en Main agregar estas dos lineas:
'#AdditionalJar: com.android.support:support-v4
'#AdditionalJar: com.google.android.gms:play-services-location

Sub Process_Globals
	Private nid As Int = 1
	Private Tracking As Boolean
	Private lock As PhoneWakeState
	'Para FusedLocationProvider (2 lineas)
	Public FLP As FusedLocationProvider
	Private flpStarted As Boolean
	Dim minAccuracy As Int = 30
End Sub

Sub Service_Create
	Service.AutomaticForegroundMode = Service.AUTOMATIC_FOREGROUND_NEVER 'we are handling it ourselves
	'Para FusedLocationProvider (2 lineas)
	FLP.Initialize("flp")
	FLP.Connect
	lock.PartialLock
	StartFLP
	If Starter.logger Then Log("FLP initialized")
End Sub

Sub flp_ConnectionSuccess
	If Starter.logger Then Log("Connected to location provider")
	'FLP.GetLastKnownLocation
End Sub

Sub flp_ConnectionFailed(ConnectionResult1 As Int)
	If Starter.logger Then Log("Failed to connect to location provider")
End Sub

Sub Service_Start (StartingIntent As Intent)
	'Para FusedLocationProvider (1 linea)
	Service.StopAutomaticForeground
	Service.StartForeground(nid, Subs.CreateNotification("..."))
	Track
	StartServiceAt(Me, DateTime.Now + 10 * DateTime.TicksPerMinute, True)
End Sub

Public Sub Track
	'Log("Track")
	If Tracking Then Return 'Si ya estamos "rastreando" no hacemos nada (return)
	If Starter.rp.Check(Starter.rp.PERMISSION_ACCESS_FINE_LOCATION) = False Then
		Log("No permission")
		Return
	End If
	StartFLP 'Iniciamos FusedLocationProvider
	Tracking = True
End Sub

Public Sub StartFLP
	Log("StartFLP - flpStarted="&flpStarted)
	Do While FLP.IsConnected = False
		Sleep(500)
		Log("sleeping")
	Loop
'	If flpStarted = False Then
	Log("RequestLocationUpdates")
	Starter.FLPStatus = "Searching" : LogColor("FLP Searching", Colors.blue)
	FLP.RequestLocationUpdates(CreateLocationRequest) 'Buscamos ubicacion
	flpStarted = True
'	End If
End Sub

Private Sub CreateLocationRequest As LocationRequest
'	Log("CreateLocationRequest")
	Starter.FLPStatus = "Searching" : LogColor("FLP Searching", Colors.blue)
	Dim lr As LocationRequest
	lr.Initialize
	lr.SetInterval(30000) 'Intervalo deseado para actualizaciones de ubicacion en milisegundos
	lr.SetFastestInterval(lr.GetInterval / 2) 'Intervalo minimo para actualizaciones de ubicacion
	lr.SetSmallestDisplacement(30) 'Solo registra cambio de ubicacion si es mayor a XX mts
	lr.SetPriority(lr.Priority.PRIORITY_HIGH_ACCURACY)
	Return lr
End Sub

Sub dameUltimaUbicacionConocida(lastLocation As Location)
	If Starter.logger Then LogColor("dameUltimaUbicacionConocida", Colors.Magenta)
	If FLP.GetLastKnownLocation.IsInitialized Then 'Mandamos ultima ubicacion guardada
		If Starter.logger Then Log("This accuracy: " & FLP.GetLastKnownLocation.Accuracy)
		If Starter.logger Then Log("This distance to previous: " & FLP.GetLastKnownLocation.DistanceTo(lastLocation))
		Dim coords As String = FLP.GetLastKnownLocation.Latitude&","&FLP.GetLastKnownLocation.Longitude&","&Subs.formatoFecha(FLP.GetLastKnownLocation.Time)
		If FLP.GetLastKnownLocation.Accuracy < minAccuracy And FLP.GetLastKnownLocation.DistanceTo(lastLocation) > 25 Then
			Starter.UUC = FLP.GetLastKnownLocation
			Subs.mandaLocAServer(FLP.GetLastKnownLocation, Starter.devModel)
			If Starter.logger Then Log("Mandamos GetLastKnownLocation : "&DateTime.Time(FLP.GetLastKnownLocation.Time))
			CallSubDelayed2(FirebaseMessaging,"mandamosLoc",coords)
			Log($"UUC: ${Starter.UUC.Latitude},${Starter.UUC.Longitude}"$)
		End If
'		Log($"ultima actualizacion: ${Starter.lastLocUpdate}"$)
'		Log($"${DateTime.now} - ${Starter.lastLocUpdate} = ${(DateTime.Now - Starter.lastLocUpdate)/1000}"$)
'		Log("||" & Subs.ConvertMillisecondsToString((DateTime.Now - Starter.lastLocUpdate)))
	End If
End Sub

Public Sub StopFLP
	'Log("StopFLP")
	If flpStarted Then
		FLP.RemoveLocationUpdates  'Eliminamos todas las solicitudes de ubicacion
		flpStarted = False
	End If
End Sub

Sub flp_LocationChanged (Location1 As Location)
	Starter.FLPStatus = "Location changed" : LogColor("Location changed", Colors.blue)
	If Not(Starter.Timer1.Enabled) Then Starter.Timer1.Enabled = True : Log("timer enabled")
	If Starter.logger Then LogColor("FLP_LocationChanged", Colors.Red)
'	ToastMessageShow("FLP_LocationChanged", False)
	Dim coords As String = Location1.Latitude&","&Location1.Longitude&","&Subs.formatoFecha(DateTime.Now)
	Main.laUbicacion = Location1
'	ToastMessageShow(coords, False)
'	Log("Mandamos Ubicacion")
	If Starter.logger Then Log(FirebaseMessaging.locRequest)
	If Starter.logger Then Log(Location1)
	If Starter.logger Then Log(Location1.Accuracy&" - "&Location1.AccuracyValid)
	' solo mandamos la ubicacion si la precision es dentro de XX mts
	If Location1.Accuracy < minAccuracy Then CallSubDelayed2(FirebaseMessaging,"mandamosLoc",coords)
	If Location1.Accuracy < minAccuracy Then Starter.UUC = Location1
	If Location1.Accuracy < minAccuracy Then Subs.mandaLocAServer(Location1, Starter.devModel)
	If Starter.logger Then Log("Loc changed : "&Location1.Latitude&","&Location1.Longitude&"|"&Starter.devModel&"|")
	CallSubDelayed(Main, "ponCoords")
End Sub

Sub Service_Destroy
	If Tracking Then
		StopFLP
	End If
	Tracking = False
	lock.ReleasePartialLock
End Sub