Delphi与MATLAB数据接口方案探讨

领测软件测试网

(6)获取Matlab数据: 
//注：cc:Matlab变量名 num:数据的个数 dd:返回数据 
extern"C" declspec(dllexport)int MatGetdoubleData(char *cc,int num,double dd[]) 
{ 
mxArray result; 
double pData; 
int i; 
if(!ep)return0; 
if(num<1)return-1; 
result=engGetArray(ep,fh[Getfh(cc)]); 
if(result) 
{　　 
pData=(double )mxGetData(result);　　 
for(i=0;imxDestroyArray(result);　　 
return1; 
} 
return 0; 
} 
还可以根据需要定义其它一些函数如获取变量名函数intGetfh(charcc[])等等。这些函数写好以后,可以用VC进行编译,将编译好的动态连接库DpLab.dll复制到Windows\system下。 

三、各种函数在Delphi中的运用 

1、为了在Delphi中使用动态连接库函数,首先要对这些函数作如下声明: 
function MatOpenEng(p:PChar):Integer;stdcall;external’DpLab.dll’; 
function MatCloseEng:Integer;stdcall;external’DpLab.dll’; 

文章来源于领测软件测试网 https://www.ltesting.net/

1814/18|<<9101112131415161718>