مشروع واب Isapi

#515 فبراير 2009 في 22:43

بســم الله الـرحمــن الرحيــم

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

سبدا ان شاء الله

-----------------------------------------------------------------------

1- كود سورس الدلفي

-----------------------------------------------------------------------

الصورة الموضح امامكم تمصل كل شئ

يكفي ان نكتب في الحدث تاموضح هذا الكود

انسخ الكود

procedure TWebModule1[color= #339933;].WebModule1wellcamAction[color= #009900;](Sender[color= #339933;]: TObject[color= #339933;];Request[color= #339933;]: TWebRequest[color= #339933;]; Response[color= #339933;]: T
WebResponse[color= #339933;]; [color= #000000; font-weight: bold;]var Handled[color= #339933;]: Boolean[color= #009900;])[color= #339933;];

begin

 Response[color= #339933;].Content [color= #339933;]:=

                    [color= #0000ff;]'<html>' [color= #339933;]+

                    [color= #0000ff;]'<head>' [color= #339933;]+

                    [color= #0000ff;]'        <title>User Log on</title>' [color= #339933;]+

                    [color= #0000ff;]'</head>' [color= #339933;]+

                    [color= #0000ff;]'<body>' [color= #339933;]+

                    [color= #0000ff;]'WELLCAM' [color= #339933;]+

                    [color= #0000ff;]'</body>' [color= #339933;]+

                    [color= #0000ff;]'</html>'

                   [color= #339933;];

 [color= #990000;]end[color= #339933;];

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

-----------------------------------------------------------------------

2 النتيجة هي ملف DLL

-----------------------------------------------------------------------

نسميه APP.DLL

نضعه في المسار المعين في الصورة 2

-----------------------------------------------------------------------

3- تغيير اعدادات الاباش

-----------------------------------------------------------------------

انسخ الكود

AliasMatch ^[color= #339933;]/bin[color= #009900;]([color= #339933;].*[color= #009900;]) [color= #0000ff;]"C:/allsource/bin$1"

[color= #339933;]<Directory [color= #0000ff;]"C:/allsource/bin"[color= #339933;]>

    Options  Indexes MultiViews ExecCGI

    AllowOverride None

    Order allow[color= #339933;],deny

    allow from all  

    [color= #666666; font-style: italic;]#Deny from 10.0.0.192

[color= #339933;]</Directory[color= #339933;]>

 

 

ScriptAliasMatch ^[color= #339933;]/ex1[color= #339933;]/[color= #009900;]([color= #339933;].*[color= #009900;]) [color= #0000ff;]"C:/allsource/bin/app.dll/$1"

 

 

[color= #666666; font-style: italic;]#Ajouter par Naïm

AddHandler isapi[color= #339933;]-isa dll

لقد وضعنا اسم اختصار (bin) للمسار او الوجهة

C:/allsource/bin

و اخبرنا اياش ان الكل يستطيع الوصول اليها و له الحق في التغيير فيها

ثم انشانا اسم اختصار للملف دلل (ex1)

C:/allsource/bin/app.dll

-----------------------------------------------------------------------

4- مرحلة النتفيذ

-----------------------------------------------------------------------

نكتب في فيرفوكس او IE

http://localhost/ex1/

-----------------------------------------------------------------------

النتيجه في الصورة

هذا كل شئ

وفقكم الله

تم تعديل هذه المشاركة بواسطة زكيري عبد العالي في 5 فبراير 2009 في 22:48

#525 فبراير 2009 في 23:23

بســم الله الـرحمــن الرحيــم

II- كيفية فتح ملف html بواسطة ACTION ISAPI

---------------------------------------------------------------------------------

*- الان سنقوم بانشاء صفحة اشتامل ولنسميها مثلا

myhtmlfile.html

*-نضع الملف في

انسخ الكود

C[color= #339933;]:allsourcehtml

*- نكتب فيه

انسخ الكود

[color= #339933;]<html[color= #339933;]><body[color= #339933;]><h1[color= #339933;]><[color= #666666; font-style: italic;]#NOM></h1></body></html>

---------------------------------------------------------------------------------

2- كود سورس الدلفي

نضع المكون

PageProducer1

في الخاصية

HTTPFILE

نكتب

انسخ الكود

C[color= #339933;]:allsourcehtmlmyhtmlfile[color= #339933;].html

في الحدث

PageProducer1HTMLTag

نكتب

انسخ الكود

 

procedure TWebModule1[color= #339933;].PageProducer1HTMLTag[color= #009900;](Sender[color= #339933;]: TObject[color= #339933;]; Tag[color= #339933;]: TTag[color= #339933;]; const TagString[color= #339933;]: String[color= #339933;];
 TagParams[color= #339933;]: TStrings[color= #339933;]; [color= #000000; font-weight: bold;]var ReplaceText[color= #339933;]: String[color= #009900;])[color= #339933;];

begin

     [color= #b1b100;]IF UpperCase[color= #009900;](TagString[color= #009900;])[color= #339933;]=[color= #0000ff;]'NOM' THEN

       ReplaceText[color= #339933;]:=[color= #0000ff;]'ZEKIRI ABDELALI ISAPI V0.1 '[color= #339933;];

[color= #990000;]end[color= #339933;];

تم تعديل هذه المشاركة بواسطة زكيري عبد العالي في 5 فبراير 2009 في 23:47

#535 فبراير 2009 في 23:25

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

لقد نجحت معي ايضا

المثال في المرفقات

app_Source.rar

allsource.rar

تم تعديل هذه المشاركة بواسطة maosalah في 5 فبراير 2009 في 23:43

إعجاب الإنسان بنفسه دليل على صغر عقله

-----------------------------------------------------------------

رأس الحكمة مخافة الله

#545 فبراير 2009 في 23:54

شكرا اخي maosalah بارك الله فيك على المشاركة

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

هيا لينا خويا عليلو حج ولا عوق

و انت اخي طلال ...

#556 فبراير 2009 في 00:05

اقتباس
هيا لينا خويا عليلو حج ولا عوق

ما تكسرش راسك راني هنا نستنى في 2007 وقتاش يكمل برك وراني معاك على طول الخط

اللهم علمنا ما ينفعنا وانفعنا بما علمتنا وانفع الناس بنا واغفر لنا وارحمنا

#566 فبراير 2009 في 00:41

السلام عليكم جميعا

انا اقوم الان باعادة تنصيب الابتشي من جديد

ISAPI tutorial for Delphi developers

TIB.Talal Belal . Syria

#576 فبراير 2009 في 01:35

وهنا ما الجديد هل نجحت مع اخرين الفكرة ام هناك مشاكل ,

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

#586 فبراير 2009 في 02:06

هل يجب اضافة شيىء في هذه الحقول

ISAPI tutorial for Delphi developers

TIB.Talal Belal . Syria

#596 فبراير 2009 في 03:32

بارك الله فيك اخى زكيري عبد العالي نجحت .

طلال جرب استعمال phptriad2-2-1.exe . انا استعملته مع تغيير اعدادات الاباش التى اشار اليها زكيري . لا يوجد اى مشكل .

اقتباس
و موقع واب بالدلفي دوت نت عن قريب سنشنعكم مشاريع ,

اممم مشكور .

#606 فبراير 2009 في 11:19

talal : bonjour,

1- localhost

2-localhost

3-Talal_DelphiMan@yahoo.fr

#616 فبراير 2009 في 15:02

اهلا اخي ذكيري

بقيت نتس المشكلة , لكن انا اقوم بتجريبة بعد التنصيب مباشرة , اي قبل البدء في المشروع

هل هذا صحيح .

ISAPI tutorial for Delphi developers

TIB.Talal Belal . Syria

#626 فبراير 2009 في 18:29

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

وفيك بركة اخي عبد العالي

ان شاء الله نفيد ونستفيد

اقتباس
بقيت نتس المشكلة , لكن انا اقوم بتجريبة بعد التنصيب مباشرة , اي قبل البدء في المشروع

جرب EasyPHP أعمل به فلا يوجد مشاكل

http://sourceforge.net/project/showfiles.php?group_id=14045

إعجاب الإنسان بنفسه دليل على صغر عقله

-----------------------------------------------------------------

رأس الحكمة مخافة الله

#636 فبراير 2009 في 20:07

مازلت انتضر الاخ علي و الاخ طلال الدي يتعبه االاباش كما اتعبني IIS كي امر الى نقطة جديدة .

امهلكم ساعتان من الان ارجوا ان تلحقوا بنا .

-----------------

لحج حج و لعوق عوق ياعليلو .

#646 فبراير 2009 في 21:30

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

اعتذر عن التاخير استاذنا ذكيري . ولكني لم اترك طريقة الا وجربتها . حتى انني حملت البرنامج من جديد. ولم استفد شيىء.

لم اكن اتوقع انني سأتعامل مع .net هكذا دفعة واحدة ثم انني كنت اجهز نفسي لبرنامج التحليل ال1ي اعلنت عنه انت

ISAPI tutorial for Delphi developers

TIB.Talal Belal . Syria

#656 فبراير 2009 في 21:46

اخي طلال انها ليست دوت نت انها مجرد SAPI اي دلل فقط

#666 فبراير 2009 في 21:51

نجحت معي وبفضلك اخي عبد العالي

اللهم علمنا ما ينفعنا وانفعنا بما علمتنا وانفع الناس بنا واغفر لنا وارحمنا

#676 فبراير 2009 في 23:07

بســم الله الـرحمــن الرحيــم

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

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

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

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

C:\allsource\html\my2htmlfile.html

نكتب بداخله السكربت التالي

انسخ الكود

[color= #339933;]<html[color= #339933;]>

[color= #339933;]<body[color= #339933;]>

[color= #339933;]<h1[color= #339933;]>NOM [color= #339933;]: [color= #339933;]<[color= #666666; font-style: italic;]#NOM></h1>

[color= #339933;]<h1[color= #339933;]>PRENOM [color= #339933;]:<[color= #666666; font-style: italic;]#PNOM></h1>

[color= #339933;]<h1[color= #339933;]>AGE [color= #339933;]: [color= #339933;]<[color= #666666; font-style: italic;]#AGE></h1>

[color= #339933;]<h1[color= #339933;]>TEL [color= #339933;]:<[color= #666666; font-style: italic;]#TEL></h1>

[color= #339933;]</body[color= #339933;]>

[color= #339933;]</html[color= #339933;]>

1- نضيف مكون جديد اللى الواب مودبل

PageProducer2

نربطه مع الملف الجديد فب الخاصية

HTMLFILE

و في الحدث نكتب

انسخ الكود

procedure TWebModule1[color= #339933;].PageProducer2HTMLTag[color= #009900;](Sender[color= #339933;]: TObject[color= #339933;]; Tag[color= #339933;]: TTag[color= #339933;]; const TagString[color= #339933;]: String[color= #339933;];
 TagParams[color= #339933;]: TStrings[color= #339933;]; [color= #000000; font-weight: bold;]var ReplaceText[color= #339933;]: String[color= #009900;])[color= #339933;];

begin

     [color= #b1b100;]IF UpperCase[color= #009900;](TagString[color= #009900;])[color= #339933;]=[color= #0000ff;]'NOM' THEN

       ReplaceText[color= #339933;]:=[color= #0000ff;]'ZEKIRI'[color= #339933;];

 

     [color= #b1b100;]IF UpperCase[color= #009900;](TagString[color= #009900;])[color= #339933;]=[color= #0000ff;]'PNOM' THEN

       ReplaceText[color= #339933;]:=[color= #0000ff;]'ABDELALI'[color= #339933;];

 

     [color= #b1b100;]IF UpperCase[color= #009900;](TagString[color= #009900;])[color= #339933;]=[color= #0000ff;]'AGE' THEN

       ReplaceText[color= #339933;]:=[color= #0000ff;]'33'[color= #339933;];

 

     [color= #b1b100;]IF UpperCase[color= #009900;](TagString[color= #009900;])[color= #339933;]=[color= #0000ff;]'TEL' THEN

       ReplaceText[color= #339933;]:=[color= #0000ff;]'0609690006'[color= #339933;];

[color= #990000;]end[color= #339933;];

3- ننشا اكشن جديد

نسميها Goto2htmlfil

في الخاصية PATHINFO نكتب

/GOTO2

وفي الحدث ONACTION نكتب

انسخ الكود

procedure TWebModule1[color= #339933;].WebModule1Goto2htmlfilAction[color= #009900;](Sender[color= #339933;]: TObject[color= #339933;]; Request[color= #339933;]: TWebRequest[color= #339933;]; Respo
nse[color= #339933;]: TWebResponse[color= #339933;]; [color= #000000; font-weight: bold;]var Handled[color= #339933;]: Boolean[color= #009900;])[color= #339933;];

begin

      Response[color= #339933;].Content [color= #339933;]:=     PageProducer2[color= #339933;].Content[color= #339933;];

[color= #990000;]end[color= #339933;];

4-انشاء الرابطة

نغير في الملف الاشتمل الاول و الذي سميناه

myhtmlfile.html

نكتب

انسخ الكود

[color= #339933;]<html[color= #339933;]>

[color= #339933;]<head[color= #339933;]>

     [color= #339933;]<title[color= #339933;]>ex3[color= #339933;]</title[color= #339933;]>

[color= #339933;]<head[color= #339933;]>

[color= #339933;]<body[color= #339933;]>

  [color= #339933;]<a href[color= #339933;]=[color= #0000ff;]"./GOTO2"[color= #339933;]>

         [color= #339933;]<[color= #666666; font-style: italic;]#MSG> 

 [color= #339933;]</a[color= #339933;]>

[color= #339933;]</body[color= #339933;]>

[color= #339933;]</html[color= #339933;]>

5- نغير في الكود اسم المتغيرة

NOM ==> MSG

انسخ الكود

     [color= #b1b100;]IF UpperCase[color= #009900;](TagString[color= #009900;])[color= #339933;]=[color= #0000ff;]'MSG' THEN

       ReplaceText[color= #339933;]:=[color= #0000ff;]'View file of the student :zekiri abdelali'[color= #339933;];

--------------------

لا احسن الانجليزيه

تم تعديل هذه المشاركة بواسطة زكيري عبد العالي في 6 فبراير 2009 في 23:33

#686 فبراير 2009 في 23:09

طلال جرب تعطيل مضاد الفيروسات .

#696 فبراير 2009 في 23:43

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

ستجدني بجانبك اما لدلفاويين ها قد قدمت لكم ما بوسعي لاخرجطم من البرمجة العادية الى برمجة المواقع سواء بالدلفي دوت نت او ب ISAPI و قريبا كما وعدت الاخوة سننشا مشروع جديد في الدلفي نت فور واب لكن ب الجديد PRISM .

-------------------

مازالت مشاريعنا لم تنتهي بعد :cry: و خاصة المكتابت و الصيدلية و الاوراكل و نقل الملفات على الشبكة

#707 فبراير 2009 في 00:00

نجحت . :wink:

تم تعديل هذه المشاركة بواسطة hanitaieb في 7 فبراير 2009 في 00:01

#717 فبراير 2009 في 00:04

جيد و اخوتي

علي .ع, maosalah ما النتيجت .

اخي hanitaieb ماذا لاحظت في هدا الدرس و ما هو استنتاجك لكيفيت هيكلة المشروع او خطوات انشاءه هل تكونت لك فكرة ?

رايك يهمني .

#727 فبراير 2009 في 00:13

بســم الله الـرحمــن الرحيــم

بعد هذه المقدمت سنيدا المشروع بحول الله و كما قلت انه لتعليم وبعدها ان كان الوقت و الصحت نعرفه ليصبح احترافي .

اولا انشاء قاعدة البيانات

1- نقوم بتثبيت

mysql-5.1.31-win32.msi

2- ايضا

SQL Manager for MySQL

3-انشاء القاعدة

GEST_COMPTE

تم تعديل هذه المشاركة بواسطة زكيري عبد العالي في 7 فبراير 2009 في 00:40

#737 فبراير 2009 في 00:34

مبارك ماقمتم به

لم اتوقع ان مشاركتي القديمة قد وصلت لان النت فصل عندي واحتاج 10 دقائق لفتح صفحة الانترنت

ISAPI tutorial for Delphi developers

TIB.Talal Belal . Syria

#747 فبراير 2009 في 01:09

نجحت :yes:

تم انشاء قاعدة البيانات

إعجاب الإنسان بنفسه دليل على صغر عقله

-----------------------------------------------------------------

رأس الحكمة مخافة الله

#757 فبراير 2009 في 01:19

اخى زكيري عبد العالي تقريبا الفكرة التى تكونت عندى . الى حد الان .

مواضيع مشابهة