首先说一下我的配置,电脑是win10系统,matlab是2022b,delphi是10.4。
1.在matlab中,点击主页→新建→函数。在编辑器中输入如下代码:
function o1 = test(i1,i2)
o1 = 2*i1+3*i2;
end
这个是我的测试代码,这个成功了,后期可以写任意代码。写完以后保存成test.m文件。
2.在matlab的命令行窗口中输入deploytool,然后回车,弹出如下界面
选择Library Compiler,弹出如下界面
首先选择Generic COM Component,然后点击第2步中的加号,把刚才保存的test.m文件添加进去,然后点击Package,这时会提示你保存工程,将工程命名为test.prj,等待编译完成。
编译完会产生3个文件夹,for_redistribution、for_redistribution_files_only、for_testing,我们用for_testing这个文件夹里的文件。打开for_testing文件夹,会发现第一个文件名为_install.bat的批处理文件,双击一下,这个文件的作用是注册刚编译好的dll文件。
3.打开delphi10.4,新建一个工程,点击工具栏中的Component→Import Component,弹出如下界面
直接点击Next
在搜索框里输入test,可以看到我们刚才编译好的dll已经在组件里了,下面我们需要将这个dll添加到组件栏里,选中test 1.0 Type Library,然后点击Next
先点击Pelette Page的下拉框,选ActiveX,然后点击Unit Dir Name后边的3个小点的按钮,选择刚才matlab编辑DLL产生的文件夹for_testing,然后Search Path会自动写入这个文件夹,然后点击Next
此处选择Install to New Package,然后点击Next
在Package name中填入一个名称,我在这里填入test,然后点击Finish。弹出如下界面
点击Yes
点击ok,完成!!
到这一步,Matlab编译的Com组件已经成功添加到delphi的开发环境中了。这时在组件栏中的ActiveX中就可以看到一个TTTest的组件了,把这个组件添加到窗口中,然后放一个button和一个edit。在button的点击事件中写入如下代码
procedure TForm1.Button1Click(Sender: TObject);
var
a,b,c:OleVariant;
begin
b:=4.0;
c:=5.0;
TTest1.test(1,a,b,c);
Edit1.Text:=a;
end;
运行程序,点击按钮
大功告成!!!以后就可以利用matlab强大的功能啦!!!!
最后说一下TTest1.test(1,a,b,c)这一行代码,matlab中我们的输入参数是2个,返回参数是1个,
delphi中对这个函数的定义是:
procedure TTTest.test(nargout: Integer; var o1: OleVariant; i1: OleVariant; i2: OleVariant);
nargout是返回参数的个数,o1就是返回参数的值,i1和i2是输入参数的值。