【.net】VBでマーシャリングされた構造体をBSTR構造体としてVC++に渡す方法を知りたいです。

Question

こんにちは。

先日の質問では大変お世話になりました。

前回はVC++（DLL）がBSTR構造体で出力してVB（画面/フォーム）に渡す方法で行き詰まりましたが、今回はVB（画面/フォーム）からVC++（DLL）へ入力としてBSTR構造体を渡し参照する方法で行き詰まりました。
前回とは逆のことをやればよいと思ったのですが、思うようにいかず1週間以上苦戦しています…。
マネージド（VB.NET/Stringの構造体（n件））からアンマネージド（VC++/Bstrの構造体）へ直接構造体を受け渡す方法を教えていただけないでしょうか。
何卒よろしくお願いいたします。

＜やりたいこと＞

VBでマーシャリングした構造体をBSTR構造体としてVC++に渡す方法を知りたいです。

VB（screen/FORM）：Structure（MarshalAs（UnmanagedType.Bstr））
↓
VC++（DLL）：typedef（BSTR）

＜開発環境＞
Windows7（32bit）
VisualStudio2008（VB/VC++）

＜実行環境＞
Windows7（32bit）

試したこと：

以前の解決策を参考に以下のソースコードを試してみましたが、VC++側で構造体を参照するとエラーが発生しました。
「保護されたメモリに対して読み取りまたは書き込み操作を試みました。メモリが破損している可能性があります。」というエラーであるため、構造体自体をVBからうまく渡せていないか受け取れていないのではないかと未熟者ながら推察しております。

構造体を参照してからひとつひとつ別の構造体へ値を移していくやり方（wcsncpy_s,strncpy_s）も、MicrosoftやCODE PROJECTも使って調べながら組み込みましたが、果たして合っているか自信がありません。
構文が正しいのかという点でもアドバイスいただけましたら心から助かります。
VB側は「tpNonPosDet2」構造体を引数としてDLLの関数を呼び出し、VC++側は「NPOS_DETAIL_UPD2」構造体としてデータを受け取った後、SQL（DB更新）用の構造体「wk_Detail」に値を移し替えたいのです。

typedef struct {
	char	szFunctionFlag[2];
	char	szServiceNo[16];
	char	szPosNo[6];
	char	szSeqNo[6];
	char	szCreateDate[10];
	char	szCreateTime[6];
	char	szSalMoney[13];
	char	szRiyuCode[4];
	char	szServiceRank[4];
	char	szServiceRankAdd[4];
	char	szServiceTime[6];
	char	szChangeTime[6];
	char	szTantoCode[10];
	char	szCustKubn[4];
	char	szKozaNo[27];
	char	szKozaType[4];
} NPOS_DETAIL_UPD;

typedef struct {
	BSTR	szFunctionFlag;
	BSTR	szServiceNo;
	BSTR	szPosNo;
	BSTR	szSeqNo;
	BSTR	szCreateDate;
	BSTR	szCreateTime;
	BSTR	szSalMoney;
	BSTR	szRiyuCode;
	BSTR	szServiceRank;
	BSTR	szServiceRankAdd;
	BSTR	szServiceTime;
	BSTR	szChangeTime;
	BSTR	szTantoCode;
	BSTR	szCustKubn;
	BSTR	szKozaNo;
	BSTR	szKozaType;
} NPOS_DETAIL_UPD2;




__declspec(dllexport) int __stdcall Esql_UpNonPos(PS_HEADER_UPD *lpHeader, long *nIndexNum, NPOS_DETAIL_UPD2 *lpDetail);

__declspec(dllexport) int __stdcall Esql_UpNonPos
                           (PS_HEADER_UPD *lpHeader, long *nIndexNum, NPOS_DETAIL_UPD2 *lpDetail)
{
	long	lCount=0;
	int		ii;
	int		nSqlstate;                   // SQL Return Code
	char	*work;                       // WorkArea
	PS_HEADER_UPD		wk_Header;       // Header Information
	NPOS_DETAIL_UPD		wk_Detail;       // Detail Information
	long				iRet;            // Return Code
	NPOS_DETAIL_UPD2	npos;				// For structure reference
//	LPSAFEARRAY			psa = *lpDetail;	// For structure reference
	int					idx[1], lb, ub;		// For structure reference
	static char			bufa[1024];			// For structure reference
	static wchar_t		bufw[1024];			// For structure reference
	static size_t		st;					// Work Area
	static char     	mbs[256];           // Test Area For MessageBox


//*****************************************************************************
//	Processing start setting
//*****************************************************************************

	EXEC SQL WHENEVER SQLERROR  GOTO :SQL_ERROR;

	EXEC SQL SET TRANSACTION READ WRITE;

//*****************************************************************************
//	SQL
//*****************************************************************************
  	MessageBox( NULL, TEXT("Esql_UpNonPos"), TEXT("Esql_com.sc"), MB_OK);
  	MessageBox( NULL, TEXT(lpHeader->szServiceNo), TEXT("Esql_com.sc"), MB_OK);



//	Setting for structure reference
//================================
	setlocale(LC_ALL,"Japanese");
//	SafeArrayLock(psa);
//	SafeArrayGetLBound(psa, 1, &lb);
//	SafeArrayGetUBound(psa, 1, &ub);
//	idx[0] = lb;
	idx[0] = 0;



//	Setting for detail information
//================================
	EXEC SQL WHENEVER NOT FOUND CONTINUE;
	for(ii=0; ii<*nIndexNum; ii++) {
		// I used SAFEARRAY in VC++6.0, but I can't find a method that works well in VC++9.0, so I used another method.
//		SafeArrayGetElement(psa, &idx[0], &npos);
		npos = lpDetail[idx[0]];    //←I get an error here. 

		// Reference of processing flag [add/delete etc] (obtained from argument structure)
		MessageBox( NULL, TEXT(" 0.1  START"), TEXT("Esql_UpNonPos"), MB_OK);
		*bufa = 0x00;
		wcsncpy_s(bufw, 1024, npos.szFunctionFlag, 2);
		wcstombs_s(&st, NULL,     0,  &bufw, 1024);
		wcstombs_s(&st, &bufa[0], st, &bufw, 1024);
		memset(wk_Detail.szFunctionFlag, '\0', sizeof(wk_Detail.szFunctionFlag));
		strncpy_s(wk_Detail.szFunctionFlag, sizeof(wk_Detail.szFunctionFlag), bufa, 2-1);
		MessageBox( NULL, TEXT(" 0.1  END"), TEXT("Esql_UpNonPos"), MB_OK);
		MessageBox( NULL, TEXT(wk_Detail.szFunctionFlag), TEXT("Esql_UpNonPos Structure  1"), MB_OK);
・
・
・

<DllImport("Esql_DLL.dll", CharSet:=CharSet.Ansi)> _
Public Function Esql_UpNonPos(<[In]()> ByVal Up_dtpPSHead As tpPS_Hed2, ByRef RecordCnt As Long, <[In]()> ByVal Up_dtpNonPosDet() As tpNonPosDet2) As Integer
End Function

 <StructLayout(LayoutKind.Sequential)> _
 Structure tpNonPosDet2
     <MarshalAs(UnmanagedType.BStr)> Dim strShoriFlg As String
     <MarshalAs(UnmanagedType.BStr)> Dim strSrvNo As String
     <MarshalAs(UnmanagedType.BStr)> Dim strPosNo As String
     <MarshalAs(UnmanagedType.BStr)> Dim strTuuban As String
     <MarshalAs(UnmanagedType.BStr)> Dim strToriDate As String
     <MarshalAs(UnmanagedType.BStr)> Dim strToriTime As String
     <MarshalAs(UnmanagedType.BStr)> Dim strKingaku As String
     <MarshalAs(UnmanagedType.BStr)> Dim strRiyuCd As String
     <MarshalAs(UnmanagedType.BStr)> Dim strSrvRank As String
     <MarshalAs(UnmanagedType.BStr)> Dim strAddSrvRank As String
     <MarshalAs(UnmanagedType.BStr)> Dim strSrvTime As String
     <MarshalAs(UnmanagedType.BStr)> Dim strChgTime As String
     <MarshalAs(UnmanagedType.BStr)> Dim strHanbaiinCd As String
     <MarshalAs(UnmanagedType.BStr)> Dim strCostomKbn As String
     <MarshalAs(UnmanagedType.BStr)> Dim strKozaNo As String
     <MarshalAs(UnmanagedType.BStr)> Dim strKozaSbh As String
End Structure

Ret = Esql_UpNonPos(dtp_GotHedData, RecordCnt, dtp_NonPosDet)

Answer 1

二次元配列だ、と言う話なので。
こういうDLLをつくって、

#include <windows.h>
#include <stdio.h>

// NPOS_DETAIL_UPD2の定義を省略
__declspec(dllexport) int __stdcall Esql_UpNonPos
   (void *lpHeader, int *nIndexNum, NPOS_DETAIL_UPD2 *lpDetail)
{
  int ii,jj;
  for(ii=0; ii<nIndexNum[0]; ii++) {
    for (jj = 0; jj < nIndexNum[1]; jj++) {
      printf("%d,%d=%S\n", ii, jj, lpDetail[ii * nIndexNum[1] + jj].szFunctionFlag);
      wchar_t msg[128];
      int len = swprintf_s(msg, sizeof(msg), L"cd%d.%d", ii, jj);
      if (lpDetail[ii * nIndexNum[1] + jj].szFunctionFlag) SysFreeString(lpDetail[ii * nIndexNum[1] + jj].szFunctionFlag);
      lpDetail[ii*nIndexNum[1] + jj].szFunctionFlag = SysAllocStringLen(msg, len );    //
    }
  }
    return 0;
}

こういう呼び出しをすると

    <DllImport("m.dll", CharSet:=CharSet.Unicode)>
    Public Shared Function Esql_UpNonPos(<[In]()> ByVal Up_dtpPSHead As System.IntPtr, <[In]()> ByVal RecordCnt() As Integer, <[In](), [Out]()> ByVal Up_dtpNonPosDet() As tpNonPosDet2) As Integer
    End Function

    Public Shared Sub Main(args() As String)
        Dim det2d(2, 4) As tpNonPosDet2
        For i As Integer = 0 To det2d.GetLength(0) - 1
            For j As Integer = 0 To det2d.GetLength(1) - 1
                det2d(i, j).strShoriFlg = String.Format("det{0}.{1}", i, j)
            Next
        Next

        Dim dims() As Integer = New Integer() {det2d.GetLength(0), det2d.GetLength(1)}
        Dim det(dims(0) * dims(1)) As tpNonPosDet2
        System.Console.WriteLine("dim {0}x{1}", dims(0), dims(1))

        For i As Integer = 0 To det2d.GetLength(0) - 1
            For j As Integer = 0 To det2d.GetLength(1) - 1
                det(i * dims(1) + j).strShoriFlg = String.Format("det{0}.{1}", i, j)
            Next
        Next

        Esql_UpNonPos(System.IntPtr.Zero, dims, det)

        For i As Integer = 0 To dims(0) - 1
            For j As Integer = 0 To dims(1) - 1
                det2d(i, j) = det(i * dims(1) + j)
                System.Console.WriteLine(det2d(i, j).strShoriFlg)
            Next
        Next
    End Sub

こういう結果になります。

dim 3x5
0,0=det0.0
...
2,4=det2.4
cd0.0
...
cd2.4

Comments

[Marino_Y]

試してくださりありがとうございます。
事例つきで大変わかりやすく、こちらでも同様のコードを入れて確認してみました。
こちらの環境だと「printf("%S\n", npos.szFunctionFlag);」の箇所で下記のエラーが発生するのですが、どのような原因が考えられるでしょうか・・・？（インデックスが範囲外？）
　エラー「アプリケーションのコンポーネントで、ハンドルされていない例外が発生しました。～保護されているメモリに読み取りまたは書き込み操作を行おうとしました。他のメモリが壊れていることが考えられます。」

[matukeso]

奇怪ですねぇ。%pや%sではどうなりますか。
デバッガでアタッチしたら、printfの呼び出し時点でlpDetailはどう見えますか。

[Marino_Y]

体調が優れず、返事が遅くなってしまい申し訳ありません。

％ｐや％ｓでも同様のエラーが発生しました。
VBとVCが別プロジェクトになっており、VBから独立したVC（DLL）を呼び出す仕組みを取っている事情でVisualStudioのデバック機能を使用した引数の確認ができず、呼び出し時点のlpDetailは確認が難しいです…。（うまいやり方はあると思うのですが、現状、メッセージを仕込んでは実行して・・・で切り分けています。）

渡そうとしている配列が二次元であることも関係しそうでしょうか。

[matukeso]

Up_dtpNonPosDetが二次元なんですか？
その場合、c側もvb側も全然話が違ってきますが、、

[matukeso]

カンタンなのは、マーシャリング上は一次元配列にして二次元でのサイズも渡す手です。
たとえば3x5なら、15要素の一次元配列と、dims={3,5}とかを渡す。c側は[i*dims[0]+j]とかで埋めていく。

[Marino_Y]

度々ご返信ありがとうございます。
言葉上の意味は分かるのですが具体的な実装イメージがつかず…何か参考にできるようなサンプルや事例などもしご存じでしたら教えていただけませんか？