iOS Question [Solved] Error on GetToken Method After New Version

[George_G]

Hello,

my app does not working after the last update of B4I and B4iBuildServer. It is an app, in which user subscribes to a topic (Firebase push notification),
and after the subscription, I use a method named GetToken. (I found this method in another post)

Private Sub GetToken As String
    Dim no As NativeObject
    Dim token As NativeObject = no.Initialize("FIRInstanceID").RunMethod("instanceID", Null).RunMethod("token", Null)
    If token.IsInitialized Then Return token.AsString Else Return ""
End Sub

But after the last update, when I compile my app and execute the GetToken method, I get this error (attached file).

The line of the error is this one: Dim token As NativeObject = no.Initialize("FIRInstanceID").RunMethod("instanceID", Null).RunMethod("token", Null)

Any advice?

Thank you in advance!

 

[Andrew (Digitwell)]

The error is :

Error occurred on line: 145 (Main)
Object was not initialized (NSObject)

Don't you need to initialize "no"?

 

[George_G]

The error is :


Don't you need to initialize "no"?

This code worked fine, before the update.

Isn't it an initialization?

no.Initialize("FIRInstanceID").RunMethod("instanceID", Null).RunMethod("token", Null)

 

[George_G]

Just found this post

B4I 8.30 FireBase Token

Was there any change to the FB notifications, the way we retrieve the token? Public Sub Firebase_FCMConnected xc.Logd("fm_FCMConnected") xc.registerTopics Dim token As String=GetToken If token"" Then xc.logd("firebaseToken:" & token) kvs.Put("firebaseToken"...

www.b4x.com

I will try it, and I will inform here.

 

[George_G]

Everything works fine now:

I replace my GetToken method with the following one:

Mr Erel used Dim token As Object, and I got Error.
I replace it with Dim token As NativeObject

Private Sub GetToken As String
    Dim FIRMessaging As NativeObject
    FIRMessaging = FIRMessaging.Initialize("FIRMessaging").GetField("messaging")
    Dim token As Object = FIRMessaging.GetField("FCMToken")
    If token = Null Then Return "" Else Return token.As(String)
End Sub

 

[Erel]

Mr Erel used Dim token As Object, and I got Error.

Which error did you get?

 

[George_G]

Which error did you get?

Error attached.

 

[Erel]

Are you getting it from this code:

Private Sub GetToken As String
    Dim FIRMessaging As NativeObject
    FIRMessaging = FIRMessaging.Initialize("FIRMessaging").GetField("messaging")
    Dim token As Object = FIRMessaging.GetField("FCMToken")
    If token = Null Then Return "" Else Return token.As(String)
End Sub

?

Which line?

 

[George_G]

Are you getting it from this code:

Private Sub GetToken As String
    Dim FIRMessaging As NativeObject
    FIRMessaging = FIRMessaging.Initialize("FIRMessaging").GetField("messaging")
    Dim token As Object = FIRMessaging.GetField("FCMToken")
    If token = Null Then Return "" Else Return token.As(String)
End Sub

?

Which line?

Dim token As Object = FIRMessaging.GetField("FCMToken")

but everything works fine with the following line

Dim token As NativeObject = FIRMessaging.GetField("FCMToken")

 

[Erel]

Private Sub GetToken As String
    Dim FIRMessaging As NativeObject
    FIRMessaging = FIRMessaging.Initialize("FIRMessaging").GetField("messaging")
    Dim token As NativeObject = FIRMessaging.GetField("FCMToken")
    If token.IsInitialized = False Then Return "" Else Return token.AsString
End Sub

This is the correct code. I will update the post.