初始化 matlab dll 并从 Delphi XE 调用 inc 函数

Question

我正在尝试从 Delphi XE 32 位应用程序中调用一个简单的 Matlab 例程，我已使用 Matlab 2012b 编译器将其编译为名为 Test.dll 的共享 C 库。 该例程增加一个数字并返回新值。

我从 matlab 文档中了解到，我首先需要调用 mclInitializeApplication。 我已将这个 dll 调用映射如下：

unit mclmcrWrapper;

interface

type
  TAnsiArray = TArray<AnsiString>;
  PAnsiArray = ^TAnsiArray;

  function mclInitializeApplication(A: PAnsiArray; B: Integer): Boolean; cdecl; external 'mclmcr.dll' name '_mclInitializeApplication'; 

  // Also tried, with same result:
  // All attempts made with and without underscore give the same results.
  // function mclInitializeApplication(A: PAnsiArray; B: Integer): Boolean; cdecl; external 'mclmcr.dll' name '_mclInitializeApplication'; 
  // function mclInitializeApplication(A: THandle; B: Integer): Boolean; cdecl; external 'mclmcr.dll' name '_mclInitializeApplication'; 

implementation

initialization
  mclInitializeApplication(nil, 0); //Initialize the matlab runtime
end.

根据 ddlDepends，该函数存在于 dll 中。 当我执行我的程序时，我收到以下错误消息：

---------------------------
MatlabTest.exe - Entry Point Not Found
---------------------------
The procedure entry point _mclInitializeApplication could not be located in the dynamic link library mclmcr.dll. 
---------------------------
OK   
---------------------------

所有 dll 都存在于同一个文件夹中。如果不是，我会收到无法找到 dll 本身的错误。 这本身也很奇怪，因为我的系统上安装了 Matlab 编译运行时，并且它被正确添加到 windows 路径中。

谁能告诉我我做错了什么？ 提前致谢。

Answer 1

据我所知，该函数实际上是在mclbase.dll 中定义的。

解决链接后，我建议您更改导入函数的参数列表。将 Delphi 托管类型传递给非 Delphi 模块是有风险的。我会这样声明：

type
  PPAnsiChar = ^PAnsiChar;

function mclInitializeApplication(A: PPAnsiChar; B: Integer): Boolean; cdecl;
  external 'mclbase.dll';

Answer 2

原来我有几件事要解决：

1. 正确安装 MCR。
2. 传递 PPAnsiChar 而不是数组
3. 调用 mclmcrrt8_0.dll 中的“_proxy”函数，而不是其他 dll 文件中的普通函数。

现在方法声明如下：

function DLLInit(A: PPAnsiChar; B: integer): Boolean; cdecl;
  external 'mclmcrrt8_0.dll' name 'mclInitializeApplication_proxy';

在单元中我添加了以下代码（是的，我没有传递任何参数）：

initialization

if not DLLInit(@MyString, 0) then
  raise Exception.Create('Could not initialize Matlab library.');

我还确保这个单元是第一个加载到项目中的单元，因为 mclInitializeApplication 需要在所有其他 matlab 调用之前调用一次。