[d3vc0d]

(25-02-20, 07:16 PM)alfaiz678 كتب :

PHP كود :

//ListView   هذا مثال لاستعراض الاسماء ووضعها في 


كود :

Sub JobDone(Job As HttpJob)
   If Job.Success Then
       Dim res As String
       res = Job.GetString
   Log("Response from server: " & res)
       Dim parser As JSONParser
       parser.Initialize(res)
       
       If Job.JobName="Job1" Then      // اسم المتغير الذي  بين التنصيص في امر Job1.Initialize
           Dim COUNTRIES As List
           COUNTRIES = parser.NextArray    //'returns a list with maps
           If COUNTRIES.Size > 0 Then
               
//  هنا نضع الطلوب اذا نجح الاستعلام
                                           For i = 0 To COUNTRIES.Size - 1
                                Dim m As Map
                m = COUNTRIES.Get(i)
                ListView.AddTextItem(m.Get("name") ,id)
            Next
           Else
// في حالة عدم وجود البيانات
               ToastMessageShow("لم تقم بتسجيل حسابك بعد",True)
           End If
       End If
   Else
//  في حالة عدم الاتصال بالنت
       ToastMessageShow("لم تتم العملية تأكد من اتصالك بالانترنت",True)
   End If
   ProgressDialogHide
End Sub

---

راجع الردود من البداية لاني قمت ببعض التغييرات فيها

لم اتمكن من الاتصال بقاعدة البيانات   ثم اريد عرض المعلومات في  labels