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

[markov_max]

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就正确。怎么回事?

[猴子先生大宝贝]

cdecl 改 stdcall 你懂得。

[markov_max]

改为dll和delphi声明都改为__stdcall调用也不行。

[markov_max]

extern "C" void __declspec(dllexport)__stdcall Init(int *tx, double *ty); procedure Init_1(x: array of Integer; y: array of double); stdcall; 改为__stdcall这样声明也不行。

[markov_max]

def文件中也做了声明 EXPORTS Init @ 1 ; Explicit exports can go here

[pathletboy]

delphi声明 procedure Init_1(x: PInteger; y: PDouble);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[0], @ty[0]); end； 这样试试

[markov_max]

pathletboy 谢谢。这种方法是对的。 delphi数组的指针参数传递怎么是这样？