Android Question [SOLVED]Casting issues within a For Each iterating data from an API

Daniel44

Daniel44

Active Member
Licensed User
Hey!

I'm working with my API made in PHP . Afer I got logged it returns an Access Token and a Refresh Token in json format. Like this:

Postman:

B4X: 
{
    "statusCode": 201,
    "success": true,
    "messages": [],
    "data": {
        "session_id": 9,
        "access_token": "ZDk0M2E2OGMwZjQ2OGVhNWE3YTUwY2E1OWJjODZkNmQ4NzhmMjAwMzFmNDEzOGIyMTY0MDMwNjA3NA==",
        "access_token_expires_in": 1200,
        "refresh_token": "MzQ5ODg0ZGFhYjNjNjUwNWMwOTFhZTY0OGNkODJlZTUxNWQ1Mzc3NmExYjc0YWY5MTY0MDMwNjA3NA==",
        "refresh_token_expires_in": 1209600
    }
}

With B4A I'm doing this to return to my app that data

B4X: 
Dim ok As HttpJob
    ok.Initialize("",Me)
    ok.PostString(endpointUrl,data)
    ok.GetRequest.SetContentType("application/json")
  
    Wait For (ok) Jobdone(ok As HttpJob)
    If ok.Success Then
        Log(ok.GetString)
      
        Log("DATA SENT TO SERVER  RESPONSE SUCCESS")

B4X:

This returns:

B4X: 
{"statusCode":201,"success":true,"messages":[],"data":{"session_id":65,"access_token":"NTE3NzUzZmU3Yjk4ZDdjMmQ1YmQ0MzZjYzE0NThmMzBiNDhhZTBjOGJiMmUwYmU3MTY0MDM4NTAwOA==","access_token_expires_in":1200,"refresh_token":"YmY5YWYyYWI4OTQyOGMyOWI5YzE5YjBjYmY2NTAzNGY0YTc1YWM2NTMwN2Y0YzVlMTY0MDM4NTAwOA==","refresh_token_expires_in":1209600}}

'till here everything works fine... But I need to work and handle that response (work with access token etc..)

To do that I'm trying to do this..

B4X: 
Dim parser As JSONParser
        parser.Initialize(ok.GetString)
        Dim mRoot As Map = parser.NextObject
        Dim datos As List = mRoot.Get("data")
        For Each resl As Map In datos
          
            Dim SessionID As Int = resl.Get("session_id")
            Dim AT As String = resl.Get("access_token")
            Dim RT As String = resl.Get("refresh_token")
            Dim T_EXPIRES As Float = resl.Get("access_token_expires_in")
          
            Dim row(4) As Object
            row(0) = SessionID
            row(1) = AT
            row(2) = RT
            row(3) = T_EXPIRES
          
            'datasessionlist.Add(row)
          
            Log(datos)
            Log("-----------")
            Log(AT)
            Log("-----------")
            Log(RT)
            Log("-----------")
            Log(T_EXPIRES)
            Log("---FIN DE LOS DATOS----")
          
        Next

But.. it doesn't work.. I got this error log...

B4X: 
Error occurred on line: 141 (Main)
java.lang.ClassCastException: anywheresoftware.b4a.objects.collections.Map$MyMap cannot be cast to java.util.List
    at anywheresoftware.b4a.objects.collections.List.getSize(List.java:129)
    at java.lang.reflect.Method.invoke(Native Method)
    at anywheresoftware.b4a.shell.Shell.runMethod(Shell.java:732)
    at anywheresoftware.b4a.shell.Shell.raiseEventImpl(Shell.java:348)
    at anywheresoftware.b4a.shell.Shell.raiseEvent(Shell.java:255)
    at java.lang.reflect.Method.invoke(Native Method)
    at anywheresoftware.b4a.ShellBA.raiseEvent2(ShellBA.java:144)
    at anywheresoftware.b4a.BA.raiseEvent(BA.java:193)
    at anywheresoftware.b4a.shell.DebugResumableSub$RemoteResumableSub.resume(DebugResumableSub.java:22)
    at anywheresoftware.b4a.BA.checkAndRunWaitForEvent(BA.java:267)
    at anywheresoftware.b4a.ShellBA.raiseEvent2(ShellBA.java:137)
    at anywheresoftware.b4a.BA$2.run(BA.java:387)
    at android.os.Handler.handleCallback(Handler.java:883)
    at android.os.Handler.dispatchMessage(Handler.java:100)
    at android.os.Looper.loop(Looper.java:214)
    at android.app.ActivityThread.main(ActivityThread.java:7356)
    at java.lang.reflect.Method.invoke(Native Method)
    at com.android.internal.os.RuntimeInit$MethodAndArgsCaller.run(RuntimeInit.java:492)
    at com.android.internal.os.ZygoteInit.main(ZygoteInit.java:930)

and I don't know what I'm doing wrong! Thank you in advance!!!
 
Last edited:
Solution
drgottjr
for simplicity's sake, just call:
B4X: 
            Dim SessionID As Int = resl.Get("session_id") '<----------line 143
            Dim AT As String = resl.Get("access_token")
            Dim RT As String = resl.Get("refresh_token")
            Dim T_EXPIRES As Float = resl.Get("access_token_expires_in")

you don't need "for each ... as". a map (datos) is not iterable. it is possible to iterate through a map's keys, but not through the map itself. you seem fascinated by "foreach ... as", so if you have to do it, it would be something like:
B4X: 
for each k as string in datos.keys
   log(k & " " & datos.get(k))
next

this is ok for stepping through a map where the keys are not known, and you want to find out what they are, but, in...
Sort by date Sort by votes
datos is a map, not a list.
your code should be:
B4X: 
        Dim datos As Map = mRoot.Get("data")

just because it has a number of "fields" doesn't make it a list. just use your normal map.get() methods.
datos.get("access_token"), datos.get("session_id"), datos.get("access_token_expires_in"), etc.
 
Upvote 0
drgottjr said:
datos is a map, not a list.
your code should be:
B4X: 
        Dim datos As Map = mRoot.Get("data")

just because it has a number of "fields" doesn't make it a list. just use your normal map.get() methods.
datos.get("access_token"), datos.get("session_id"), datos.get("access_token_expires_in"), etc.
Click to expand...
Hey drgottjr Thank you for answering.. well I've done that but it shows me:

B4X: 
Error occurred on line: 143 (Main)
java.lang.RuntimeException: Object should first be initialized (Map).
    at anywheresoftware.b4a.AbsObjectWrapper.getObject(AbsObjectWrapper.java:67)
    at anywheresoftware.b4a.objects.collections.Map.Get(Map.java:64)
    at java.lang.reflect.Method.invoke(Native Method)
    at anywheresoftware.b4a.shell.Shell.runMethod(Shell.java:732)
    at anywheresoftware.b4a.shell.Shell.raiseEventImpl(Shell.java:348)
    at anywheresoftware.b4a.shell.Shell.raiseEvent(Shell.java:255)
    at java.lang.reflect.Method.invoke(Native Method)
    at anywheresoftware.b4a.ShellBA.raiseEvent2(ShellBA.java:144)
    at anywheresoftware.b4a.BA.raiseEvent(BA.java:193)
    at anywheresoftware.b4a.shell.DebugResumableSub$RemoteResumableSub.resume(DebugResumableSub.java:22)
    at anywheresoftware.b4a.BA.checkAndRunWaitForEvent(BA.java:267)
    at anywheresoftware.b4a.ShellBA.raiseEvent2(ShellBA.java:137)
    at anywheresoftware.b4a.BA$2.run(BA.java:387)
    at android.os.Handler.handleCallback(Handler.java:883)
    at android.os.Handler.dispatchMessage(Handler.java:100)
    at android.os.Looper.loop(Looper.java:214)
    at android.app.ActivityThread.main(ActivityThread.java:7356)
    at java.lang.reflect.Method.invoke(Native Method)
    at com.android.internal.os.RuntimeInit$MethodAndArgsCaller.run(RuntimeInit.java:492)
    at com.android.internal.os.ZygoteInit.main(ZygoteInit.java:930)
** Activity (main) Pause, UserClosed = true **


B4X: 
For Each resl As Map In datos
            
            Dim SessionID As Int = resl.Get("session_id") '<----------line 143
            Dim AT As String = resl.Get("access_token")
            Dim RT As String = resl.Get("refresh_token")
            Dim T_EXPIRES As Float = resl.Get("access_token_expires_in")
 
Upvote 0
for simplicity's sake, just call:
B4X: 
            Dim SessionID As Int = resl.Get("session_id") '<----------line 143
            Dim AT As String = resl.Get("access_token")
            Dim RT As String = resl.Get("refresh_token")
            Dim T_EXPIRES As Float = resl.Get("access_token_expires_in")

you don't need "for each ... as". a map (datos) is not iterable. it is possible to iterate through a map's keys, but not through the map itself. you seem fascinated by "foreach ... as", so if you have to do it, it would be something like:
B4X: 
for each k as string in datos.keys
   log(k & " " & datos.get(k))
next

this is ok for stepping through a map where the keys are not known, and you want to find out what they are, but, in your case, you already know what you're looking for. just "get()" the value you want and move on with your life.
 
Upvote 1
Solution
Use ".AS"
To validate if it exists, use "GetDefault" or "ContainsKey"
Sample:
B4X: 
    Dim sText As String = $"{"statusCode":201,"success":true,"messages":["Hello","I am","Message"],"data":{"session_id":65,"access_token":"NTE3NzUzZmU3Yjk4ZDdjMmQ1YmQ0MzZjYzE0NThmMzBiNDhhZTBjOGJiMmUwYmU3MTY0MDM4NTAwOA==","access_token_expires_in":1200,"refresh_token":"YmY5YWYyYWI4OTQyOGMyOWI5YzE5YjBjYmY2NTAzNGY0YTc1YWM2NTMwN2Y0YzVlMTY0MDM4NTAwOA==","refresh_token_expires_in":1209600}}"$
    Dim mRoot As Map = sText.As(JSON).ToMap

    Log("----- STATUS ------")

    Dim Success As String = mRoot.Get("success")
    Dim StatusCode As Int = mRoot.Get("statusCode")
    Dim Messages As List = mRoot.GetDefault("messages","[]")

    Log($"Success : ${Success}"$)
    Log($"StatusCode : ${StatusCode}"$ )
    Log("Messages:")
    For Each msg As Object In Messages
        Log(msg)
    Next
    
    Log("----- DATA ------")
    If mRoot.ContainsKey("data") Then
        Dim Data As Map = mRoot.Get("data")
        Dim SessionID As Int = Data.GetDefault("session_id", 0)
        Dim Access_Token As String = Data.GetDefault("access_token","")
        Dim Access_Token_Expires_In As Int = Data.GetDefault("access_token_expires_in", 0)
        Dim Refresh_Token As String = Data.GetDefault("refresh_token","")
        Dim Refresh_Token_Expires_In As Int = Data.GetDefault("refresh_token_expires_in",0)

        Log($"SessionID : ${SessionID}"$)
        Log($"Access_Token : ${Access_Token}"$)
        Log($"Access_Token_Expires_In : ${Access_Token_Expires_In}"$)
        Log($"Refresh_Token : ${Refresh_Token}"$)
        Log($"Refresh_Token_Expires_In : ${Refresh_Token_Expires_In}"$)
    End If

    Log("--- END ----")
1640401475564.png
 
Last edited:
Upvote 1
drgottjr said:
for simplicity's sake, just call:
B4X: 
            Dim SessionID As Int = resl.Get("session_id") '<----------line 143
            Dim AT As String = resl.Get("access_token")
            Dim RT As String = resl.Get("refresh_token")
            Dim T_EXPIRES As Float = resl.Get("access_token_expires_in")

you don't need "for each ... as". a map (datos) is not iterable. it is possible to iterate through a map's keys, but not through the map itself. you seem fascinated by "foreach ... as", so if you have to do it, it would be something like:
B4X: 
for each k as string in datos.keys
   log(k & " " & datos.get(k))
next

this is ok for stepping through a map where the keys are not known, and you want to find out what they are, but, in your case, you already know what you're looking for. just "get()" the value you want and move on with your life.
Click to expand...
Hey Oparra thank you it is working!
 
Upvote 0
oparra said:
Use ".AS"
To validate if it exists, use "GetDefault" or "ContainsKey"
Sample:
B4X: 
    Dim sText As String = $"{"statusCode":201,"success":true,"messages":["Hello","I am","Message"],"data":{"session_id":65,"access_token":"NTE3NzUzZmU3Yjk4ZDdjMmQ1YmQ0MzZjYzE0NThmMzBiNDhhZTBjOGJiMmUwYmU3MTY0MDM4NTAwOA==","access_token_expires_in":1200,"refresh_token":"YmY5YWYyYWI4OTQyOGMyOWI5YzE5YjBjYmY2NTAzNGY0YTc1YWM2NTMwN2Y0YzVlMTY0MDM4NTAwOA==","refresh_token_expires_in":1209600}}"$
    Dim mRoot As Map = sText.As(JSON).ToMap

    Log("----- STATUS ------")

    Dim Success As String = mRoot.Get("success")
    Dim StatusCode As Int = mRoot.Get("statusCode")
    Dim Messages As List = mRoot.GetDefault("messages","[]")

    Log($"Success : ${Success}"$)
    Log($"StatusCode : ${StatusCode}"$ )
    Log("Messages:")
    For Each msg As Object In Messages
        Log(msg)
    Next
   
    Log("----- DATA ------")
    If mRoot.ContainsKey("data") Then
        Dim Data As Map = mRoot.Get("data")
        Dim SessionID As Int = Data.GetDefault("session_id", 0)
        Dim Access_Token As String = Data.GetDefault("access_token","")
        Dim Access_Token_Expires_In As Int = Data.GetDefault("access_token_expires_in", 0)
        Dim Refresh_Token As String = Data.GetDefault("refresh_token","")
        Dim Refresh_Token_Expires_In As Int = Data.GetDefault("refresh_token_expires_in",0)

        Log($"SessionID : ${SessionID}"$)
        Log($"Access_Token : ${Access_Token}"$)
        Log($"Access_Token_Expires_In : ${Access_Token_Expires_In}"$)
        Log($"Refresh_Token : ${Refresh_Token}"$)
        Log($"Refresh_Token_Expires_In : ${Refresh_Token_Expires_In}"$)
    End If

    Log("--- END ----")
View attachment 123409
Click to expand...
drgottjr said:
for simplicity's sake, just call:
B4X: 
            Dim SessionID As Int = resl.Get("session_id") '<----------line 143
            Dim AT As String = resl.Get("access_token")
            Dim RT As String = resl.Get("refresh_token")
            Dim T_EXPIRES As Float = resl.Get("access_token_expires_in")

you don't need "for each ... as". a map (datos) is not iterable. it is possible to iterate through a map's keys, but not through the map itself. you seem fascinated by "foreach ... as", so if you have to do it, it would be something like:
B4X: 
for each k as string in datos.keys
   log(k & " " & datos.get(k))
next

this is ok for stepping through a map where the keys are not known, and you want to find out what they are, but, in your case, you already know what you're looking for. just "get()" the value you want and move on with your life.
Click to expand...
drgottjr said:
for simplicity's sake, just call:
B4X: 
            Dim SessionID As Int = resl.Get("session_id") '<----------line 143
            Dim AT As String = resl.Get("access_token")
            Dim RT As String = resl.Get("refresh_token")
            Dim T_EXPIRES As Float = resl.Get("access_token_expires_in")

you don't need "for each ... as". a map (datos) is not iterable. it is possible to iterate through a map's keys, but not through the map itself. you seem fascinated by "foreach ... as", so if you have to do it, it would be something like:
B4X: 
for each k as string in datos.keys
   log(k & " " & datos.get(k))
next

this is ok for stepping through a map where the keys are not known, and you want to find out what they are, but, in your case, you already know what you're looking for. just "get()" the value you want and move on with your life.
Click to expand...
Hey thank you !! now it is working ! Well I'm not fascinated by for each hahaha just thought I was on the right way. Thank you!
 
Upvote 0
You must log in or register to reply here.

Similar Threads

Erel
  • Locked
  • Article Article
B4A Library [B4X][LOA] ListOfArrays - lightweight, powerful and flexible collection
Replies
12
Views
6K
Erel
Erel
fernando1987
  • Article Article
B4A Library ✨ Magic API: Build a Powerful Server-Side REST API with MySQL, MSSQL, SQLite, PostgreSQL, Oracle, and Firebird and File Management in 5 Minutes! 🚀
2
Replies
32
Views
20K
fernando1987
fernando1987
warwound
  • Question Question
Android Question IterableList remove item in loop
Replies
2
Views
3K
warwound
warwound
MitchBu
  • Question Question
Android Question Iterating though views and accessing their properties
Replies
8
Views
5K
agraham
agraham
Erel
  • Article Article
Android Tutorial Variables & Objects in Basic4android
2
Replies
21
Views
119K
omarruben
omarruben
Back
Top