VC6でALTを作成して、VB6やC#で利用する場合の型の定義の仕方

質問

COM+の引数や型で悩んでいます。

ALTで型が標準(intなど)でないとコンパイルエラーになると解釈して、
型をユーザー定義型（構造体）にしてデータのやり取りをすれば、どんな引数でも送れると思いました。
そして、その際にはポインタ（４バイト）が使われると仮定して、引数をint datとまるで４バイトの数値のようにしました。
（大丈夫か？）
そのポインタを受け取り後、構造体のポインタキャストを当てて、ポインタの中身にアクセスできるようにしました。
このようにすると、コンパイルとするとエラー無しになり、戻り値も正しく返されて、これでいけると思ったのですが、
一部望み通りでない結果が出ました。
通常、ポインタで渡された場合、そのポインタを使って中身（ここではc）を変えた場合、反映されるはずでしたが
戻り値とcの値が異なったため、このやり方は正しくないのではないかと思いました。

ALTに詳しい方、以下のやり方のどこが間違っているのでしょうか？
まったく分からないまま、VC6でALTを作成してVisualBasic6でテストしました。

まず、VC6でTest1は、

[in] int dat, [out,retval] int* retval

定義は

struct S1
int a[10];
int b[10];
int c;
}

STDMETHODIMP CTest::Test1(int dat, int *retval)
{
S1* data = (S1 *)dat;

data->c = data->a(0) + data->b(0); // ここでは3になっている。
*retval = data->c;

return S_OK;
}

としてできたDLLをVBの参照設定で取得して呼び出した場合

type S1
a(10) as long
b(10) as long
c as long
end type

dim x as S1
x.a(0) = 1
x.b(0) = 2

dim dmy as variant
dmy = test.Test1( varptr(x) )

dmy値は3で、x.cの値は3ではありませんでした。

int型など一般的な型やユーザー定義型などを引数として解説しているATLの本など
ご存知の方、押してください。

回答No.1

redfox63 · ベストアンサー

CとVBで配列の宣言の仕方が違うからだと思います
Cの場合 int a[10]; と宣言すると a[0]からa[9]の10要素
VBの場合 a(10) as long と宣言すると a(0)からa(10)の11要素
になるので
data->cの位置は x.cとは異なると思います

Cに合わせるなら a(9) as long
vbに合わせるなら int a[11];
と言った具合に変更しないといけないでしょう