Delphi与MATLAB数据接口方案探讨

领测软件测试网

} 
else return0; 
} 

(4)执行Matlab命令函数: 
extern"C" declspec(dllexport)int MatExec(far char *cc) 
{ 
if(!ep)return0; 
engEvalString(ep,cc);//cc中放Matlab命令return 1; 
} 

(5)根据已知数据创建mxArray变量: 
//注：cc:Matlab变量名 num:数据的个数 dd:已知数据 
extern"C" declspec(dllexport)int MatCreateDoubleD(char *cc,int num,double dd[]) 
{ 
if(!ep) return 0; 
if(num<1) return -1; 
PA=mxCreatedoubleMatrix(1,num,mxREAL); 
mxSetName(PA,fh[Getfh(cc)]);//指定Matlab中变量名,它必须是静态字符串! 
memcpy((char *)mxGetPr(PA),(char *)dd,num * sizeof(double)); 
engPutArray(ep,PA); 
return1; 
} 

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