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