Delphiメニュー：
ファイル/new/other…
[OK] [OK]ボタンを押します
[ファイル]/保存メニューをクリックして保存します。
プロジェクト名Mycomを入力してください
[保存]ボタンを押します
メニューファイル/新規/その他を再び開きます…
[OK}ボタンを押します。
coclassnameにmyobjectを入力します
OKを押します
マウスを押すと、imyobjectを右クリックします
imyobject/new/Method
名前でテストを入力してください
パラメータページに切り替えます
2回追加します
最初のパラメーターの名前をpsparam1に変更し、BSTRに入力します
2番目のパラメーターの名前をpsresultに変更し、bstr*に入力します
2番目のパラメーターのモディファイアフィールドにマウスをポイントします
「…」ボタンを押します
チェックリットバル
OKを押します
（元の[in]は[out、retval]になり、これが返されることを示し、そのタイプは文字列です）
このウィンドウを閉じます
（あなたはそれがあなたのためのコードモデルを構築することがわかります）
ファイル/保存
ファイル名myobjectを入力します
保存を押します
コードを変更します
Ctrl+Sをクリックして保存します
Mycomをプロジェクト/ビルドします
mycom.dllファイルが生成されていることがわかります。
これは、regsvr32コマンドにこのコンポーネントを登録した後、必要なcomコンポーネントです。
このCOMコンポーネントを呼び出す方法について話しましょう。
新しい新しいアプリケーション
使用にcomobjを追加します
フォームにボタンを置きます
ボタンのオンクリックイベントに次のコードを入力します。
コード： |
var myobject：olevariant; 始める myobject：= createoleObject（ 'mycom.myobject'）; 試す showmessage（myobject.test（ 'dawn'））; ついに varclear（myobject）; 終わり; 終わり; |
実行...そしてButton1ボタンを押します
メッセージが表示されます...つまり、COMオブジェクトのテスト方法の値が実行されます。