[alfaiz678]

بعد رفع الملفين على الاستضافة
وليكن الرابط

http://www.*****.com/MyApp/All.php

في b4a
قم باستيراد مكتبة OkHttpUtils2
قم بتعريف المكتبة

PHP كود :

Dim Job1 As HttpJob 


ستكون التجربة على عملية الاستعراص وبقية العمليات على نفس النمط

PHP كود :

Sub asd
ProgressDialogShow2("جاري تحميل البيانات ",False)
    Job1.Initialize("Job1",Me)
    Job1.PostString("http://www.*****.com/MyApp/All.php", _
     "SELECT * FROM T1 where Name like'" & Name & _
    "' And NumPhone like'" & NumPhone & "'")
End Sub 


---

هذا الحدث ضعه تحت زر الامر بالاستعراض او اي مكان تريد
ووضيفته
انه يستورد البيانات من السيرفر بناءا على المعطيات الموجودة في ملف php.All

---

الان قمنا باستيراد البيانات بقي لخر خطوة وهو حدث النجاح لمكتبة HttpJob
وطبعا اسمه ثابت لايتغير

---

PHP كود :

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
                
//  هنا نضع الطلوب اذا نجح الاستعلام 
            Else
// في حالة عدم وجود البيانات
                ToastMessageShow("لم تقم بتسجيل حسابك بعد",True)
            End If
        End If
    Else
//  في حالة عدم الاتصال بالنت
        ToastMessageShow("لم تتم العملية تأكد من اتصالك بالانترنت",True) 
    End If
    ProgressDialogHide
End Sub