เมนู Delphi:
ไฟล์/ใหม่/อื่น ๆ ...
กดปุ่ม OK [OK]
คลิกเมนูไฟล์/บันทึกเพื่อบันทึก:
ป้อนชื่อโครงการ mycom
กดปุ่มบันทึก
เปิดไฟล์เมนู/ใหม่/อื่น ๆ อีกครั้ง ...
กดปุ่ม [OK};
ป้อน myObject ใน coclassname
กดตกลง
กดเมาส์คลิกขวาที่ imyObject
imyObject/new/method
ป้อนการทดสอบที่ชื่อ
สลับไปที่หน้าพารามิเตอร์
กดเพิ่มสองครั้ง
เปลี่ยนชื่อของพารามิเตอร์แรกเป็น PSPARAM1 พิมพ์เป็น BSTR
เปลี่ยนชื่อของพารามิเตอร์ที่สองเป็น psresult พิมพ์เป็น bstr*
จุดเมาส์ไปยังฟิลด์ Modifier ของพารามิเตอร์ที่สอง
กดปุ่ม“ …”
เห็บ retval
กดตกลง
(ต้นฉบับ [ใน] กลายเป็น [ออก, retval], แสดงว่าสิ่งนี้จะถูกส่งคืนและประเภทของมันคือสตริง)
ปิดหน้าต่างนี้
(คุณจะเห็นมันสร้างโมเดลรหัสสำหรับคุณ)
ไฟล์/บันทึก
ป้อนชื่อไฟล์ myObject
กดบันทึก
เปลี่ยนรหัส
คลิก Ctrl+S เพื่อบันทึก
โครงการ/สร้าง mycom
คุณจะเห็นว่ามีการสร้างไฟล์ mycom.dll แล้ว
นี่คือองค์ประกอบ COM ที่คุณต้องการ
มาพูดคุยเกี่ยวกับวิธีการเรียกองค์ประกอบ com นี้:
ใหม่แอปพลิเคชันใหม่
เพิ่ม comobj ในการใช้งาน
ใส่ปุ่มในรูปแบบ
ป้อนรหัสต่อไปนี้ในเหตุการณ์ onclick ของปุ่ม:
รหัส : |
วาจา MyObject: Olevariant; เริ่ม myObject: = createOleobject ('mycom.myobject'); พยายาม ShowMessage (myObject.test ('Dawn')); ในที่สุด varclear (myobject); จบ; จบ; |
ดำเนินการ ... และกดปุ่ม Button1
คุณจะเห็นข้อความ ... นั่นคือค่าของวิธีการทดสอบของวัตถุ COM จะถูกดำเนินการ