日々の破片

_ 今更ながらCOMインターロップ

ちょっとした、でもC++とかで書くのは面倒だしVBはあり得ないようなプログラムをC#で書いたのは良いが、それをVB6から使いたいという要望を受ける。

そういうときこそのCOM Interopですよ、とやったこたないけど（逆は普通にあるが）、やってみた。

ら、そこらで見つかる情報（MSDN含む）が、嘘ばかりでどえらく苦労したのでメモしておく。

もしかしたら、公開当時は嘘ではなく、.NET Framework 3.5以降で嘘になったのかも知れないけど。

まず、最初に、TypeLibIdは、最初からassemblyInfo.csに含まれている（vs2010の場合）。したがって何も考えなくとも良い(追記：はというのは調べているのにその上を見ていない罠。ツッコミ欄参照)。

次に、public classはデフォルトでは、TypeLibに移出されない。ここが「相互運用のための .NET 型の要件」がおかしいところだ。

パブリック型のメンバーも、COM から参照できるようにする場合には、パブリックである必要があります。 アセンブリ、パブリック型、またはパブリック型のパブリック メンバーの参照可能範囲を制限するには、ComVisibleAttribute を適用します。 既定では、すべてのパブリック型およびメンバーが参照可能です。

コミュニティコンテンツだから修正できるのだが、問題はこの記述が正で、実装がバグの可能性があることなのだ（ので、修正しない）。原文もvisibleなのがdefaultとなっている。

結局、上記のページを信じれば、特に何もしなくても（public 無引数コンストラクタがあり、型互換のpublicメソッドなどが定義されているpublicクラスであれば）、Tlbexpを実行すればそれだけでCOMクライアントから呼べるように読める。

が、それは間違いで、明示的にComVisibleAttribute(true)を設定しなければならない。以下のように(interfaceを定義するのは自然の理)。

[Guid("000000-D7D0-4087-B7C2-B060B994BC57")] // IID
[InterfaceType(ComInterfaceType.InterfaceIsIDispatch)]
[ComVisible(true)]
public interface FooBar
{
    [ComVisible(true)]
    string Hello(string whoareyou);
}
 
[Guid("000000-D7D0-4087-B7C2-B060B994BC59")] // CLSID
[ClassInterface(ClassInterfaceType.None)]
[ComVisible(true)]
public class FooBarImpl : FooBar
{
    public string Hello(string whoareyou)
    {
         if (string.IsNullOrEmpty(whoareyou)) 
             throw new InteropException("who are you ?", 0x80004003);
         return "hello " + whoareyou;
    }
}
class InteropException : Expcetion
{
    internal InteropException(string msg, uint hr)
        : base(msg)
    {
        HResult = checked((int)hr);  // HResultはuintにしとけよな(ぷんぷん)
    }
}

ComVisible(true)しないと、空のtlbが生成されるだけだ。

ちょっと、一部うろ覚えの箇所あり。