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,这样的结果,不知所云的#¥@%
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,这样的结果,不知所云的#¥@%
//DLL调用规范的问题
//把stdcall换成cdecl
function F_GetA(fData:Array of Single;iNum1,iNum2:Integer):Cardinal;cdecl;external 'MyDLL.dll' name GetA;
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('成功。');试试这样写
ShowMessage('失败。')
else
ShowMessage('成功。');
试试看 可能你传递的参数不正确!