منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
استخدام WebService خاصة بك في مشروعاتك الفعلية - الجزء الثالث - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم برمجة وتطوير المواقع (http://vb4arb.com/vb/forumdisplay.php?fid=51)
+--- قسم : قسم ASP.NET (http://vb4arb.com/vb/forumdisplay.php?fid=52)
+---- قسم : قسم مقالات ASP.NET (http://vb4arb.com/vb/forumdisplay.php?fid=54)
+---- الموضوع : استخدام WebService خاصة بك في مشروعاتك الفعلية - الجزء الثالث (/showthread.php?tid=5609)

استخدام WebService خاصة بك في مشروعاتك الفعلية - الجزء الثالث - RaggiTech - 14-10-12

كاتب الموضوع : أحمد جمال

بسم الله الرحمن الرحيم .
السلام عليكم ورحمة الله وبركاته .

مقدمة :
في الدرس السابق من هذه السلسلة تعلمنا كيفية عمل Web Service في أبسط صوره ، كما قمنا بتجربته أيضاً على جهاز المبرمج ، وفي هذا الدرس سوف نتعلم سوية بمشيئة الله تعالى كيفية استخدام هذه الـ Service في المشاريع الأخرى .

الدرس :

لنفترض أننا نريد الاستفادة من خدمة ويب في برنامج مثلاً للعمليات الحسابية ، ونريد أن نستخدم Web Service الذي قمنا به في الدرس السابق والذي يقوم بالتحويل من فهرنهايت إلى درجة مئوية والذي كان له الإسم ConvertSW .

قم الآن بانشاء تطبيق ويندوز عادي ، ومن قائمة Project اختر Add Web Refernce .
سيظهر لك مربع حواري قم باختيار ConvertSW.asmx الذي قمنا ببرمجته في الدرس السابق ، وكخدمة اضافية من Viusal Studio فسيتم عرض الخصائص والدوال التي تحتويها هذه الخدمة .
والآن ننتقل سريعاً إلى الكود ، وإذا كنت مبرمج VB.net فأنت تحتاج إلى أمر بهذا الشكل مثلاً :


كود :
Dim conv As New LocalHost.ConvertSW()
أما إذا كنت مبرمج سي شارب فكما اتفقنا لا فرق إلى في ال Syntex لذا ستغير جملتك لتكون بالشكل التالي :


كود :
LocalHost.ConvertSW conv=new LocalHost.ConvertSW()
والآن قم مثلاً بوضع Textbox1 و Label1 حيث أنك تقوم بادخال درجة الحرارة في الأول وتنتظر لكلي تعرض لك في الثاني ، الكود الكامل لهذه العملية يحتوي على الأمر السابق الخاص بتعريف الأوبجكت conv ، اضافة للسطر التالي :


كود :
Label1.Text = Convert.toString(conv.Convert(textBox1.text))
طبعاً لا تنس اضافة ; لو كنت مبرمج سي شارب ، ولو كنت مبرمج VB.net تأكد من وجود Convert.toString ايضاً في VB.net أو ابحث عن دالة بديلة للتحويل إلى نص String .

خلاص خلصنا . تمت المهمة بنجاح .

التنبيه الأخير قبل انهاء هذه الدرس هو انك إذا قمت بعمل تعديل في الخدمة ، قم في البرنامج الذي يستخدمها بعمل تحديث Update لها عن طريق الضغط عليها بزر الماوس الأيمن ومن ثم اختيار Update Web Reference .

والله الموفق ..
والسلام عليكم ورحمة الله وبركاته .