C# と VB.NET の質問掲示板

再度お世話になります。

�@VB.netからVC++6.0のへの構造体配列参照渡し
http://bbs.wankuma.com/index.cgi?mode=al2&namber=75306

�AVB.net⇒VC++6.0のVoid型に構造体配列参照渡
http://bbs.wankuma.com/index.cgi?mode=al2&namber=75559

にて質問した内容に近いのですが、またはまってしまったのでお知恵を拝借出来れば助かります。

なお、�AのVoid型に〜の時に同様の対応を行おうと致しましたが、あの時は結局VC側にてvoid型を
受け取る構造体の型に変更し解決致しましたので、今回求めている解決法は未解決のままです。


現状と致しましては、�@の時のようにSafeArrayに対して構造体配列を受け渡ししたいのですが、
前回と異なり数値だけではなく文字列変数が混ざっています。

VC側はSafeArrayで受け取った後、同じような構造体にキャストして使用しているようですが、
その際の文字列変数はBSTRで宣言してあり、数値変数はintでした。

マーシャリングも色々と追加してみたのですが、どうにもうまくいかないので、お手数ですが
お教え頂けないでしょうか。

例によってVCへの変更、及びラッパー用DLL等の作成は最終手段とし、極力VB2013のみで
完結したく考えております。


以上、宜しくお願い致します。


## VC++6.0 ###########

Test1_API int __stdcall Test1(LPSAFEARRAY *Data1, LPSAFEARRAY *Data2)


## VB6.0 #############

-- 宣言部 ----

Declare Function Test1 Lib "Test.DLL" (ByRef oType1() As Any, ByRef oType1() As Any) As Long

Public Type Type1
 Str1 As String
 Str2 As String
 Lng1 As Long
End Type

Public Type Type2
 Str3 As String
 Lng2 As Long
 Lng3 As Long
End Type

Public oType1(0 To 9) As Type1
Public oType2(0 To 9) As Type2


-- 処理 ----

Dim iRet As Long
iRet = Test1(oType1(), oType2())


## VB2013 #############

-- 宣言部 ----

Declare Function Test1 Lib "Test.DLL" (<MarshalAs(UnmanagedType.SafeArray, SafeArraySubType:=VarEnum.VT_RECORD)>
                                       ByVal oStructure() As Structure1
                                       <MarshalAs(UnmanagedType.SafeArray, SafeArraySubType:=VarEnum.VT_RECORD)>
                                       ByVal oStructure() As Structure2) As Integer


<ComVisible(True), Guid("91e3f2e5-341a-49bc-9f48-8637526c2833")>
Public Structure Structure1
 <MarshalAs(UnmanagedType.BStr)> Dim Str1 As String
 <MarshalAs(UnmanagedType.BStr)> Dim Str2 As String
 Dim Int1 As Integer
End Structure

<ComVisible(True), Guid("e6b3817c-4342-4335-985f-5b8a0df41881")>
Public Structure Structure2
 <MarshalAs(UnmanagedType.BStr)> Dim Str3 As String
 Dim Int2 As Integer
 Dim Int3 As Integer
End Structure

Public oStructure1(9) As Structure1
Public oStructure2(9) As Structure2


-- 処理 ----

Dim iRet As Integer = -1
iRet = Test1(oStructure1, oStructure2)

2015/04/17(Fri) 22:20:09 編集(投稿者)

<pre><pre>要はBSTRなんですが、結局C言語からはポインタなんですよね。ポイン
タってメモリアドレスそのものなワケで、68000なんかでは奇数アドレ
スから１バイト以外のデータを読み出すと「アドレエラー」っていう
のが発生するのが懐かしいものだったり。
CやC++には基本的にCPUのアーキテクチャを色濃く残す言語でintは
MS-DOS時代には16ビットしかないのが「普通」だったんですよね。

BSTRってのはPascal文字列みたいな先頭に長さがあって１６ビットの
配列ってことだけどBSTR自体は確か先頭の長さではなく文字が格納さ
れている配列の先頭を指していたはず。

typedef struct
{
  short length;
  unsigned short str[1]; /* GCCでは[0]と記述できる。スマートといえ
                        ばスマート */
} BSTR;

今風？なVB ではCからみたら addresof (文字列変数)≒であって.netの
怪しげなマーシャル（変換）ってのがどこをCに渡すのかしらん？？

こんな感じかな。ところがCに慣れていないとBSTRは、あたかも文字列
そのものに見えます。

BSTR st0,st1;   
st0 = st1;   /* ほぼ無意味な代入なんだけどコピーに見える */

「Void型」って何を表すのか判らない「型」がでてきたりなかなか面白い
のですがCでは「とにかくメモリアドレスだ」っていうvoid *ってのが
使えるためもはや何でもアリなんですが（特に68000のようなメモリマッ
プドなI/OアーキテクチャではCPU周辺チップすらいじれてしまう）たぶ
ん「Void型」はvoid *な引数をもつ関数なんでしょ？
構造体ってのもカッコイイものではなくCやC++では構造体の各メンバー
構造体を格納する先頭メモリアドレスからのオフセット数にしかならな
いのです。しかもそのオフセット数はコンパイルオプション等々で
調整すらできる。
キャストっていうのはC++でキャストをオーバーライドしない限りは特に
ポインタについては「コンパイルエラーにしない」という以外の作用は
ないのです。
ということで、CあるいはC++で記述されたDLLを扱う場合はVB6.0が生成
していたBSTRをきちんと渡せば期待通りに動作するはずです。
DLL側がバグっててSysFreeStringを呼んでいる場合は絶対に改善できない
メモリリークに悩むことになるでしょう。
</pre></pre>

■75641 (魔界の仮面弁士 さん) に返信

返信が遅れて申し訳御座いません。


> この部分のコードと、C++側の構造体定義は公開できますか？
> こちらでも検証してみたいので…。 

下記のようになっていると思われます。

-- 宣言部 ----

typedef struct {
	BSTR	wstr1;
	BSTR	wstr2;
	int	wint1;
} testStruct1

-- 処理 ----

Test1_API int __stdcall Test1(LPSAFEARRAY *Data1, LPSAFEARRAY *Data2)

	testStruct1 oTestStruct1;
	int nCnt;
	long idx,lb,ub;

	LPSAFEARRAY psa = *Data1;

	SafeArrayLock(psa);
	SafeArrayGetLBound(psa, 1, &lb);
	SafeArrayGetUBound(psa, 1, &ub);
	for( idx = lb; idx <= ub; idx++ ){
		SafeArrayGetElement(psa, &idx, &testStruct1);

		−何か処理−

		SafeArrayPutElement(psa, &idx, &testStruct1);
	}
	SafeArrayUnlock(psa);
}



■No75643 (通りすがり さん) に返信

> ということで、CあるいはC++で記述されたDLLを扱う場合はVB6.0が生成
> していたBSTRをきちんと渡せば期待通りに動作するはずです。
> DLL側がバグっててSysFreeStringを呼んでいる場合は絶対に改善できない
> メモリリークに悩むことになるでしょう。

もう少し試行錯誤してみます。






現状ではCom公開を行わず下記のようにやってみたところ、値は渡せていますが変更の反映がされていない模様
(<[In], [Out]> も試しましたが変わらずでした)

Declare Function Test1 Lib "Test.DLL" (<[In], Out> ByVal oStructure() As Structure1
                                       <[In], Out> ByVal oStructure() As Structure2) As Integer


<StructLayout(LayoutKind.Sequential, CharSet:=CharSet.Ansi)>
Public Structure Structure1
 <MarshalAs(UnmanagedType.BStr)> Dim Str1 As String
 <MarshalAs(UnmanagedType.BStr)> Dim Str2 As String
 Dim Int1 As Integer
End Structure

<StructLayout(LayoutKind.Sequential, CharSet:=CharSet.Ansi)>
Public Structure Structure2
 <MarshalAs(UnmanagedType.BStr)> Dim Str3 As String
 Dim Int2 As Integer
 Dim Int3 As Integer
End Structure

Public oStructure1(9) As Structure1
Public oStructure2(9) As Structure2


-- 処理 ----

Dim iRet As Integer = -1
iRet = Test1(oStructure1, oStructure2)

>>一連のコードを ByRef 指定で試してみましたが、DLL 側から
>>　hoge.wstr1 = SysAllocString(L"何某");
>>を使って、VB.NET および VB6 側に、配列の各要素に文字列を返却できています。

「できる」ことと「正しい実装」とは別物ですよね。BSTRはWinsdows APIのSysAllocString
で割り当てたメモリブロックへのポインタなのでDLL側でhoge.wstr1で別なメモリブロックへ
のポインタで上書きすると、とても厄介なメモリリークを引き起こします。
これはVB側で文字列をセットしてもいなくても同じです。hoge.wstr1にセットされた
BSTRを誰が解放するんでしょうか？