ciao a tutti!
un committente mi ha chiesto di realizzare una app Android (per ora, dopo anche ios) che dialoghi con un webservice presente su un server in cloud.
Potete verificare il funzionamento del webservice a questo link:
http://149.202.159.234:8081/ws/GetAlunni?annoSc=16/17&codice=0000014845
il risultato è un json con alcuni dati relativi ad un alunno (ho già filtrato nella chiamata un alunno con dati di test).
Questo è il risultato:
[{"CODSTUDE":"0000014845","COGSTUDE":"PAGANO ","NOMSTUDE":"MARIANGELA ","DTNASSTU":null,"CODSCUOL":"BREDA ","DESSCUOL":"BIAGIO GRIMALDI -BREDA M ","CLASTUDE":"1","SEZSTUDE":"B ","VALBUONI":13.20}]
Ho provato a creare la seguente applicazione in B4Android:
il log mi dice che il job ha avuto successo ma non riesco a ricevere alcun dato di ritorno....
Infatti nella mia listview trovo sempre "nessun dato..."
Premesso che è il mio primo tentativo con Json, cosa potrebbe essere che non va?
Grazie anticipatamente a tutti!
Ciro
un committente mi ha chiesto di realizzare una app Android (per ora, dopo anche ios) che dialoghi con un webservice presente su un server in cloud.
Potete verificare il funzionamento del webservice a questo link:
http://149.202.159.234:8081/ws/GetAlunni?annoSc=16/17&codice=0000014845
il risultato è un json con alcuni dati relativi ad un alunno (ho già filtrato nella chiamata un alunno con dati di test).
Questo è il risultato:
[{"CODSTUDE":"0000014845","COGSTUDE":"PAGANO ","NOMSTUDE":"MARIANGELA ","DTNASSTU":null,"CODSCUOL":"BREDA ","DESSCUOL":"BIAGIO GRIMALDI -BREDA M ","CLASTUDE":"1","SEZSTUDE":"B ","VALBUONI":13.20}]
Ho provato a creare la seguente applicazione in B4Android:
B4X:
Sub Activity_Create(FirstTime As Boolean)
'Do not forget to load the layout file created with the visual designer. For example:
Activity.LoadLayout("Main")
End Sub
Sub JobDone (Job As HttpJob)
Log("JobName = " & Job.JobName & ", Success = " & Job.Success)
Log(Job.ErrorMessage)
If Job.Success = True Then
Dim res As String
res = Job.GetString
Log("Back from Job:" & Job.JobName )
Log("Response from server: " & res)
Log(Job.GetString)
' facciamo il parsing del json ricevuto
Dim parser As JSONParser
parser.Initialize(res)
Dim ListOfPersons As List
Dim Dato As String
Dim Valore As String
ListOfPersons = parser.NextArray 'returns a list with maps
ListView1.Clear
If ListOfPersons.Size=0 Then
ListView1.AddSingleLine ("Nessun dato...")
Else
For i = 0 To ListOfPersons.Size - 1
Dim Person As Map
Person = ListOfPersons.Get(i)
Dato = Person.Get("codstude")
Valore = Person.Get("cogstude")
ListView1.AddSingleLine (Dato & ", " & Valore)
Next
End If
Else
Log("Error: " & Job.ErrorMessage)
ToastMessageShow("Error: " & Job.ErrorMessage, True)
End If
Job.Release
End Sub
Sub Activity_Resume
End Sub
Sub Activity_Pause (UserClosed As Boolean)
End Sub
Sub Button1_Click
Dim job1 As HttpJob
job1.Initialize("Job1", Me)
'Send a GET request
job1.Download2("http://149.202.159.234:8081/ws/GetAlunni?", _
Array As String("annoSc", "16/17 :)", "codice", "0000014845"))
End Subil log mi dice che il job ha avuto successo ma non riesco a ricevere alcun dato di ritorno....
Infatti nella mia listview trovo sempre "nessun dato..."
Premesso che è il mio primo tentativo con Json, cosa potrebbe essere che non va?
Grazie anticipatamente a tutti!
Ciro
