VB.netからdll(c++)へ配列を渡したいです

Question

VB.netからdll(c++)へ構造体のデータを渡しています

下記のようにしたのですが、変数はできましたが配列はできませんでした。

'VB側

public class A

Public Structure data
Public number As single
Public arg() As single
End Structure

Public struct As New data

Public Declare Function Draw Lib "C:(略)\simulation.dll" (ByRef struct As data) As Boolean

'タイマーで一定時間たてば送る。
Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
struct.number=10
Redim struct.arg(5)
struct.arg(0)=10
struct.arg(1)=10
struct.arg(2)=10

　　Call DrawSpace(struct)
end sub

end class

//C++側(ヘッダファイル)
＃ifdef cplusplus ＃define EXPORT extern "C" declspec(dllexport)
＃else
＃define EXPORT __declspec(dllexport)
＃endif

typedef struct {
float number;
float arg[5];
} data;

namespace Tips_Win32DLL
{
bool __stdcall Draw(AAA_C* _data);
}

//C++側(メインファイル)
namespace Tips_Win32DLL
{
bool __stdcall DrawSpace(AAA_C* _data)
{
float a = data->number; //データが問題なく入っていた
float b = data->arg[0];　//0になっている

return true;
}
}

float b = data->arg[0];のところが値が入っていません。わかるかた助けてください。
ちなみに
p = _data->arg;
float b = *(p+1);
とかやりましたがだめでした。お願いします。

Comments

[退会済みユーザー]

マルチポストのようですので、他のポスト先の URL を貼っておきます。

https://social.msdn.microsoft.com/Forums/ja-JP/88817cbd-fc22-4029-8254-c3cc7065b745/vbnet1236312425dllc12408371972101512434281931237512383123561239?forum=vbgeneralja

質問者さんへ＞

「マルチポスト」の意味が不明でしたら、それをキーワードにググってヒットする記事を 2, 3 読んでみることをお勧めします。いろいろな意見があるようですが、まず歓迎されるころはなさそうです。ここにもルールがあります。読んでください→　https://teratail.com/help#posted-otherservice

Answer 1

Imports System.Runtime.InteropServices

  Public Structure data
    Public number As single
     <MarshalAs(UnmanagedType.ByValArray, SizeConst := 5)> Public arg() As single
  End Structure

にて動作を確認しました。

Comments

[puroguraman]

回答ありがとうございました

[puroguraman]

おかげさまでその後進展しました。本当にありがとうございました。

[puroguraman]

asmさん

ベストアンサー済みですがこのコメントは届くのでしょうか、追加でお聞きしたいことがあるので回答いただけると幸いです。

回答いただいた方法で
<MarshalAs(UnmanagedType.ByValArray, SizeConst:=5)> Public arg() As Single
<MarshalAs(UnmanagedType.ByValArray, SizeConst:=5)> Public arg1() As Single
とすると今度はarg1のデータが来ませんでした。
理由お分かりでしたら恐縮ですがまた知恵をおかしください。

[puroguraman]

asmさん
たびたび一方的に書き込んでしまいますが

VB側
<MarshalAs(UnmanagedType.ByValArray, SizeConst:=3)>
Redim struct.arg(3)

c++側
typedef struct {
float number;
float arg[10];
} data;

と定義するといけました。
しかし、
<MarshalAs(UnmanagedType.ByValArray, SizeConst:=5)> Public arg() As Single
<MarshalAs(UnmanagedType.ByValArray, SizeConst:=5)> Public arg1() As Single
という定義の後に
public flag as booleanとするとそのデータは送られませんでした。

配列の定義の前であればいいのですが後だと送られない仕様だったりしますか？

[asm]

どちらも再現しませんでした。

public flag as booleanについては、C/C++側のsizeof(bool)が保証されない関係でちょっと考える必要があります

[Zuishin]

StructLayout 属性を指定してないからかなと思います。

[puroguraman]

お二人ともご回答ありがとうございます。
asmさんはそうならないとのことでたぶん私の環境の問題なのでしょうか

<StructLayout(LayoutKind.Sequential)>
Public Structure data
としても変わらなかったのでこの問題は保留にします。

[Zuishin]

構造体はデフォルトで Sequential なので、それだと何も変わりません。

[puroguraman]

回答ありがとうございます。消しました
たびたびとなりますが

<MarshalAs(UnmanagedType.ByValArray, SizeConst:=5)> Public arg() As Single
<MarshalAs(UnmanagedType.ByValArray, SizeConst:=5)> Public arg1() As Single
public flag as boolean

だとargとflagは送られてきていました。
arg1だけすべて0でした。
なにかわかりましたらご協力よろしくお願いいたします。

[puroguraman]

お二人ともすみませんお騒がせしました。

Public number As single
<MarshalAs(UnmanagedType.ByValArray, SizeConst:=5)> Public arg() As Single
<MarshalAs(UnmanagedType.ByValArray, SizeConst:=5)> Public arg1() As Single
public flag as boolean

Redim struct.arg(5)
Redim struct.arg1(5)

//c++側
typedef struct {
float number;
float arg[5];
} data;

要素数をしっかりVB,c++両方で合わせたらすべてのデータがしっかりデータが入っていました。
ご協力ありがとうございました。今度こそ解決できました。

[asm]

Redimの要素数を間違えてたのでしょうか?
~~そうであるならば、KOZ6.0さんの回答にあるようにVBFixedArrayを付与するとRedimいらないのかもしれませんね~~

訂正：マニュアル見る限りVBFixedArrayを付与してもDim/ReDimの省略は不可能でした。

Answer 2

    Public arg() As single

を

 <VBFixedArray(5)> Public arg() As Single

に変えると動きそうな気がします。

Comments

[puroguraman]

回答ありがとうございます。
早速試しましたが駄目でした。値0のままです。。。

この方法はネットにもあまりないのでいすがプログラミング解説本見てもなさそうですか？

[KOZ6.0]

VB6 をコンバートすると付加されるのですが、外しちゃいましたね。申し訳ありません。

[puroguraman]

とんでもないです。ご協力ありがとうございました。