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

前端之家收集整理的这篇文章主要介绍了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


 保存

 在同目录下建立 BCCOBJ 目录

 运行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 bccobj t_nonfinite.obj} {$LINK bccobj tGetInf.obj} {$LINK bccobj tGetNaN.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结束。



猜你在找的PHP相关文章