Menu Delphi:
File/baru/lainnya…
Tekan tombol OK [OK]
Klik Menu File/Simpan untuk Menyimpan:
Masukkan nama proyek mycom
Tekan tombol Simpan
Buka file menu/baru/lainnya lagi…
Tekan tombol [OK};
Masukkan myObject di coclassname
Tekan OK
Tekan mouse-klik kanan pada ImyObject
Imyobject/new/metode
Masukkan Tes di Nama
Beralih ke halaman parameter
Tekan Tambah dua kali
Ubah nama parameter pertama ke PSPARAM1, ketik menjadi BSTR
Ubah nama parameter kedua menjadi psResult, ketik menjadi bstr*
Titik mouse ke bidang pengubah parameter kedua
Tekan tombol "..."
Tick Retval
Tekan OK
(Asli [dalam] menjadi [keluar, retval], menunjukkan bahwa ini akan dikembalikan, dan jenisnya adalah string)
Tutup jendela ini
(Anda akan melihatnya membangun model kode untuk Anda)
File/simpan
Masukkan nama file myObject
Tekan Simpan
Ubah kode
Klik Ctrl+S untuk menyimpan
Proyek/Bangun mycom
Anda dapat melihat bahwa file mycom.dll telah dihasilkan.
Ini adalah komponen COM yang Anda inginkan.
Mari kita bicara tentang metode memanggil komponen COM ini:
Aplikasi Baru Baru
Tambahkan comobj dalam penggunaan
Letakkan tombol dalam bentuk
Masukkan kode berikut di acara OnClick tombol:
Kode : |
var MyObject: Olevariant; Mulai MyObject: = createOlleObject ('mycom.myObject'); mencoba Showmessage (myobject.test ('fajar')); Akhirnya Varclear (myObject); akhir; akhir; |
Jalankan ... dan tekan tombol Button1
Anda akan melihat pesan ... yaitu, nilai metode pengujian objek COM dieksekusi.