كيفية تنفيذ برمجة ASP في دلفي

كما نعلم جميعًا، فإن تقنية asp هي التقنية الرئيسية لبرامج الويب الخاصة بنا القائمة على نظام الإنترنت/الإنترانت. في تطبيقات asp، نستخدم عمومًا لغتين للبرمجة النصية: vbscripts وjavascripts. ومع ذلك، فإن لغة البرمجة النصية هي لغة غير مجمعة، وبرامج الويب التي طورتها بها مشاكل متأصلة من حيث الأمان وكفاءة التنفيذ وقابلية التوسع، لذلك عند تطوير أنظمة الويب، نستخدم بشكل عام لغات عالية المستوى لكتابة ASP هيئات التنفيذ، ثم استخدم البرامج النصية لتكون اللغة بمثابة رمز الاتصال لاستدعاء هيئة تنفيذ ASP لتنفيذ الوصول. في هذا الصدد، منذ أن قدمت Microsoft تقنية ASP، فإننا نستخدم بشكل عام VB أو VC، فكيف يمكن لمبرمجي دلفي تحقيق ذلك؟

وفي هذا الصدد، أدرك المؤلف مؤخرًا برمجة الويب لتقنية ASP في بيئة دلفي من خلال معلومات inrpisre، وإليك المقدمة كما يلي:

1. قم بإنشاء مشروع ACdiveX DLL جديد PROject1 في بيئة دلفي، ثم قم بإنشاء كائن ASP من خلال Active Server Object الخاص بـ delphi، وقم بملء اسم الكائن الذي تم إنشاؤه MyAspObject في coClassName الخاص به.

2. استخدم مكتبة النوع لإنشاء أسلوب MyAspRequest لكائن MyAspObject المنشأ حديثًا والذي سيتم استدعاؤه بواسطة لغة البرنامج النصي.

3. نظرًا لأن كائن ASP الذي تم إنشاؤه للتو يرث من TASPObject، فيمكننا استخدام كائن asp مباشرةً في إنشاء الطريقة. الآن قم بملء التعليمات البرمجية لكائن Asp الذي أنشأناه على النحو التالي:

إنتاج TMyAspObject.MyAspRequest؛

يبدأ

repsonse.write('<p>اسمك هو:');

repsonse.write(request.form.item['Name']);

repsonse.write('</p>');// اقرأ اسم المستخدم من صفحة الويب المراد إنشاؤها//

repsonse.write('<p>مهمتك هي:');

repsonse.write(request.form.item['work']);

repsonse.write('</p>');// اقرأ عمل المستخدم من صفحة الويب المراد إنشاؤها//

repsonse.write('<p>أداة التطوير التي تستخدمها:');

إذا (request.form.item['دلفي'].count>0)

repsonse.write('دلفي');

إذا (request.form.item['bcb'].count>0)

repsonse.write('c++ Builder');//تحديد أدوات التطوير التي يستخدمها المستخدم//

repsonse.write('</p>');

repsonse.write('<p>هويتك:');

repsonse.write(request.form.item['الهوية']);

repsonse.write('</p>');//اقرأ هوية المستخدم//

نهاية؛

4. قم بتجميع البرنامج وتسجيله كملف PMyAspObject.dll في دلفي.

5. اكتب ملف لغة البرنامج النصي ASP MyAsp.asp للاتصال

<%@language=jscript %>

<أتش تي أم أل>

<الجسم>

<title>هذا كائن ASP تم إنشاؤه باستخدام دلفي</title>

<center><h3>المحتوى الذي تقوم بملئه هو كما يلي</h3></center>

<%

فار مياسب;

myasp=server.createobject(PMyAspObject.MyAspObject);

//إنشاء كائن اتصال//

myasp.MyAspRequest();// اتصل بكائن ASP المحدد الخاص بك//

%>

</الجسم>

</HTML>

6. قم بإنشاء صفحة الويب Myhtm.htm للعرض

<form action='localHost/shd/myasp.asp'method='post">

<h1 align='center">يُرجى التحديد</h1>

<P>الاسم: <نوع الإدخال = حجم النص = 33 اسم = "اسم"></p>

<P>العمل: <input type='text' size=33 name="work"></p>

<P>أدوات التطوير: <input type='checkbox' name='delphi' value="on">delphi

<input type='checkbox'name='bcb'value="on">C++ Builder</p>

<p>هويتك:</p>

<p><select name="identity" size="1">

<خيار>الطالب</option>

<خيار>فني</option>

</select></p>

<p><input type="submit" name="mysubmit" value="Submit">

</النموذج>

7. ثم ضع Myhtm.htm وmyasp.asp في دليل shd الخاص بخادم الويب الشخصي الخاص بك للتصفح والاختبار.

الاداءات صفحة الويب

الاداءات ASP

تم تنفيذ البرنامج أعلاه في pwin98 ME وdelphi5.0 Enterprise.