بعد از کد نویسی از طریق جیسون هنگام اجرای برنامه ارور زیر میاد
java.lang.RuntimeException: JSON Array expected.
میشه راهنمایی کنید؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟
کدهای من::
#Region Activity Attributes
#FullScreen: False
#IncludeTitle: false
#End Region
Sub Process_Globals
End Sub
Sub Globals
Dim ht_show As HttpJob
Private listV1 As ListView
Dim js As JSONParser
Dim lbl As Label
End Sub
Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("l1")
ht_show.Initialize("show",Me)
lbl = listV1.SingleLineLayout.Label
lbl.Gravity = Gravity.RIGHT
lbl.TextColor = Colors.RGB(121,85,72)
refresh
End Sub
Sub Activity_Resume
End Sub
Sub Activity_Pause (UserClosed As Boolean)
End Sub
Public Sub refresh
listV1.Clear
ProgressDialogShow2("در حال لود اطلاعات",False)
ht_show.Download("http://192.168.1.104:8080/hostandroid/show.php")
End Sub
Sub jobDone(job As HttpJob)
ProgressDialogHide
If job.Success Then
js.Initialize(job.GetString)
Dim l1 As List = js.NextArray
l1.Initialize
For i = 0 To l1.Size -1
Dim l2 As Map = l1.Get(i)
listV1.AddSingleLine2(l2.Get("name")& " " & l2.Get("family"),l2.Get("id"))
Next
Else
ToastMessageShow("خطا در برقرای ارتباط با سرور",False)
End If
End Sub
سوال
reza1360 2
دوستان لطفا راهنمایی کنید
بعد از کد نویسی از طریق جیسون هنگام اجرای برنامه ارور زیر میاد
java.lang.RuntimeException: JSON Array expected.
میشه راهنمایی کنید؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟
کدهای من::
#Region Activity Attributes #FullScreen: False #IncludeTitle: false #End Region Sub Process_Globals End Sub Sub Globals Dim ht_show As HttpJob Private listV1 As ListView Dim js As JSONParser Dim lbl As Label End Sub Sub Activity_Create(FirstTime As Boolean) Activity.LoadLayout("l1") ht_show.Initialize("show",Me) lbl = listV1.SingleLineLayout.Label lbl.Gravity = Gravity.RIGHT lbl.TextColor = Colors.RGB(121,85,72) refresh End Sub Sub Activity_Resume End Sub Sub Activity_Pause (UserClosed As Boolean) End Sub Public Sub refresh listV1.Clear ProgressDialogShow2("در حال لود اطلاعات",False) ht_show.Download("http://192.168.1.104:8080/hostandroid/show.php") End Sub Sub jobDone(job As HttpJob) ProgressDialogHide If job.Success Then js.Initialize(job.GetString) Dim l1 As List = js.NextArray l1.Initialize For i = 0 To l1.Size -1 Dim l2 As Map = l1.Get(i) listV1.AddSingleLine2(l2.Get("name")& " " & l2.Get("family"),l2.Get("id")) Next Else ToastMessageShow("خطا در برقرای ارتباط با سرور",False) End If End Sub
لینک ارسال
به اشتراک گذاری در سایت های دیگر
6 پاسخ به این سوال تاکنون داده شده است
ارسالهای توصیه شده
بایگانی شده
این موضوع بایگانی و قفل شده و دیگر امکان ارسال پاسخ نیست.