sub Globals
Private ListV1 As ListView
Dim ht_show As HttpJob
Dim jp As JSONParser
End Sub
Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("main")
ht_show.Initialize("show",Me)
ListV1.SingleLineLayout.Label.Gravity = Gravity.CENTER
ListV1.SingleLineLayout.Label.TextColor = Colors.RGB(60,60,60)
ListV1.SingleLineLayout.Label.TextSize = 20
Refresh
End Sub
Public Sub Refresh
ListV1.Clear
ProgressDialogShow2("لطفا منتظر بمانید",False)
ht_show.Download("http://gamebox.gigfa.com/php/show.php")
End Sub
Sub JobDone(Job As HttpJob)
ProgressDialogHide
If Job.Success Then
jp.Initialize(Job.GetString)
Dim l1 As List = jp.NextArray
For i = 0 To l1.Size - 1
Dim m1 As Map = l1.Get(i)
ListV1.AddSingleLine2(m1.Get("title"),m1)
Next
Else
ToastMessageShow("خطا در برقراری ارتباط با سرور",False)
End If
Job.Release
End Sub
سوال
mohamadalira 0
سلام خسته نباشید من این کد های php رو آپلود کردم رو هاست
و توی بیسیک فور اندروید
و همش خطا در برقراری ارتباطو میده
مشکل میتونه به دلیل رایگان بودن هاست باشه؟
لینک ارسال
به اشتراک گذاری در سایت های دیگر
1 پاسخ به این سوال تاکنون داده شده است
ارسالهای توصیه شده
بایگانی شده
این موضوع بایگانی و قفل شده و دیگر امکان ارسال پاسخ نیست.