Delphi与MATLAB数据接口方案探讨

领测软件测试网

function MatExec(p:PChar):Integer;stdcall;external’DpLab.dll’; 
function MatCreateDoubleD(p:Pointer;num:Integer;dd:Array of double):Integer;stdcall;external’DpLab dll’; 
function MatGetdoubleData(p:pointer;num:Integer;dd:Array of double):Integer;stdcall;external’DpLab dll’; 
函数声明了以后,就可以方便地使用它们了。 
打开Matlab引擎用:MatOpenEng(PChar({post.content}’)); 
关闭Matlab引擎用:MatCloseEng; 

2、下面的程序给出了从Matlab中获取数据的方法,函数MatGetDoubleData通过变量cc指定Matlab中的数据变量名,该变量应是已经定义好的: 
procedure TForm1Button2Click(Sender:Tobject); 
var dd:Array[0..10] of double;cc:char;i:integer; 
begin 
cc:=’D’;//Matlab中的变量名 
MatGetDoubleData(@cc,10,dd); 
ListBox1.clear;//在一个列表框内显示读出的数据 
for i:=0 to 4 do ListBox1.items.add(format(’%.2f,[dd])); 
end; 

　 3、下面给出Delphi在Matlab中用sin(r)/r函数画出三维图形的程序，其余情况大家触类旁通吧^_^ 
procedure TForm1Button3Click(Sender:Tobject); 

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