COM相互運用とイベントについて
質問
回答
-
yayadon様
アドバイスありがとうございます。
おかげさまで動作させることができました。
いただいたサンプルと、こちらの実装の差異について見てみましたが、
１）クラスをHogeClassとHogeClassEvにわけない。（VBからの呼び出しに余計なNew？）
２）Formクラスの中で、別途Newしたためインスタンスが２重化してしまった。
あたりが要因のように思います。
３）protected virtual void OnHogeActionを使用する。
これは直接関係ないようですね。以前WEBをあさっているときにイベントにおける
OnXXXXXXの働きについて見たことがあったので、ひょっとしてと思いましたが。
詳細については今後の課題です。
VBでの動作を確認後、C++COMにおいてもイベント受信を確認できました。
ありがとうございました。
すべての返信
-
お世話になります。
その後、yayadonさんのアドバイスに従ってクライアント側をExcelVBAとしてみました。
相変わらず、ソース側のイベントがNULLのままとなっています。ほぼ、リンク先のサンプルのままなのですが。
以下のような動作となっています。
１）VBA シート上のボタン押下で、サーバーHogeClassのOpenFormを呼び出す。
２）サーバーはフォームを表示するので、そのボタンを押下する。
３）サーバーのボタン押下処理button1_Click()で、クラスHogeClassEvを生成し、CauseHogeActionを呼ぶ。
４）サーバーのHogeClassEvクラス：CauseHogeActionにおいて、イベントHogeActionを呼ぶ。このHogeActionが、NULLのままなのでエラーとなります。
Code Snippet//*********** Class1.cs ***********
public delegate void HogeActionEventHandler(string item);
//イベントインターフェース
[GuidAttribute("83ACF773-1A40-47fc-B87B-666370FE0434")]
[InterfaceTypeAttribute(ComInterfaceType.InterfaceIsIDispatch)]
public interface IHogeEvents {
[DispId(1)]
void HogeAction(string item);
}//イベント処理クラス
[GuidAttribute("B0AAD471-7CC0-47fc-9D3F-A16884D8D2DC")]
[ComSourceInterfaces(typeof(IHogeEvents))]
public class HogeClassEv {public event HogeActionEventHandler HogeAction;
public HogeClassEv() {}
public void CauseHogeAction(string item) {
HogeAction(item);
}
}//受付インターフェース
public interface IHogeClass {
void OpenForm();
}//受付クラス
[ClassInterface(ClassInterfaceType.None)]
public class HogeClass : IHogeClass {
public HogeClass() {}public void OpenForm() {
Form f = new Form1();
f.Show();
}
}//*********** Form1.cs ***************
//フォームクラス
public partial class Form1 : Form {
public Form1() {
InitializeComponent();
}
private void button1_Click(object sender, EventArgs e) {
HogeClassEv ce = new HogeClassEv();
ce.CauseHogeAction("Call Event");
}
}//*********** VB - sheet1コード ***********
Public WithEvents mym As HogeClassEv
Private Sub Class_Initialize()
Dim o As Object
Set o = New HogeClassEv
Set mym = o
End Sub//イベント処理
Private Sub mym_HogeAction(ByVal s As String)
MsgBox "mym_HogeAction"
End Sub//ボタン押下処理
Private Sub CommandButton1_Click()
Dim abc As Object
Set abc = New HogeClass
abc.OpenForm
End Sub以前リンク参照した「COMシンクによって処理されるイベントの発生」のサンプルと異なるのは、
サンプル [ComSourceInterfaces(GetType(IHogeEvents))]
上記実装 [ComSourceInterfaces(typeof(IHogeEvents))]
ですが、（GetTypeがコンパイルエラーとなってしまう）
TLBを見ると、
[default, source] dispinterface IHogeEvents;
となっているので、問題はないと思っています。何かアドバイスまたはご指摘をいただければ幸いです。
よろしくお願いします。yayadonさん
ご返信ありがとうございます。
なるほど、シンク側のAdviseが、ソース側での”+=”に相当するわけですね。
了解しました。
けど WTLはまだ荷が重いです。
-
yayadon様
アドバイスありがとうございます。
おかげさまで動作させることができました。
いただいたサンプルと、こちらの実装の差異について見てみましたが、
１）クラスをHogeClassとHogeClassEvにわけない。（VBからの呼び出しに余計なNew？）
２）Formクラスの中で、別途Newしたためインスタンスが２重化してしまった。
あたりが要因のように思います。
３）protected virtual void OnHogeActionを使用する。
これは直接関係ないようですね。以前WEBをあさっているときにイベントにおける
OnXXXXXXの働きについて見たことがあったので、ひょっとしてと思いましたが。
詳細については今後の課題です。
VBでの動作を確認後、C++COMにおいてもイベント受信を確認できました。
ありがとうございました。
