Android Question java.util.HashMap to b4a list, map?

[stanks]

How to?

With this part of code

Dim s As String
s = XMLRPC1.objectCall3("authenticate", sesija.SubString2(8, sesija.Length), "", "")
Log(s)

i get

{status=200, search_langs=[Ljava.lang.Object;@64bf6f70, search_restrict=false}

which is ok (status 200), but i want list from search_langs. if i put list instead of string i get err:

java.lang.ClassCastException: java.util.HashMap cannot be cast to java.util.List

thanks

 

[Erel]

Try:

Dim m As Map = XMLRPC1...

 

[stanks]

tried and here is the err:

java.lang.ClassCastException: java.util.HashMap cannot be cast to anywheresoftware.b4a.objects.collections.Map$MyMap

 

[Erel]

This library is not implemented correctly. You will need to access the HashMap with JavaObject:

Dim jo As JavaObject = XMLRPC...
Log(jo.RunMethod("get", Array("status"))

 

[stanks]

hm searchLangs - is a list of languages used but i am still getting

[Ljava.lang.Object;@64bf9bd0

when i call

Log(jo.RunMethod("get", Array("search_langs")))

 

[Erel]

We are almost there:

Dim langs() As Object = jo.RunMethod("get, ...)
For Each l As Object in langs
 Log(l)
Next

 

[stanks]

hm no log at all....like langs() is empty

 

[DonManfred]

What is the complete code you are actually using?

 

[MarcoRome]

hm no log at all....like langs() is empty

Do you solved ?
In which way ?

Thank's
Marco

 

[stanks]

i didn't...sry

 

[MarcoRome]

Hi all.
I have the same problem, I tried the code Erel, but the value returns null
If i write this code:

Sub Process_Globals
    'These global variables will be declared once when the application starts.
    'These variables can be accessed from all modules.
 
End Sub
 
Sub Globals
    'These global variables will be redeclared each time the activity is created.
    'These variables can only be accessed from this module.
    Dim XMLRPC1 As XMLRPC
    Dim XMLRPC2 As XMLRPC
 
    Private EditText1 As EditText
End Sub
 
Sub Activity_Create(FirstTime As Boolean)
 
    Activity.LoadLayout("bus_roma_paline")
    If FirstTime Then
        XMLRPC1.Initialize("XMLRPC1")
        XMLRPC2.Initialize("XMLRPC2")
    End If
'Preleva Token
XMLRPC1.initXMLRPCClient("http://muovi.roma.it/ws/xml/autenticazione/1")
Dim vedi As String = XMLRPC1.objectCall2("autenticazione.Accedi","RwYtcwQz85DUpn6FPQCU7ImB2MBM8Dfl","")
Log(vedi)
ToastMessageShow(vedi, True)
EditText1.Text = "***Autentificazione***" & vedi & CRLF
 
 
'Preleva Tempo Bus sulla Palina
XMLRPC2.initXMLRPCClient("http://muovi.roma.it/ws/xml/paline/7")
Dim previsioni As Object  = XMLRPC2.objectCall3("paline.Previsioni",vedi,70101,"")
Log(previsioni) ' i wait that here return value
EditText1.Text = EditText1.Text & CRLF & "***Preleva Tempo***" & previsioni
 
 
 
End Sub
 
Sub Activity_Resume
 
End Sub
 
Sub Activity_Pause (UserClosed As Boolean)
 
End Sub

i have this result:

all ok but in:

primi_per_palina = Ljava.lang.Object;@423bda78
arrivi = Ljava.lang.Object;@423bc6f0

another result is correct ( collacazione, nome, etc ).

Now if i use this code as suggestion Erel:

Sub Process_Globals
    'These global variables will be declared once when the application starts.
    'These variables can be accessed from all modules.
 
End Sub
 
Sub Globals
    'These global variables will be redeclared each time the activity is created.
    'These variables can only be accessed from this module.
    Dim XMLRPC1 As XMLRPC
    Dim XMLRPC2 As XMLRPC
 
    Private EditText1 As EditText
End Sub
 
Sub Activity_Create(FirstTime As Boolean)
 
    Activity.LoadLayout("bus_roma_paline")
    If FirstTime Then
        XMLRPC1.Initialize("XMLRPC1")
        XMLRPC2.Initialize("XMLRPC2")
    End If
'Preleva Token
XMLRPC1.initXMLRPCClient("http://muovi.roma.it/ws/xml/autenticazione/1")
Dim vedi As String = XMLRPC1.objectCall2("autenticazione.Accedi","RwYtcwQz85DUpn6FPQCU7ImB2MBM8Dfl","")
Log(vedi)
ToastMessageShow(vedi, True)
EditText1.Text = "***Autentificazione***" & vedi & CRLF
 
 
''Preleva Tempo Bus sulla Palina
'XMLRPC2.initXMLRPCClient("http://muovi.roma.it/ws/xml/paline/7")
'Dim previsioni As Object  = XMLRPC2.objectCall3("paline.Previsioni",vedi,70101,"")
'Log(previsioni) ' i wait that here return value
'EditText1.Text = EditText1.Text & CRLF & "***Preleva Tempo***" & previsioni
 
 
Dim jo As JavaObject = XMLRPC2.objectCall3("paline.Previsioni",vedi,70101,"")
'Log(jo.RunMethod("get", Array("primi_per_palina"))
Dim langs() As Object = jo.RunMethod("get", Array("primi_per_palina"))
For Each l As Object In langs
EditText1.Text = CRLF & l
Next
 
 
End Sub
 
Sub Activity_Resume
 
End Sub
 
Sub Activity_Pause (UserClosed As Boolean)
 
End Sub

i have this result:

In attachment source.
Any idea ?
Thank you all
Marco