程序员人生 网站导航

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

栏目:php教程时间:2015-04-25 09:27:05
步骤:
  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结束。



------分隔线----------------------------
------分隔线----------------------------

最新技术推荐