实际异常后的应用程序定义异常（代码 0x0eedfade）

Question

早在我加入公司之前，我就有一段用 Delphi 编写的遗留代码，而我的 IDE 的行为让我对自己的技能产生了很多怀疑。

在加载 DLL 并从 DLL 分配函数 OpenDB、GetError 和 GetErrorStr 后，将调用此代码：

If @OpenDB <> nil then
begin
  DB_num := OpenDB((PAnsiChar(file)));
  if DB_num = -1 then
  begin
    err := GetError;
    ErrorString := GetErrorString(err);
    raise Exception.Create(ErrorString);
    Exit;
  end
end else
  Exit;

OpenDB 返回 -1 并且 GetErrorString 返回错误消息并引发异常。没什么大不了的，存在错误的数据库并且总是会发生错误。让我明白的是，在引发异常后，“......应用程序定义的异常（代码 0x0eedfade）在......”弹出。之后我会遇到访问冲突。

Answer 1

错误消息意味着您将跨模块边界的 Delphi 异常引发到一段不知道如何处理 Delphi 异常的代码中。 0x0EEDFADE 是 Delphi raise 语句传递给 Win32 RaiseException() 函数的 dwExceptionCode 参数的值。只有 Delphi 和 C++Builder RTL 知道如何处理这些异常。您绝不能跨模块边界引发异常，因为一个模块不知道另一个模块是否可以处理它。不同的模块可以用不同的语言/框架编写。