تنشئ هذه المقالة ملف ActiveXDLL من خلال VB5.0. يحاكي هذا الملف عملية رمي اللون الفرعي ، ويقدم لك موضوع كيفية استدعاء DLL في ASP.
تعد Dynamic Join Library (DLL) طريقة مهمة لتسريع تنفيذ الأجزاء الرئيسية للتطبيق ، ولكن ربما لا يُعرف شيء واحد لمعظم الأشخاص ، أي أن ملف ASP يمكنه أيضًا استدعاء DLLs لتسريع تنفيذ الخادم. أدناه سأقدم بإيجاز خطوات الاتصال DLLS في ملف ASP.
بادئ ذي بدء ، يجب أن يكون هناك ملف DLL. هذا المثال هو إنشاء ملف ActiveXDLL من خلال VB5.0. يحاكي هذا الملف عملية رمي اللون الفرعي.
في بيئة VB5.0 ، قم بإنشاء مشروع جديد وانقر نقرًا مزدوجًا فوق أيقونة ActiveXDLL في نافذة المشروع الجديدة. سيقوم VB تلقائيًا بإضافة وحدة فئة إلى المشروع وتعيين نوع المشروع على ActiveXDLL. في نافذة الخصائص ، قم بتغيير سمة اسم وحدة الفئة إلى CLSDICE. من قائمة المشروع ، حدد خصائص المشروع وقم بتغيير اسم المشروع إلى MyDLL. من قائمة الملفات ، حدد حفظ clsdice لحفظ وحدة الفئة مثل mydice.cls. أضف الرمز التالي:
OptionExplicit
PrivateMax ، PointAsinteger
PublicPropertygetResult () asinteger
النتائج = النقطة
endproperty
PublicPropertygetMaxPoint () asinteger
MaxPoint = Max
endproperty
PublicPropertyletMaxPoint (NumasInteger)
الحد الأقصى = num
endproperty
publicsubthrow ()
عشوائي
point = int (rnd*max) +1
ينتهي
privatesubclass_initialize ()
كحد أقصى = 6
ينتهي
تحدد وحدة الفئة هذه الخصائص وطريقة كائن CLSDICE. هذه الخصائص والأساليب تحاكي عملية رمي عملة الألوان. تمثل خاصية MaxPoint عدد وجوه عملة الألوان. ستمكّن إضافة بيان Propertylet العميل من تعديل وجوه عملة الألوان ؛ تمثل خاصية النتيجة عدد نقاط آخر رمي للعملة المعدنية ؛ تمثل طريقة الرمي عمل رمي عملة الألوان ؛ يعين بيان privatesubclass_initialize العدد الافتراضي لوجوه عملة الألوان إلى 6 وجوه.
من قائمة الملفات ، حدد إنشاء mydll.dll وحفظه إلى المكان المناسب. في هذه المرحلة ، أنشأنا ملف DLL الخاص بنا.
الخطوة الثانية هي الرجوع إلى clsdice الفئة في ملف ASP.
يتم تشغيل جميع كود ASP (ActiveServerPages) على الخادم ، ويمكن للعملاء فقط عرض النتائج التي تم إرجاعها في HTML. يستخدم علامات "<٪" و "٪>" لتحديد رمز البرنامج النصي ، ولا يتم نقله إلى العميل ، ويستخدم علامات HTML لتحديد المحتوى خارج الرمز. في رمز Dice.asp التالي ، يتم استخدام وظيفة CreateObject لإنشاء مثيل كائن CLSDICE ، والذي يأتي من ملف ActiveX.dll-mydll.dll الذي تم إنشاؤه أعلاه. يستخدم المثال التالي لغة البرمجة النصية VBSCript.
<!-metadatatype = "typelib" file = "path/mydll.dll"->