تصميم المواقع باستخدام isapi

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

3- مرحلة الثالثة منادات اكشن من رابطة ملف html

فبي المثال الاول تعلمنا كيف نكتب سكريبت اشتمل في داخل الدلفي و عرضه في المستكشف اما المثال الثاني تعلمنا كيف نفتح صفحت اشتمل بواسطة اكشن اما الان سنقوم بعمل رابطة تسمح بمنادات اكشن والتي بدورها تقوم بفتح صفحة جديدة اشتمل .

1- ننشا ملف اشتمل جديد اسمه مثلا

كود :

C:\allsource\html\my2htmlfile.html

نضيف مكون جديد اللى الواب مودب
PageProducer2
نربطه مع الملف الجديد فب الخاصية
HTMLFILE
و في الحدث نكتب

كود :

procedure TWebModule1.PageProducer2HTMLTag(Sender: TObject; Tag: TTag; const TagString: String; TagParams: TStrings; var ReplaceText: String);begin IF UpperCase(TagString)='NOM' THEN ReplaceText:='ZEKIRI'; IF UpperCase(TagString)='PNOM' THEN ReplaceText:='ABDELALI'; IF UpperCase(TagString)='AGE' THEN ReplaceText:='33'; IF UpperCase(TagString)='TEL' THEN ReplaceText:='0609690006';end

ننشا اكشن جدي نسميها Goto2htmlfil
في الخاصية PATHINFO نكتب /GOTO2
وفي الحدث ONACTION نكتب

كود :

procedure TWebModule1.WebModule1Goto2htmlfilAction(Sender: TObject; Request: TWebRequest; Respo nse: TWebResponse; var Handled: Boolean);begin Response.Content := PageProducer2.Content;end;

انشاء الرابطة
نغير في الملف الاشتمل الاول و الذي سميناه
myhtmlfile.html
نكتب
نغير في الكود اسم المتغيرة

كود :

IF UpperCase(TagString)='MSG' THEN ReplaceText:='View file of the student :zekiri abdelali';[/CODE [code]] http://www.arabteam2000-forum.com/uploads/monthly_02_2009/post-1034-1233952433.jpg