Sub Process_Globals
Private analytics As FirebaseAnalytics ' iFirebaseAnalytics Lib 2.50
Public FirebaseRC As FirebaseRemoteConfig ' iFirebaseRemoteConfig Lib 1.00
End Sub
Private Sub Application_Start (Nav As NavigationController) 'ignore
analytics.Initialize
' RemoteConfig
FirebaseRC.Initialize("RemoteConfig",Me)
FirebaseRC.EnsureInitializedWithCompletionHandler
End Sub
Sub RemoteConfig_FetchedAndActivatedWithCompletion(status As Int,error As String)
If status = FirebaseRC.FIRRemoteConfigFetchAndActivateStatus_SuccessFetchedFromRemote Or status = FirebaseRC.FIRRemoteConfigFetchAndActivateStatus_SuccessUsingPreFetchedData Then
Log(FirebaseRC.ConfigValueForKey("settings").StringValue)
Else
Log(error)
End If
End Sub
Sub RemoteConfig_Initialized
FirebaseRC.FetchAndActivateWithCompletionHandler
End Sub