步骤：

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文件目录下新建一个bat文件，内容为：(路径为你机器上实际路径)

X:\...\DXE8\bin\bcc32 -c -nBCCOBJ -IX:\...\DXE8\Include;X:\...\DXE8\Include\Windows\crtl rt_nonfinite.c

X:\...\DXE8\bin\bcc32 -c -nBCCOBJ -IX:\...\DXE8\Include;X:\...\DXE8\Include\Windows\crtl rtGetInf.c

X:\...\DXE8\bin\bcc32 -c -nBCCOBJ -IX:\...\DXE8\Include;X:\...\DXE8\Include\Windows\crtl rtGetNaN.c

X:\...\DXE8\bin\bcc32 -c -nBCCOBJ -IX:\...\DXE8\Include;X:\...\DXE8\Include\Windows\crtl test.c

X:\...\DXE8\bin\bcc32 -c -nBCCOBJ -IX:\...\DXE8\Include;X:\...\DXE8\Include\Windows\crtl test_initialize.c

X:\...\DXE8\bin\bcc32 -c -nBCCOBJ -IX:\...\DXE8\Include;X:\...\DXE8\Include\Windows\crtl test_terminate.c

pause

保存

在同目录下建立 BCCOBJ 目录

运行bat文件

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

步骤2结束。

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

在Delphi中引用这些 obj 文件，就可以使用了。

{$LINK bccobj\test_initialize.obj}

{$LINK bccobj\test_terminate.obj}

{$LINK bccobj\test.obj}

{$LINK bccobj\rt_nonfinite.obj}

{$LINK bccobj\rtGetInf.obj}

{$LINK bccobj\rtGetNaN.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结束。

原文：http://blog.csdn.net/dbyoung/article/details/44959467