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

2013-03-12 09:04:34 446 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

Delphi 调用C/C++的DLL VC中DLL声名格式： Extern “C” void __declspec(dllexport) __stdcall ShowMess(HWND hwnd, char* mess); 输出格式为：_ShowMess@8，“8”为函数参数字节数为了避免名称分裂，可采用以下方法解决： 1.声明中不加__stdcall，采用VC默认格式__cdecl，但在Del 阅读详情

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

...全文