قائمة دلفي:
ملف/جديد/آخر ...
اضغط على زر موافق [موافق]
انقر فوق الملف/حفظ القائمة للحفظ:
أدخل اسم المشروع mycom
اضغط على زر حفظ
افتح ملف القائمة/جديد/آخر مرة أخرى ...
اضغط على الزر [OK} ؛
أدخل myobject في coclassname
اضغط موافق
اضغط على الماوس بزر الماوس الأيمن على ImyObject
ImyObject/جديد/طريقة
أدخل الاختبار في الاسم
التبديل إلى صفحة المعلمات
اضغط إضافة مرتين
قم بتغيير اسم المعلمات الأولى إلى psparam1 ، اكتب إلى BSTR
تغيير اسم المعلمات الثانية إلى psresult ، اكتب إلى BSTR*
نقطة ماوس إلى حقل المعدل للمعلمات الثانية
اضغط على زر "..."
علامة Retval
اضغط موافق
(يصبح [in] الأصلي [خارج ، retval] ، مما يشير إلى أن هذا يجب إرجاعه ، ونوعه هو سلسلة)
أغلق هذه النافذة
(سترى أنها تبني نموذج رمز لك)
ملف/حفظ
أدخل اسم الملف myobject
اضغط حفظ
تغيير الرمز
انقر فوق Ctrl+S للحفظ
مشروع/بناء mycom
يمكنك أن ترى أنه تم إنشاء ملف mycom.dll.
هذا هو مكون COM الذي تريده.
دعنا نتحدث عن طريقة استدعاء مكون com هذا:
تطبيق جديد جديد
أضف comobj في الاستخدامات
ضع زرًا في النموذج
أدخل الرمز التالي في حدث OnClick الخاص بالزر:
شفرة : |
var MyObject: Olevariant ؛ يبدأ myobject: = createOleObject ('mycom.myObject') ؛ يحاول ShowMessage (myobject.test ('dawn')) ؛ أخيراً varclear (myobject) ؛ نهاية؛ نهاية؛ |
تنفيذ ... واضغط على زر Button1
سترى رسالة ... أي قيمة طريقة اختبار كائن COM يتم تنفيذها.