hi
i am trying to get the entires from my mysql db via php but what i get is an error saying JSON array expected...
this is the log:
this is the code:
and php code:
what am i doing wrong?
thanx
i am trying to get the entires from my mysql db via php but what i get is an error saying JSON array expected...
this is the log:
this is the code:
B4X:
Sub loadalljobs As ResumableSub
jobsclv.Clear
Dim j As HttpJob
j.Initialize("", Me)
j.Download2("http://www.sagital.net/msjobs4.php", Array As String ("action", "getjobs"))
Wait For (j) JobDone(j As HttpJob)
If j.Success Then
Log(UnescapeUnicode(j.GetString))
Dim parser As JSONParser
parser.Initialize(UnescapeUnicode(j.GetString))
Dim root As List = parser.NextArray
Log(root.Size)
End If
j.Release
Return True
End Sub
Sub UnescapeUnicode(s As String) As String
Dim sb As StringBuilder
sb.Initialize
Dim i As Int
Do While i < s.Length
Dim c As Char = s.CharAt(i)
If c = "\" And i < s.Length - 1 And s.CharAt(i + 1) = "u" Then
Dim unicode As StringBuilder
unicode.Initialize
i = i + 2
Do While i < s.Length
Dim cc As String = s.CharAt(i)
Dim n As Int = Asc(cc.ToLowerCase)
If (n >= Asc("0") And n <= Asc("9")) Or (n >= Asc("a") And n <= Asc("f")) Then
unicode.Append(s.CharAt(i))
Else
i = i - 1
Exit
End If
i = i + 1
Loop
sb.Append(Chr(Bit.ParseInt(unicode.ToString, 16)))
Else
sb.Append(c)
End If
i = i + 1
Loop
Return sb.ToString
End Suband php code:
B4X:
Case "getjobs":
$q = mysqli_query($con, "SELECT * FROM $table ORDER BY id");
$rows = array();
while($r = mysqli_fetch_assoc($q))
{
$rows[] = $r;
}
print json_encode($rows);
mysqli_free_result($q);
break;what am i doing wrong?
thanx
