VBからVC++に構造体を渡し、VC++で編集してVBに返す方法

Question

こんにちは。
ここの利用は初めてです。不慣れな点がありましたら申し訳ありません。
VB(画面(フォーム))とVC++(DLL)の間で構造体を渡したいのですが、どうにもうまくいかず困ってしまいました...
知恵をお借りしたいです。

経緯

元々Visual Studio 6.0で開発し安定稼働していたアプリケーション（画面とDLL）を、この度Windows10への移行に伴いVB/VC++2019にコンバージョンすることになりました。
第一段階としてVisual Studio 2008のアップグレードウィザード機能を利用しました。

現状

VB、VC++それぞれのワーニングやエラーは全て解消しました。
ビルド完了後、動作確認を行いながら元々の動作と異なる部分のメンテナンスを進める中で、VB側からVC++を呼び出す処理(DBからSELECTした結果をVBに返す)で、構造体にデータが1件も入らないことに気がつきました。
MicrosoftのQ&AやCODE PROJECTで構造体を値で渡す（ByVal）やマーシャリング（MarshalAs）をすすめられたのですが、私の組み合わせが悪いのか、解決できずにおります。

詳細情報を記載します。

環境

＜開発環境＞

• 　　VisualStudio2008（VB、VC++）
• 　　Windows7 32bit

＜実行環境＞

• 　　Windows7 32bit
• 　　接続先DB（SymfowareServer / WindowsServer2003R2）

仕様

できれば元々の仕様どおり1⇒4の順番で動作させたいです。（最終的に同じ結果が得られるのであればOK）

1. 検索条件×1、繰り返し回数×1、空の構造体×1をVBからVC++に渡す。
2. VC++は、検索条件をキーにしてDBを検索し、検索結果をVBから渡された構造体に設定する。※fetchでループ処理を行い、複数の情報を構造体に設定する。
3. 2 で設定した構造体と処理結果を VB に返す。
4. 3で受け取った処理結果から、VC++の処理が正常かを判断し、構造体からデータを画面に表示する。

先行処理(SELECT COUNT(*))では、DB接続やSQLに問題はなく、値のみですが受け渡しができていることを確認しました。（VBからは同じVC++の別の関数を呼び出しています。DB接続処理は共通です。）
以上のことから考えると、問題は構造体であろうことは間違いなさそうなのですが・・・

プログラムソース

＜VB (screen (form))＞
①API_Refer.vb

Public Declare Function Esql_SelNonPosDetail Lib "Esql_Dll.dll" (ByVal SrvNum As String, ByRef RecordCnt As Long, ByRef dtpPS_Det() As tpPS_Det2) As Integer

②mdlPKSrv.vb

'' Structure array declaration
Public dtpPS_NonDet() As tpPS_Det2 'ＰＯＳ外情報明細

'' Structure definition (VB side)
Public Structure tpPS_GotData
Dim dtpPS_Hed As tpPS_Hed ' Structure for header
Dim dtpPS_KaiDet() As tpPS_Det2 ' Detail structure1
Dim dtpPS_NonDet() As tpPS_Det2 ' Detail structure2　　←問題の構造体
Dim dtpPS_Gaisho As tpPS_Gaisho ' Detail structure3
End Structure

Public Structure tpPS_Det2
       Dim sShoriFlg As String  
       Dim sSrvNo As String 
       Dim sPosNo As String  
       Dim sTuuban As String  
       Dim sToriDate As String
       Dim sToriTime As String
       Dim sKingaku As String 
       Dim sRiyuCd As String
       Dim sSrvRank As String
       Dim sAddSrvRank As String 
       Dim sSrvTime As String
       Dim sChgTime As String
       Dim sHanbaiinCd As String
       Dim sCustKbn As String
       Dim sKozaNo As String 
       Dim sKozaSbh As String
End Structure

③frmWork1.vb

''' strPrkSrvNum is the value entered from the screen.
Private NPosRecCnt As Integer ' Number of repetitions
　　　　～
''' Function of "Number of repetitions"
Ret = Esql_NonPosCount(strPrkSrvNum, NPosRecCnt)　←ここは問題なし
If Ret <> 0 Then
''' Error handling
Exit Function
Else
''' If "Number of repetitions" is greater than 1
If NPosRecCnt > 0 Then
''' Get information from DB.
ReDim dtpPS_GotData(0).dtpPS_NonDet(NPosRecCnt - 1)
Ret = Esql_SelNonPosDetail(strPrkSrvNum, NPosRecCnt, dtpPS_GotData(0).dtpPS_NonDet)　　←問題の箇所（VC++(DLL)呼び出し）
If Ret <> 0 Then
''' Error handling
Exit Function
Else
''' Display data from a structure to the screen.

＜VC++（DLL）＞
④esql_com.h

typedef struct {
　BSTR szSyoriFlg; 
　BSTR szServiceNo; 
　BSTR szPosNo; 
　BSTR szSeqNo; 
　BSTR szCreateDate; 
　BSTR szCreateTime; 
　BSTR szSalMoney;
　BSTR szRiyuCode; 
　BSTR szServiceRank;
　BSTR szAddSrvRank; 
　BSTR szServiceTime; 
　BSTR szChangeTime;
　BSTR szTantoCode; 
　BSTR szCustKubn; 
　BSTR szKozaNo; 
　BSTR szKozaType; 
} NPOS_DET2;

⑤Esql_com.sc

__declspec(dllexport) int __stdcall Esql_SelNonPosDetail(char *lpszSrvNumber, long *nIndexNum, LPSAFEARRAY *pNpos_Det)
{
long lRet, lCount;
int ii;
int nSqlstate; // SQL return value (hexadecimal)
char *work; // Work Area
NPOS_DET2 npos; // [For structure reference]
LPSAFEARRAY psa = *pNpos_Det; // [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]
size_t buft; // Work Area

//
// Processing start setting
//
EXEC SQL SET TRANSACTION READ ONLY,
ISOLATION LEVEL READ UNCOMMITTED; // Transaction start setting

//*
// Remove trailing whitespace from a string
//==========================
strrtrim(lpszSrvNumber);

// Setting of Parking ticket number
//================================
strcpy_s(SQL_VARNUMBER.sqlvar,32, lpszSrvNumber);
SQL_VARNUMBER.sqllen = strlen(SQL_VARNUMBER.sqlvar);
strcpy_s(SQL_NUMBER,32, lpszSrvNumber);

// Get the number of records
//================================
if ( ( lRet = Esql_NonPosCount( SQL_NUMBER, &lCount ) ) != 0 ) {
return ( lRet );
}

// Check the number of acquisitions and area allocation
//================================
if ( *nIndexNum < lCount ) {
return ( -1 );
}

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

// Cursor declaration
//================================
EXEC SQL WHENEVER SQLERROR GOTO :SQL_ERROR;
EXEC SQL DECLARE NONPOS_CUR1 CURSOR FOR
SELECT SHORIFLG, SRVNO, POSNO, TUUBAN,
TORIDATE, TORITIME, KINGAKU, RIYUCD,
SRVRANK, SRVTIME, CHGTIME, HANBAIINCD,
CUSTOMKBN, KOZANO, KOZASBH
FROM PSSCH.NONPOSDET
WHERE SRVNO = :SQL_VARNUMBER;

// Cursor Open
//================================
EXEC SQL OPEN NONPOS_CUR1;

// Get data from DB
//================================
EXEC SQL WHENEVER NOT FOUND GOTO :SQL_NOT;
for ( ii = 0; ii < lCount; ii++ ) {
EXEC SQL FETCH FROM NONPOS_CUR1
INTO :SQL_SYORIFLG INDICATOR :SQL_HY01,
:SQL_KANRINO INDICATOR :SQL_HY02,
:SQL_POSNO INDICATOR :SQL_HY03,
:SQL_SEQNO INDICATOR :SQL_HY04,
:SQL_DATE INDICATOR :SQL_HY05,
:SQL_TIME INDICATOR :SQL_HY06,
:SQL_LNGSALMO INDICATOR :SQL_HY07,
:SQL_RIYUCD INDICATOR :SQL_HY08,
:SQL_RANK INDICATOR :SQL_HY09,
:SQL_LNGSRVTIME INDICATOR :SQL_HY10,
:SQL_LNGCHGTIME INDICATOR :SQL_HY11,
:SQL_TANTOCD INDICATOR :SQL_HY12,
:SQL_CUSTKBN INDICATOR :SQL_HY13,
:SQL_KOZANO INDICATOR :SQL_HY14,
:SQL_KOZATYPE INDICATOR :SQL_HY15;

// [For structure reference] Reference setting (get)
SafeArrayGetElement(psa, &idx[0], &npos);

// Edit data retrieved from DB 1
if (SQL_HY01 != -1) strncpy_s(bufa,sizeof(bufa), SQL_SYORIFLG, 2);
else *bufa = 0x00;
mbstowcs_s(&buft, bufw, sizeof(bufw), bufa, 1024);
SysFreeString(npos.szSyoriFlg);
npos.szSyoriFlg = SysAllocString(bufw);
・
・
・
// Edit data retrieved from DB 15
if (SQL_HY15 != -1) strncpy_s(bufa, sizeof(bufa),SQL_KOZATYPE, 4);
else *bufa = 0x00;
mbstowcs_s(&buft, bufw, sizeof(bufw), bufa, 1024);
SysFreeString(npos.szKozaType);
npos.szKozaType = SysAllocString(bufw);

// [For structure reference] Reference settings (Settings)
SafeArrayPutElement(psa, &idx[0], &npos); ←ここが問題？
idx[0]++; // Next Record
}


SQL_NOT:
// Cursol Close
//================================
EXEC SQL CLOSE NONPOS_CUR1;
EXEC SQL COMMIT WORK;

// Deallocation for structure reference
//================================
// [For structure reference] Reference setting (end)
SafeArrayUnlock(psa);

// End processing
//==========================
return ( 0 );



// DB Error Handling
//==========================
SQL_ERROR:
EXEC SQL WHENEVER SQLERROR CONTINUE; / SQL Error disable setting /
nSqlstate = strtol(SQLSTATE,&work,16); / SQL Return value setting /
EXEC SQL CLOSE NONPOS_CUR1; / Cursol End /
EXEC SQL ROLLBACK WORK; / SQL Rollback processing /
SafeArrayUnlock(psa); /[For structure reference] Reference setting (end)/
return ( nSqlstate ); / Abnormal termination of processing /
}

よろしくお願いいたします。

Answer 1

SAFEARRAYで構造体をやりとりするのはすごい面倒なんで、単なるLPARRAYとしたほうがいいですよ。

Public Structure tpPS_Det2
      <MarshalAs(UnmanagedType.BStr)> Dim sShoriFlg As String  
      <MarshalAs(UnmanagedType.BStr)> Dim sSrvNo As String 
...
End Structure

<DllImport("Esql_Dll.dll")>
Public Function Esql_SelNonPosDetail(ByVal SrvNum As String, RecordCnt As Integer, <Out()> dtpPS_Det() As tpPS_Det2) As Integer
End Function

 Ret = Esql_NonPosCount(strPrkSrvNum, NPosRecCnt)　
 ReDim dtpPS_GotData(0).dtpPS_NonDet(NPosRecCnt - 1)
 Ret = Esql_SelNonPosDetail(strPrkSrvNum, NPosRecCnt, dtpPS_GotData(0).dtpPS_NonDet)

__declspec(dllexport) int __stdcall Esql_SelNonPosDetail(const  char *srv,  int lCount, NPOS_DET2 *dets)
{
    for( int idx = 0; idx<lCount; idx++){
        dets[idx].sShoriFlg = SysAllocString(L"a1");
        dets[idx].sSrvNo = SysAllocString(L"a2");
...
    }
}

Comments

[Marino_Y]

ご回答ありがとうございます。

実に的確なアドバイスでした！
私のやりたいことを汲み取って、SAFEARRAYに代わる方法を教えてくださり深く感謝しております！！

最終的に、下記で問題解決できました。

_＜VB (screen (form))＞_
**①API_Refer.vb**
```VB.NET
<DllImport("Esql_DLL.dll", CharSet:=CharSet.Ansi)> _
Public Function Esql_SelNonPosDetail(ByVal SrvNum As String, ByRef RecordCnt As Long, <Out()> ByVal dtpPS_Det() As tpPS_Det2) As Integer
End Function
```

**②mdlPKSrv.vb**
```VB.NET
'' Structure array declaration
Public dtpPS_NonDet() As tpPS_Det2

'' Structure definition (VB side)
Public Structure tpPS_GotData
Dim dtpPS_Hed As tpPS_Hed ' Structure for header
Dim dtpPS_KaiDet() As tpPS_Det2 ' Detail structure1
Dim dtpPS_NonDet() As tpPS_Det2 ' Detail structure2
Dim dtpPS_Gaisho As tpPS_Gaisho ' Detail structure3
End Structure

//<ComVisible(True), Guid("1D93560B-39AF-41cb-9E11-74F8E5A96199")> _
<StructLayout(LayoutKind.Sequential)> _
Public Structure tpPS_Det2
<MarshalAs(UnmanagedType.BStr)> Dim sShoriFlg As String
<MarshalAs(UnmanagedType.BStr)> Dim sSrvNo As String
<MarshalAs(UnmanagedType.BStr)> Dim sPosNo As String
<MarshalAs(UnmanagedType.BStr)> Dim sTuuban As String
<MarshalAs(UnmanagedType.BStr)> Dim sToriDate As String
<MarshalAs(UnmanagedType.BStr)> Dim sToriTime As String
<MarshalAs(UnmanagedType.BStr)> Dim sKingaku As String
<MarshalAs(UnmanagedType.BStr)> Dim sRiyuCd As String
<MarshalAs(UnmanagedType.BStr)> Dim sSrvRank As String
<MarshalAs(UnmanagedType.BStr)> Dim sAddSrvRank As String
<MarshalAs(UnmanagedType.BStr)> Dim sSrvTime As String
<MarshalAs(UnmanagedType.BStr)> Dim sChgTime As String
<MarshalAs(UnmanagedType.BStr)> Dim sHanbaiinCd As String
<MarshalAs(UnmanagedType.BStr)> Dim sCustKbn As String
<MarshalAs(UnmanagedType.BStr)> Dim sKozaNo As String
<MarshalAs(UnmanagedType.BStr)> Dim sKozaSbh As String
End Structure
```

**③frmWork1.vb**
```VB.NET
Ret = Esql_SelNonPosDetail(strPrkSrvNum, NPosRecCnt, dtpPS_GotData(0).dtpPS_NonDet)
```

_＜VC++（DLL）＞_
**④esql_com.h**
```VC++
typedef struct {
　BSTR szSyoriFlg;
　BSTR szServiceNo;
　BSTR szPosNo;
　BSTR szSeqNo;
　BSTR szCreateDate;
　BSTR szCreateTime;
　BSTR szSalMoney;
　BSTR szRiyuCode;
　BSTR szServiceRank;
　BSTR szAddSrvRank;
　BSTR szServiceTime;
　BSTR szChangeTime;
　BSTR szTantoCode;
　BSTR szCustKubn;
　BSTR szKozaNo;
　BSTR szKozaType;
} NPOS_DET2;
```

**⑤Esql_com.sc**
```VC++
__declspec(dllexport) int __stdcall Esql_SelNonPosDetail(char *lpszSrvNumber, long *nIndexNum, NPOS_DET2 *pNpos_Det)
{
long lRet, lCount;
int ii;
int nSqlstate; // SQL return value (hexadecimal)
char *work; // Work Area
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

//
// Processing start setting
//
EXEC SQL SET TRANSACTION READ ONLY,
ISOLATION LEVEL READ UNCOMMITTED; // Transaction start setting

//*
// Remove trailing whitespace from a string
//==========================
strrtrim(lpszSrvNumber);

// Setting of Parking ticket number
//================================
strcpy_s(SQL_VARNUMBER.sqlvar,32, lpszSrvNumber);
SQL_VARNUMBER.sqllen = strlen(SQL_VARNUMBER.sqlvar);
strcpy_s(SQL_NUMBER,32, lpszSrvNumber);

// Get the number of records
//================================
if ( ( lRet = Esql_NonPosCount( SQL_NUMBER, &lCount ) ) != 0 ) {
return ( lRet );
}

// Check the number of acquisitions and area allocation
//================================
if ( *nIndexNum < lCount ) {
return ( -1 );
}

// Set locale, idx
//================================
setlocale(LC_ALL,"");
idx[0] = 0;

// Cursor declaration
//================================
EXEC SQL WHENEVER SQLERROR GOTO :SQL_ERROR;
EXEC SQL DECLARE NONPOS_CUR1 CURSOR FOR
SELECT SHORIFLG, SRVNO, POSNO, TUUBAN,
TORIDATE, TORITIME, KINGAKU, RIYUCD,
SRVRANK, SRVTIME, CHGTIME, HANBAIINCD,
CUSTOMKBN, KOZANO, KOZASBH
FROM PSSCH.NONPOSDET
WHERE SRVNO = :SQL_VARNUMBER;

// Cursor Open
//================================
EXEC SQL OPEN NONPOS_CUR1;

// Get data from DB
//================================
EXEC SQL WHENEVER NOT FOUND GOTO :SQL_NOT;
for ( ii = 0; ii < lCount; ii++ ) {
EXEC SQL FETCH FROM NONPOS_CUR1
INTO :SQL_SYORIFLG INDICATOR :SQL_HY01,
:SQL_KANRINO INDICATOR :SQL_HY02,
:SQL_POSNO INDICATOR :SQL_HY03,
:SQL_SEQNO INDICATOR :SQL_HY04,
:SQL_DATE INDICATOR :SQL_HY05,
:SQL_TIME INDICATOR :SQL_HY06,
:SQL_LNGSALMO INDICATOR :SQL_HY07,
:SQL_RIYUCD INDICATOR :SQL_HY08,
:SQL_RANK INDICATOR :SQL_HY09,
:SQL_LNGSRVTIME INDICATOR :SQL_HY10,
:SQL_LNGCHGTIME INDICATOR :SQL_HY11,
:SQL_TANTOCD INDICATOR :SQL_HY12,
:SQL_CUSTKBN INDICATOR :SQL_HY13,
:SQL_KOZANO INDICATOR :SQL_HY14,
:SQL_KOZATYPE INDICATOR :SQL_HY15;

// Edit data retrieved from DB 1
if (SQL_HY01 != -1) strncpy_s(bufa,sizeof(bufa), SQL_SYORIFLG, 2);
else *bufa = 0x00;
mbstowcs_s(&st, NULL, 0, &bufa, 1024);
mbstowcs_s(&st, &bufw[0], st, &bufa, 1024);
if (pNpos_Det[idx[0]].szSyoriFlg != NULL) SysFreeString(pNpos_Det[idx[0]].szSyoriFlg);
pNpos_Det[idx[0]].szSyoriFlg = SysAllocString(bufw);
・
・
・
// Edit data retrieved from DB 15
if (SQL_HY15 != -1) strncpy_s(bufa, sizeof(bufa),SQL_KOZATYPE, 4);
else *bufa = 0x00;
mbstowcs_s(&st, NULL, 0, &bufa, 1024);
mbstowcs_s(&st, &bufw[0], st, &bufa, 1024);
if (pNpos_Det[idx[0]].szKozaType != NULL) SysFreeString(pNpos_Det[idx[0]].szKozaType);
pNpos_Det[idx[0]].szKozaType = SysAllocString(bufw);

idx[0]++; // Next Record

}

SQL_NOT:
// Cursol Close
//================================
EXEC SQL CLOSE NONPOS_CUR1;
EXEC SQL COMMIT WORK;

// End processing
//==========================
return ( 0 );

// DB Error Handling
//==========================
SQL_ERROR:
EXEC SQL WHENEVER SQLERROR CONTINUE; / SQL Error disable setting /
nSqlstate = strtol(SQLSTATE,&work,16); / SQL Return value setting /
EXEC SQL CLOSE NONPOS_CUR1; / Cursol End /
EXEC SQL ROLLBACK WORK; / SQL Rollback processing /
return ( nSqlstate ); / Abnormal termination of processing /
}
```

この度は助けてくださり本当に本当にありがとうございました！！

[matukeso]

vcはintもlongも32bitだけど、vb.netのlongは64bitてすよ。

[Marino_Y]

追加のご指摘ありがとうございます。
元々vcもvbも6.0の時はlongだったので全く疑っていませんでした・・・。
だからintで回答をくださっていたのですね。
vb.netになってからの違いでしょうか？