Sub RunLog(strText As String)
If strText = Null Then
strText = "---"
End If
Try
Log(strText)
Catch
Log("---")
End Try
End Sub
Sub Activity_Create(FirstTime As Boolean)
'Do not forget to load the layout file created with the visual designer. For example:
'Activity.LoadLayout("Layout1")
Starter.rp.CheckAndRequest(Starter.rp.PERMISSION_ACCESS_FINE_LOCATION)
wait for Activity_PermissionResult (Permission As String, Result As Boolean)
If Result Then
GeoLoc.Initialize("GeoLocation")
'GeoLoc.GetLocation
GeoLoc.geoAddress2(52.6122922, -2.1646073)
RunLog(GeoLoc.Address)
RunLog(GeoLoc.City)
RunLog(GeoLoc.Country)
RunLog(GeoLoc.KnownName)
RunLog(GeoLoc.PostalCode)
RunLog(GeoLoc.State)
Else
RunLog("NoPermission")
End If
End Sub
Sub GeoLocation_Location(success As Boolean, Lattitude As Double, Longitude As Double, info As String)
Log($"GeoLocation_Location(${success}, ${Lattitude}, ${Longitude}, ${info})"$)
End Sub