06-05-16, 08:37 AM
(آخر تعديل لهذه المشاركة : 06-05-16, 08:39 AM {2} بواسطة Ahmed_Mansoor.)
وعليك السلام ورحمة الله وبركاته ، أهلا أخي سعود ، أنا لم أتعامل مع الدوت نت من قبل ، ولكن أعتقد أنني فهمت ماتريده وبصراحه أعجبني موضوع الـ WebService يعني تغنيك من إستخدام تطبيق يعمل كسيرفر لإستقبال وإرسال الأوامر من وإلى برنامجك ، على العموم جماعة الـ B4A قاموا بعمل مكتبة بإسم HttpUtils وهي من ضمن المكتبات الإفتراضيه التي يتم تثبيتها مع برنامج الـ B4A وهي خاصه بالتعامل مع سيرفرات المواقع وخدمات الويب التي ذكرتها في سؤالك وأدائها ليس بالسيئ ولكن يتعبك شوي في كتابة كودها وماترجعه لك هو محتوى الصفحه أو تنسيق الـ XML بالنسبة للويب سيرفس ويجب عليك إستخلاص القيم التي تريدها من نص المحتوى المرجع لك يعني كتحليل كما ذكرت ، لكن في موقع بيئة التطوير B4 قرأت موضوع للنسخه الثانية من مكتبة الـ HttpUtils وعلى حسب مافهمت من شرح أحد أعضاء مطوري البيئة (لغتي الإنجليزي مش ولابد) أنك لن تحتاج التحليل بعد هذا الإصدار حيث يتم إرجاع القيم فقط وأيضاً إستعمالها صار مختصر وأسهل ، وهذه طريقة الإستخدام في إستدعاء الطرق مع تمرير الباراميترات لها :
PHP كود :
Sub Activity_Create(FirstTime As Boolean)
Dim job1, job2, job3 As HttpJob
job1.Initialize("Job1", Me)
'Send a GET request
job1.Download2("http://www.basic4ppc.com/print.php", _
Array As String("first key", "first value :)", "second key", "value 2"))
'Send a POST request
job2.Initialize("Job2", Me)
job2.PostString("http://www.basic4ppc.com/print.php", "first key=first value&key2=value2")
'Send a GET request
job3.Initialize("Job3", Me)
job3.Download("http://www.basic4ppc.com/forum/images/categories/android.png")
End Sub
Sub JobDone (Job As HttpJob)
Log("JobName = " & Job.JobName & ", Success = " & Job.Success)
If Job.Success = True Then
Select Job.JobName
Case "Job1", "Job2"
'print the result to the logs
Log(Job.GetString)
Case "Job3"
'show the downloaded image
Activity.SetBackgroundImage(Job.GetBitmap)
End Select
Else
Log("Error: " & Job.ErrorMessage)
ToastMessageShow("Error: " & Job.ErrorMessage, True)
End If
Job.Release
End Sub

