delphi - DelphiCreateOleObjectイベント

Question

コードがあります：

var 
myobject: OleVariant;
begin
 myobject := CreateOleObject('SomeNamespace.SomeClass');
end;

このCOMオブジェクトにはイベント（OnClickなど）があります。TLBをインポートせずにこれらのイベントに接続するにはどうすればよいですか？

Answer 1

COM レイト バインディングを使用しているので、イベントを処理するために多くのコードを記述する必要がありますか。COM を知っていれば、このタスクは難しくありません。基本的に、次の手順に従う必要があります。

• TInterfacedObjectその実装 から派生した新しいオブジェクト（クラス）を作成しますIDispatch
• Invoke()新しいクラスの機能を実装する
• 接続ポイント コンテナ ( IConnectionpointContainer) と目的の接続ポイントを照会します。
• を使用して接続ポイントをシンクしますIConnectionPointContainer.FindConnectionPoint
• 最後にIConnectionPoint.Advise()、の実装を使用して実行しますIDispatch

これらのリンクでこの実装の例を見つけることができます

• createoleobject を使用して作成されたオブジェクト イベントの使用方法
• パワーポイントを実行している Delphi 5 (イベントを含む遅延バインディング オブジェクトを使用した例)
• パワーポイントを実行している Delphi 5 (イベントを含む遅延バインディング オブジェクトを使用した例)

COM、遅延バインディング、およびイベントの詳細については、これらのリンクを試してください。

• Delphi COM プログラミングの自動化
• Delphi での自動化イベントのサポート