دخول

زكيري عبدالعالي · 27-06-2011, 08:22 AM

2- برمجة الزبون
ان تطبيق الزبون اما ان يكون تطيب ويب او وندوزعادي ويتم استغلال مجوموعة الميتود او الوظافة التي كتبناها في خدمه الويب باتباع الخطوات التالية
أ*-ننشأ تطبيق جدبد VCL به نافذة واحدة
*-نضيف الكلاسات او الوحدات التالي بواسطتها نتصل بالخادم

كود :
http://bdntv.codegear.com/pix/PawelGlowacki/20081210/Fig18_NewItems_WSDLImporter.PNG

بعد الموافقة سممكننا الدلفي من انشاء WSDL Importer wizard والتي يجب اعطاءها رابطة الخدمة التي انشئناها ولتكن
http://localhost/Del...phi2009WS_1.exe
هذا مسار الملف التنفيذي لتطبق الخدمة لكن نحن بحاجة الى الملف الناتج من هذه التعلمة الذي قام بانشائه SOAP اذن نظيف الى الرابطة
http://localhost:808.../wsdl/Iservice1
حيث ان Iservice1 هو اسم الخدم التي انشاناها سايقا

كود :
http://bdntv.codegear.com/pix/PawelGlowacki/20081210/Fig19_WSDLImporter_URL.PNG

نضغط على زر التالي نتحصل على نافذه تعرض لنا كل كل الوذظائف الموجودة في الخدمة و في مثالنا استعملنا سوى واحدة كما نرى الكود سورس الذي كتبه الدلفي اليا في هذه العملية .

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

و في الاخير نكتب الكود التالي الذي سيستدعي الوظيفة في زر نضعه على الفورم

كود :
unit Unit3;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs, StdCtrls
;
type
  TForm3 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    procedure Button1Click(Sender: TObject);
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
  end;
var
  Form3: TForm3;
implementation{$R *.dfm}
uses Iservice11;
 
procedure TForm3.Button1Click(Sender: TObject);
begin
   edit1.Text:=GetIservice1.ShwoHelloWorld();
end;
 
end.

هنا بحول الله قد اكمالنا اول مثال على خدمه الويب في الدلفي win32
يمكن ان نعمل على ISAPI كما ذكرة سابقا وهي بنفس الكريقة الا ان المتحصل عليه هو ملف dll
ولكن بالدلفي بريسم هي اسهل و اسرع لانه يعتمد على .NET

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

merci,

دخول
اسم المستخدم/البريد الالكتروني :
كلمة المرور :	فقدت كلمة المرور ؟
	تذكرني بالمرة القادمة