Delphi 如何使用 Matlab 的 .m文件？

步骤：
  1、在 matlab 中，将 .m 文件编译成 .c 文件；
  2、用 bcc32 编译 .c 文件，得到 obj 文件；
  3、在 Delphi 中，调用 obj 文件；

步骤1、在 matlab 中，将 .m 文件编译成 .c 文件

a).编写test.m文件

function [c,d] = test(a,b)
c = a + b;
d = a * b;

b).运行matlab2014a，在工作界面输入coder，在Matlab Coder Project 新建工程对话框中输入工程名称 test

在窗体右侧的工程中，添加test.m文件到工程中，

添加完test.m文件以后，选择函数输入的参数类型：

切换到 Build 页，进行设置

最后点击编译。

会在你的工程目录下生成.c文件。

步骤1结束。

步骤2、用 bcc32 编译 .c 文件，得到 obj 文件

在.c文件目录下新建1个bat文件，内容为：(路径为你机器上实际路径)

X:…DXE8incc32 -c -nBCCOBJ -IX:…DXE8Include;X:…DXE8IncludeWindowscrtl rt_nonfinite.c
X:…DXE8incc32 -c -nBCCOBJ -IX:…DXE8Include;X:…DXE8IncludeWindowscrtl rtGetInf.c
X:…DXE8incc32 -c -nBCCOBJ -IX:…DXE8Include;X:…DXE8IncludeWindowscrtl rtGetNaN.c
X:…DXE8incc32 -c -nBCCOBJ -IX:…DXE8Include;X:…DXE8IncludeWindowscrtl test.c
X:…DXE8incc32 -c -nBCCOBJ -IX:…DXE8Include;X:…DXE8IncludeWindowscrtl test_initialize.c
X:…DXE8incc32 -c -nBCCOBJ -IX:…DXE8Include;X:…DXE8IncludeWindowscrtl test_terminate.c

pause

保存

运行bat文件

在 BCCOBJ目录下，将会生成6个obj文件。

步骤2结束。

步骤3、在 Delphi 中，调用 obj 文件

在Delphi中援用这些 obj 文件，就能够使用了。

{$LINK bccobj est_initialize.obj}
{$LINK bccobj est_terminate.obj}
{$LINK bccobj est.obj}
{$LINK bccobjt_nonfinite.obj}
{$LINK bccobjtGetInf.obj}
{$LINK bccobjtGetNaN.obj}

定义要使用的函数：

procedure _test_initialize(); cdecl; external;
procedure _test_terminate(); cdecl; external;
procedure _test(const a, b: Integer; var c, d: Integer); cdecl; external;

调用

var
a, b: Integer;
begin
_test_initialize();
_test(2, 3, a, b);
_test_terminate();
Caption := Format('%d %d', [a, b]);
end;

步骤3结束。

常见问题FAQ

免费下载或者VIP会员专享资源能否直接商用？: 本站所有资源版权均属于原作者所有，这里所提供资源均只能用于参考学习用，请勿直接商用。若由于商用引起版权纠纷，一切责任均由使用者承担。更多说明请参考 VIP介绍。

提示下载完但解压或打开不了？: 最常见的情况是下载不完整: 可对比下载完压缩包的与网盘上的容量，若小于网盘提示的容量则是这个原因。这是浏览器下载的bug，建议用百度网盘软件或迅雷下载。若排除这种情况，可在对应资源底部留言，或联络我们.。

找不到素材资源介绍文章里的示例图片？: 对于PPT，KEY，Mockups，APP，网页模版等类型的素材，文章内用于介绍的图片通常并不包含在对应可供下载素材包内。这些相关商业图片需另外购买，且本站不负责(也没有办法)找到出处。同样地一些字体文件也是这种情况，但部分素材会在素材包内有一份字体下载链接清单。