手把手教你delphi与matlab混合编程

首先说一下我的配置，电脑是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是输入参数的值。