الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

مشروع واب Isapi

رائج
بدأه زكيري عبد العالي في 23 يناير 2009 · 151 رد · 13,644 مشاهدة · في لغة Delphi
مشاركة: واتساب X فيسبوك تيليجرام
#51

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

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

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

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

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/

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

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

هذا كل شئ

وفقكم الله

post-1034-1233862980_thumb.jpg

post-1034-1233862986_thumb.jpg

post-1034-1233863335_thumb.jpg

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

#52

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

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;];

post-1034-1233866863_thumb.jpg

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

#53

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

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

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

app_Source.rar

allsource.rar

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

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

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

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

#54

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

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

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

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

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

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

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

#56

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

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

#57

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

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

#58

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

post-169385-1233875125_thumb.jpg

#59

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

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

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

اممم مشكور .

#60

talal : bonjour,

1- localhost

2-localhost

3-Talal_DelphiMan@yahoo.fr

#61

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

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

هل هذا صحيح .

#62
اقتباس
شكرا اخي maosalah بارك الله فيك على المشاركة

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

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

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

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

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

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

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

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

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

#63

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

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

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

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

#64

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

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

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

#65

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

#66

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

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

#67

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

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

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;];

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

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

post-1034-1233952433_thumb.jpg

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

#68

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

#69

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

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

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

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

#70

نجحت . :wink:

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

#71

جيد و اخوتي

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

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

رايك يهمني .

#72

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

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

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

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

mysql-5.1.31-win32.msi

2- ايضا

SQL Manager for MySQL

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

GEST_COMPTE

post-1034-1233954821_thumb.jpg

post-1034-1233955515_thumb.jpg

post-1034-1233956397_thumb.jpg

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

#73

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

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

#74

نجحت :yes:

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

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

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

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

#75

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

sanstitrezk9.jpg

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