Hi all.
In the app i'm developing i have this error:
main_hc_responsesuccess (B4A line: 84)
l = parser.NextArray
org.json.JSONException: Unterminated object at character 20 of [{MESSAGGIO:Sergio Sbracia}]
if i wrote:
[{MESSAGGIO:Sergio}]
it works.
Why i have that error if [{MESSAGGIO:Sergio Sbracia}] ?
THIS IS THE CODE:
Dim l As List
l = parser.NextArray
If l.Size = 0 Then
Msgbox("Utente non riconosciuto","Errore")
Else
Dim m As Map
m = l.Get(0)
Select M.Get("MESSAGGIO")
Case 1
Msgbox("Nome utente/password errati","Accesso negato")
Case 2
Msgbox("Controlla le maiuscole/minuscole","Accesso negato")
Case Else
Msgbox(m.Get("MESSAGGIO"),"ACCESSO EFFETTUATO")
End Select
ProgressDialogHide
End If
THX TO ALL.
In the app i'm developing i have this error:
main_hc_responsesuccess (B4A line: 84)
l = parser.NextArray
org.json.JSONException: Unterminated object at character 20 of [{MESSAGGIO:Sergio Sbracia}]
if i wrote:
[{MESSAGGIO:Sergio}]
it works.
Why i have that error if [{MESSAGGIO:Sergio Sbracia}] ?
THIS IS THE CODE:
Dim l As List
l = parser.NextArray
If l.Size = 0 Then
Msgbox("Utente non riconosciuto","Errore")
Else
Dim m As Map
m = l.Get(0)
Select M.Get("MESSAGGIO")
Case 1
Msgbox("Nome utente/password errati","Accesso negato")
Case 2
Msgbox("Controlla le maiuscole/minuscole","Accesso negato")
Case Else
Msgbox(m.Get("MESSAGGIO"),"ACCESSO EFFETTUATO")
End Select
ProgressDialogHide
End If
THX TO ALL.