delphi4arab منتديات دلفي للعرب

--------------------------------------------------------------
درس Web Services في الدلفي
http://www.delphi4arab.net/forum/showthr...p?tid=3133
--------------------------------------------------------------
بســم الله الـرحمــن الرحيــم
ب) - نفس المثال السابق مع بريزم
اولا نعدل في خصائص iis كي نستطيع العمل على مشروعنا خارج VS2008
اذا لا بد من تفعيل asp.net في iis
لاحظ الصورة 1
ثم نقوم بعمليه تسجيل asp.net باكتابة تعليمة دوس كالتالي

كود :
%Windir%/Microsoft.NET/Framework/v2.0.50727/aspnet_regiis.exe -i

كود :
http://www.arabteam2000-forum.com/uploads/monthly_06_2009/post-1034-1245917559.jpg

1-انشاء خدمت الويب

نقوم بما هو موضح في الصورة اي انشاء مشرروع جديد من نوع خدمت ويب

كود :
http://www.arabteam2000-forum.com/uploads/monthly_06_2009/post-1034-1245918541.jpg

وكما تلاحظون ان vs2008 انشا البا الكود سورس مع مثال وهذا المثال هو نفسه الذي نحن بصدد انشاءه .
ولتجرية الصفحة وعرض نتيجه الميتود او الوضيفة HelloWorld
ننقر بالزر الايمن على الملف Service.asmx وننفذ التعليمة
عرض على المتصفح

كود :
http://www.arabteam2000-forum.com/uploads/monthly_06_2009/post-1034-1245918928.jpg

كود :
http://www.arabteam2000-forum.com/uploads/monthly_06_2009/post-1034-1245919100.jpg

2-برمجة الزبون

نقوم بانشاء مشروع جديد من نوع ونداوز فورم كمايلي

كود :
http://www.arabteam2000-forum.com/uploads/monthly_06_2009/post-1034-1245919523.jpg

نظع زر و تكست بوكس وننقر مرتين على الزر لنصل الى الحدث Click
في هذا الحدث سنقوم باستدعاء الميتود التي انشاءناها في الخدمت وهي HelloWorld
لكن السؤال هو كيف سنصل اليها وهي في مشروع اخر و في جهاز اخر او في خدمت ويب لا نعرف الا url فقط
---------------------------------------------------------------------
انسى انك انت من انشاءة الخدمت
---------------------------------------------------------------------
اذ ماهو url الخاص بالخدمت انه في الصورة السابقة
plain text

http://localhost/service1/Service.asmx

لكن ماهذا اليست صفحه واب
الجواب لا لان F .net هو من حول الخدمت الى صفحة واب يراها الجميع
الا انه في الحقيقة هي ملف XML يحتوي على متود و ليس له واجهة كما ذكرنا سابقا
--------------------------------------------------------------------
نعم عرفنا مسار موقع الخدمت لكن كيف سنعرفها الى مشروعنا
مثل ما نعرف ملف dll لكن سنعرف خدمت فقط
التعليمتين متشابهتين
référencesبالنقر بالزر الايمن على
انضر

كود :
http://www.arabteam2000-forum.com/uploads/monthly_06_2009/post-1034-1245920665.jpg

لان نريد عرض ما ترجعه المتيتود في محتوي
textboxو ذلك بالضغط على الزر

نكتب

كود :
method MainForm.button1_Click(sender: System.Object; e: System.EventArgs);
begin
    var o_service1 := new Client_ws.U_service1.Service;
    textBox1.Text:= o_service1.HelloWorld();
end;

كما تلاحظ اني عرفة الكائن او الشيء o_service1 و انشأته في ان واحد وذلك من الكلاس
U_service1 و الموجوده في مشروعنا هذا اذ
اسم المشروع . اسم الوحدة او الكلاس التي كتبنا اسمها عندما قمنا بالربط مع الخدمت
و بالتالي نتحص في الاخير على الميتود HelloWorld الموجودة في الخدمت .

كود :
http://www.arabteam2000-forum.com/uploads/monthly_06_2009/post-1034-1245940109.jpg

من المثال السابق تستنج ان الشكل العام للبنية خدت الويب هي

كود :
http://www.arabteam2000-forum.com/uploads/monthly_06_2009/post-1034-1246137212.jpg

زكيري عبدالعالي