.NETによるVCのDLLへ構造体配列を引き渡す方法について

ひかるっち 2003-11-27 07:58:17 No: 110267

はじめまして。
ＶＢ、ＶＣ＋＋使い始めて一ヶ月ちょっとです。
使用しているのは．ＮＥＴです。

ＶＢからＶＣのＤＬＬへ構造体配列を引き渡し、
ＶＣにてデータの取得、また、結果の設定を行いたいと思っています。

ＶＢ、ＶＣの６．０ならば、
ＳａｆｅＡｒｒａｙを使用すれば構造体配列を獲得できるのは分かったのですが、
．ＮＥＴでは、コンパイルは通るものの途中で飛んでしまいます。

なお、
ＶＢを６．０で同じように作成してから．ＮＥＴのＶＣをコールする場合、
ＳａｆｅＡｒｒａｙでもＯＫでした。

ただ、
どちらも．ＮＥＴになるためにＶＢとＶＣを結合すると問題になりました。

マニュアルなどを見ると、
Ｓｙｓｔｅｍ．Ａｒｒａｙから派生したＣＯｂＡｒｒａｙを使用するみたいなことが書いてありましたが、使用方法が読み取れませんでした。
また、過去ログにもＶＢ６．０の引き渡し方のみのっているようでした。

よろしければ、
．ＮＥＴによる構造体配列の引渡し方についてご指導お願いします。

以下のような構造体配列を引き渡すつもりです。

ＶＢ−−−−−−−
Private Structure EMPLOYEE
        Dim Name As String
        Dim Address As String
        Dim Age As Short
End Structure

ＶＣ−−−−−−−
typedef struct {
      BSTR     Name;
      BSTR     Address;
      short    Age;
} EMPLOYEE;

魔界の仮面弁士 2003-11-27 09:15:10 No: 110268

その構造体が、レジストリに登録されたデータ型で
あるかどうかにもよりますが、とりあえず、
StructLayoutAttribute属性クラスや、
MarshalAsAttribute属性クラスについて調べて見るとか。

特攻隊長まるるう 2003-11-27 09:53:39 No: 110269

ＶＢのプロジェクトを .NET で開いて変換してみるとか…(手抜きｗ)

ひかるっち 2003-11-27 20:10:58 No: 110270

ＶＢ６．０で作成して動作したプロジェクトを．ＮＥＴへ変換しても動作はしませんでした。

ひかるっち 2003-11-28 06:47:53 No: 110271

ひとまず、
構造体のみで渡してみたら、その場合はうまく行くのに？
構造体配列になると無理でした。

ＶＢ−−−−
    <StructLayout(LayoutKind.Sequential, CharSet:=CharSet.Unicode)> _
    Public Structure EMPLOYEE
        Dim Name As String
        Dim Address As String
        Dim Age As Short
    End Structure

Private Declare Function func Lib "vc.dll" (ByRef emp As EMPLOYEE) As Integer

    Private Sub Command1_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles Command1.Click
        Dim emp As EMPLOYEE
        foo(emp)    ' ←  構造体の引渡しをしてみました。
    End Sub

ＶＣ−−−−
typedef struct {
      BSTR     Name;
      BSTR     Address;
      short    Age;
} EMPLOYEE;

extern "C"  __declspec(dllexport) int __stdcall func(EMPLOYEE *ppsa);
extern "C"  __declspec(dllexport) int __stdcall func(EMPLOYEE *ppsa)
{
    char            Name[128];
    char            Address[128];
    short           Age;
    static wchar_t  bufw[FOOBUFSIZE];

setlocale( LC_ALL, "" );

::SysFreeString( ppsa->Name );
::SysFreeString( ppsa->Address );

    // とりあえず、構造体へデータを設定してみました。
    memset( Name,    NULL, sizeofName);
    memset( Address, NULL, sizeof(Address) );
    sprintf( Name,    "vc−testname−−−−−−★!" );
    sprintf( Address, "vc−testaddress−−−−−−★!" );
    Age     = 10;

    mbstowcs(bufw, Name, FOOBUFSIZE);
    ppsa->Name    = ::SysAllocString( bufw );
    mbstowcs(bufw, Address, FOOBUFSIZE);
    ppsa->Address = ::SysAllocString( bufw );
    ppsa->Age     = Age;

return 0;
}

これがうまくいったので、
単純な配列として扱えればいいなぁとやってみたのですが、飛んでしまいました。
単純にＶＣで引数を配列のように使っても駄目みたいです。

一応、
ＶＢから配列の１エントリ毎にＣＡＬＬすると動くみたいでした。

ＶＢ−−−−
    Private Sub Command1_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles Command1.Click
        Dim emp(2) As EMPLOYEE
        foo(emp(0))    ' ←  構造体(1番目)の引渡しをしてみました。
        foo(emp(1))    ' ←  構造体(2番目)の引渡しをしてみました。
        foo(emp(2))    ' ←  構造体(3番目)の引渡しをしてみました。
    End Sub

これなら、
設定できるんですが、配列としての処理方法は無いのでしょうか？
ＶＢ６．０からはＶＣ＋＋での処理は可能なので、
ＶＢ側の設定を変更してＶＢ６．０のように渡すことはできませんか？

StructLayoutAttribute属性クラス
MarshalAsAttribute属性クラス

についてもヘルプを見たりしたのですが、
使い方が分かりませんでした。
どこかにサンプルソースなどがあればご教授願います。

岡田之仁 2003-11-28 08:09:42 No: 110272

まず、構造体配列の場合、１次元なのですが、文字列情報が含まれて
います。よって、ポインタのポインタになります。

C言語の場合の配列を渡す場合、ポインタのポインタになるのと同様
です。また、配列ですから、文字情報が無くてもポインタのポインタ
になるはずです。

よって、文字情報が入っているので、ポインタのポインタの先に、
文字情報（固定ではない可変長文字列）が格納されているポインタが
あることになり、よって、文字領域ごとにコピーしてやらないと、
解決できないような格好になっています。

テスト的に文字情報を数値型の変数に変更すれば、いきなり動作して
しまいます。簡単にするならば、文字情報が入った構造体を全て１度
で渡さずに、構造体の要素1つづつを渡せば、現状でも動作している
ので、よいのではないでしょうか・・・

BSTRを含む構造体配列を渡す方法は、ActiveXの折に私もやっていま
したが、.NETになってからは、まだやっていません。
解決策は、魔界の仮面弁士の言われるとおり、
StructLayoutAttribute属性クラス
MarshalAsAttribute属性クラス
この部分を読破して理解しなければならないと思います。

参考になりませんが・・・

以上。

岡田之仁 2003-11-28 08:18:05 No: 110273

マイクロソフトのサイトで、このケースに非常に近いサンプル等が
あるのが解りました。

参考までに・・・

文字列に対する既定のマーシャリング
http://www.microsoft.com/japan/msdn/library/default.asp?url=/japan/msdn/library/ja/cpguide/html/cpcondefaultmarshalingforstrings.asp

文字列のマーシャリング
http://www.microsoft.com/japan/msdn/library/default.asp?url=/japan/msdn/library/ja/cpguide/html/cpconmarshalingstrings.asp

OutArrayOfStructs のサンプル
http://www.microsoft.com/japan/msdn/library/default.asp?url=/japan/msdn/library/ja/cpguide/html/cpconosinfosample.asp

以上。

ひかるっち 2003-11-29 11:29:21 No: 110274

ＶＢにて、
次のように設定すると構造体配列の値をＶＣへ渡すことはできました。
ＶＣ側では普通の構造体配列と同様に回せました。

Declare Auto Sub SomeFunc Lib "vc.dll" ( _
<MarshalAs(UnmanagedType.LPArray, SizeParamIndex:=1)> ByVal emp() As EMPLOYEE, ByVal size As Long)

しかし、
これでは「ＢｙＶａｌ」しか設定ができないため、
ＶＢから入力構造体配列を渡すときはともかく、
出力構造体配列を渡すときに結果を設定して戻すことができませんでした。

また、
岡田之仁さんがおっしゃるようにポインタのポインタで渡しているため、
ＶＢでは普通に渡してから、ＶＣがわにて「ｃｈａｒ＊＊」にて取得して、
構造体配列の先頭アドレスを取得もできました。

しかし、
その場合は構造体の書き換えが成功はしたものの、
複数領域を渡したはずなのに、ＶＢに戻ってみると要素数が１つになっていました。

これは、
領域が壊れたんでしょうか？
配列の領域がどうアドレス空間で設定されているかについての
資料はヘルプにあるのでしょうか？
見つけれなかったので、良ければご教授お願いします。

ひかるっち 2003-12-01 11:14:12 No: 110275

ＶＢのMarsaAsの指定では、

<MarshalAs(UnmanagedType.SafeArray)>

が使用できますが、
これはＶＢ．ＮＥＴで６，０のセーフ配列を作成すると言う意味なんでしょうか？
設定しても、パラメータがおかしいのか飛んでしまいます。
MarshalAsAttribute.SafeArraySubType フィールドとも関連して設定するらしいのですが、ＭＳＤＮを見ると「VT_ARRAY」を設定すれば良いのかとやってみましたが、駄目でした。
ＭＳＤＮには「SAFEARRAY ポインタを示します。」と記述されていたに？

もしかして、
この辺りをうまく使えば、６．０形式でＶＢからＶＣへ渡せるんでしょうか？

ひかるっち 2003-12-02 10:14:26 No: 110276

ＶＢの関数宣言にて、

Declare Auto Sub SomeFunc Lib "vc.dll" ( _
<[In](), Out()> ByVal emp() As EMPLOYEE, ByVal size As Long)

InAttribute と OutAttribute をパラメータに使用したら、
構造体の配列をＶＣへ渡すことができました。

また、不思議なことに？
「ＢｙＶａｌ」で渡しているのにもかかわらず値の変更が反映されたました。
「ＢｙＲｅｆ」が参照渡しなのに不思議です？