Delphi XE4 在调用 DLL 函数时发生灾难性故障

Question

我在以下情况下收到“灾难性故障”错误。

type
TGetDoubleValue = function (var ID: Integer): Double; safecall;
....
....
var
GetDoubleValue: TGetDoubleValue;
.....
.....
LibHandle := LoadLibrary('GetDoubleValue.dll');
@GetDoubleValue := GetProcAddress(LibHandle, 'getDoubleValue');
if not (@GetDoubleValue = nil) then
begin
  myDouble := GetDoubleValue(ID);
end
else
  RaiseLastOSError;

调用此函数时，“myDouble := GetDoubleValue(ID);”行出现错误。

Answer 1

几乎可以肯定，此错误是由于调用约定或参数列表不匹配造成的。

您从 DLL 导入的函数不太可能真的是 safecall。该调用约定与 COM 方法一起使用以执行 HRESULT 参数列表重写。更合理的是调用约定是stdcall，但您必须检查。您还应该仔细检查参数和返回类型是否完全匹配。

如果您无法自己解决，请在问题中添加 DLL 源代码（或文档）中的函数声明。

我也不喜欢将@ 与函数指针一起使用。它往往会导致编译器可能发现的错误。我会这样写你的代码：

LibHandle := LoadLibrary('GetDoubleValue.dll');
Win32Check(LibHandle<>0);
GetDoubleValue := GetProcAddress(LibHandle, 'getDoubleValue');
Win32Check(Assigned(GetDoubleValue));
myDouble := GetDoubleValue(ID);

FWIW，我是 Win32Check 的忠实粉丝，因为它从高级代码中删除了分支，使其更易于阅读。