Question

delphi调用C写的dll，无法调用多数组参数的函数。

C实现的dll函数
extern "C" void __declspec(dllexport) Init(int *tx, double *ty)
{
AFX_MANAGE_STATE(AfxGetStaticModuleState());

for(int i=0;i<5;i++) {
tx[i] = 1+i;
ty[i] = 1.1+i;
}
}

delphi声明
procedure Init_1(x: array of integer; y: array of double);cdecl;
procedure Init_1;external '111.DLL' name 'Init';

delphi调用
procedure Form1.ButtonClick（Sender: TObjec）
var
tx: array [0..4] of integer;
ty: array [0..4] of double;
begin
Init_1(tx, ty);
end；

问题：调用 Init_1报错。
dll的Init函数参数去掉一个，然后delphi相应调用1个参数的Init_1就正确。怎么回事？

Answer 1

c里面的指针，你试一试这样调用：Init_1(@tx, @ty);