关于Delphi7 调用C++ dll 传参问题。

[spade24]

C++ DLL h文件:

extern "C" __declspec(dllexport)   unsigned int __stdcall WINAPI GetA(float *fData,int iNum1,int iNum2);

Delphi7 加载DLL：

function F_GetA(fData:Array of Single;iNum1,iNum2:Integer):Cardinal;stdcall;external 'MyDLL.dll' name GetA;

var
  fData:Array[0..3000] of Single;//输出的浮点型数组
  iNum1:Integer;//输入的数据
  iNum2:Integer;//输入的数据

iNum1:=10；
iNum2:=20;
if(F_GetA(fData,iNum1,iNum2)=0) then
  ShowMessage('失败。')
else
  ShowMessage('成功。');

结果：
通过调试发现，在调用F_GetA过程中，
1、iNum1=3000（随fData长度变化）；
2、iNum2=10（随iNum1设置变化）；

初次使用delphi7，这样的结果，不知所云的#￥@%

[bdmh]

c++中实现了什么代码

[spade24]

[Quote=引用 1 楼 bdmh 的回复:]
c++中实现了什么代码
[/Quote]

因为DLL也是我自己写的，所以，我通过在DLL最开头位置写AfxMessageBox得到iNum1和iNum2结果。
也就是说我没经过任何处理，直接在dll中取出iNum1和iNum2两个数据就是不对的了。

[spade24]

补充：C++的DLL应该不会有问题，在VB、C#调用都没出现过问题。

现在的结果就是，DLL中即使没有做任何处理，“fData:Array[0..3000] of Single”内的长度发生改变，比如设成[0..2048]，那么iNum1也就等于2048了；而同理，iNum2又随iNum1的设置变化。