delphi升级后调用外部dll

Question

我已将我的 Delphi 2007 应用程序升级到 Delphi 西雅图。 在 Delphi 2007 中，我有一个 Fortran DLL 是从我的 Z4C4A218DB8E569D1853ACCA 应用程序调用的。 升级后出现错误“未找到程序端点”。 请注意，Fortran DLL 没有变化，dll 与应用程序 exe 位于同一路径中

Delphi 的调用代码是

type
  TArrayOfTypeNos= array [1..1000] of Integer;
....
procedure CallFunc(
  Idx : Integer; 
  var Nos : Integer;
  var ProductTypes : TArrayOfTypeNos
); stdcall; external 'MyFortranDLL.dll' name '_ThisIsFuncNameinFortran';

有人可以给我一些想法，看看可能出了什么问题吗？

我得到的错误是：

过程入口点 _ThisIsFuncNameinFortran 无法位于动态链接库中

Answer 1

在Delphi 2007和Delphi 10 Seattle之间没有任何改变，以任何方式影响问题中显示的功能。

在Unicode之前的Delphi和Unicode的Delphi之间移动时出现的常见问题与字符和字符串类型的处理差异有关。 因此， Char以前是AnsiChar的别名，但现在是WideChar的别名。 同样对于PChar ， string等。但是这里不是这种情况。 在从Delphi 2开始的所有Delphi版本中，您使用的类型具有相同的含义。

错误消息是：

在动态链接库中找不到过程入口点_ThisIsFuncNameinFortran。

只有一种方法可以解释该错误消息。 已经找到了DLL，但实际上并没有导出具有该名称的函数。 检查实际加载的DLL是否确实是您要加载的DLL。 Dependency Walker或类似的工具可能会有所帮助。

Answer 2

如果DLL确实没有更改，则此代码在D2007开头应该就失败了。 它在2007年有效但在西雅图失败的事实可能意味着未加载相同的DLL。 您可以使用诸如Process Explorer或Process Monitor之类的工具来查看实际正在加载的DLL。 并使用Embarcadero的TDUMP实用工具查看DLL实际导出的功能。

Answer 3

我在使用 Microchip dll 的 Delphi 10.4 中遇到了同样的问题。 相同的代码和 dll 与 fpc 和 Lazarus 完美配合.....

函数的名称类似于 .h 文件中的 Mcp2221_OpenByIndex，但在 dll 中是 _Mcp2221_OpenByIndex 并带有前导下划线； function定义为：

function Mcp2221_OpenByIndex(VID: Word; PID: Word; index: Word)     : mcpHandle_; external MCP_DLL; name '_Mcp2221_OpenByIndex';

MCP_DLL 是一个包含名称的常量。 当我删除下划线时，找不到这个 function。 如果我在所有函数中添加下划线，我仍然会收到第二个 function 的错误。