C＋＋DLLからVBへ配列の取得

Question

前提・実現したいこと

C++で作成したDLLからVBへ配列のデータを渡したい。

C++DLL：ファイルを読み込んで読み込んだデータを配列にセット
VB：C++のデータを読み出して、データを引き継ぐ

発生している問題・エラーメッセージ

VB側で取得した配列のデータが全て0になってしまう。

該当のソースコード

C++
コード

typedef struct _DATA_KAKEIBO	
{
	long	syokuhi;         // 食費
	long	nichiyohin;      // 日用品
} DATA_KAKEIBO;	

//ファイルからデータを読み出す
KAKEIBO_DLL_API int WINAPI ReadData(int BufCnt,  DATA_KAKEIBO* pDataKakeibo);	
// BufCnt:読み出すデータの数
// pDataKakeibo：読み出したデータ

VB
コード

 <StructLayout(LayoutKind.Sequential)>
    Structure DATA_KAKEIBO
        Dim Syokuhi As Integer       ' 食費
        Dim Nichiyohin As Integer    ' 日用品
    End Structure   

Declare Function ReadData Lib "KAKEIBO_DLL.dll" (ByVal  BufCnt As Integer, ByVal DataKakeibo() As DATA_KAKEIBO) As Integer ' ファイルからデータを読み出す 

'読み出し時ソース
Dim Cnt As Integer	'読み出すデータの数
Dim BufDataKakeibo(Cnt - 1) As DATA_KAKEIBO　’読み出したデータ
Dif Ref As Integer      '読み出した結果

For i = 0 To (Cnt - 1)
            BufDataKakeibo(i).Syokuhi = 0
            BufDataKakeibo(i).Nichiyohin = 0
        Next i

Ref = ReadData(Cnt, BufDataKakeibo)　
’BufDataKakeiboにセットされたデータが全て0になってしまう

### 試したこと
ReadData Lib "KAKEIBO_DLL.dll" (ByVal  BufCnt As Integer, ByVal DataKakeibo() As DATA_KAKEIBO) As Integer
のByVal DataKakeiboをByRefに変更するとシステムエラーになってしまい実行できませんでした。

ReadData Lib "KAKEIBO_DLL.dll" (ByVal  BufCnt As Integer, ByVal DataKakeibo() As DATA_KAKEIBO) As Integer
に変更する方法も試したのですが、今のところ成功しておりません。

### 補足情報（FW/ツールのバージョンなど）
Visual studio2013

Comments

[vann_2921]

Declare のDATA_KAKEIBOに<In,Out>の属性を追加してはどうでしょうか？

[elephant]

アドバイスをどうもありがとうございました。
<Out>属性を追加して、無事取得することができました。
本当にありがとうございました。

Answer 1

• 出力パラメータに<Out>が付いてません。
• 値型のポインタ、ポインタのポインタが必要なケース以外は、ByVal・ByRefは基本的に書かなくていいです。（値型は値、参照型はポインタを渡してくれるので）

基本的には下記を遵守するようにしてください。（宣言等はC#の記述なので、適時VB.NETに読み替えてください）
ネイティブ相互運用性のベスト プラクティス
また、今回のケースでは特に問題になりませんが、VB.NETではDeclare Functionより細かいオプション指定の可能なDllImportの使用をお勧めします。

Comments

[elephant]

ご指摘頂いた通り、<Out>を付けたところ、無事取得することができました。

ByVal、ByRefについては、弊社の慣習でつけていたのですが、改めて見直してみようと思います。
ネイティブ相互運用性のベストプラクティスについて、DllImportの使用についてもとても参考になりました。

いつもはC++での開発が殆どなので、今回はとても参考になりました。社内でも情報を共有したいと思っています。本当にありがとうとうございました。