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设置变化);
现在的结果就是,DLL中即使没有做任何处理,“fData:Array[0..3000] of Single”内的长度发生改变,比如设成[0..2048],那么iNum1也就等于2048了;而同理,iNum2又随iNum1的设置变化。
初次使用delphi7,这样的结果,不知所云的#¥@%

解决方案 »

  1.   


    //DLL调用规范的问题
    //把stdcall换成cdecl
    function F_GetA(fData:Array of Single;iNum1,iNum2:Integer):Cardinal;cdecl;external 'MyDLL.dll' name GetA;
      

  2.   

    function F_GetA(fData:PSingle;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('成功。');试试这样写
      

  3.   

    你改成if(F_GetA(@fData,iNum1,iNum2)=0) then
      ShowMessage('失败。')
    else
      ShowMessage('成功。');  
    试试看 可能你传递的参数不正确!