在 C# 中捕获从 Delphi DLL 抛出的异常

Question

我最近遇到的一个问题如下。

我有一个用 Delphi 编写的 .DLL 这个 DLL 有一个 Divide 函数（它接受两个整数作为参数） 并按应有的方式返回其值。

function Divide( aFirstValue, aSecondValue : Integer ) : Double; stdcall;
begin
  result := aFirstValue / aSecondValue;
end;

现在如果我使用以下参数 '5, 0' 那么它会抛出 DivideByZeroException（这是正确的 :)）

但是当我从 C# 调用相同的 .DLL 时，它根本不会捕获任何异常。

[DllImport("DelphiDLL.DLL", EntryPoint = "Divide", SetLastError = true, CharSet = CharSet.Auto, ExactSpelling = true,
CallingConvention = CallingConvention.StdCall)]
public static extern float Divide(Int32 a, Int32 b);

private void Button_Click_2(object sender, System.EventArgs e)
{
    try
    {
       TB.Text += "Divide(a,b) = ";
       float temp;
       temp = Divide(Convert.ToInt32(aTB.Text), Convert.ToInt32(bTB.Text));

       Console.WriteLine(Marshal.GetLastWin32Error());

       TB.Text += Convert.ToString(temp) + "\r\n";
    }
    catch (DivideByZeroException eMsg)
    {

    }
}

Answer 1

您不能希望在 DLL 之外捕获该异常。这种形式的二进制互操作的规则之一是不能跨模块边界抛出异常。

解决方案是修复 DLL。在 DLL 中捕获异常并返回错误代码以指示失败。实际上，您应该保护所有入口点不引发异常。不要只捕获零除异常，将它们全部捕获并将其转换为错误代码返回值。

function CalcQuotient(a, b: Integer; out quotient: Double): Integer; stdcall;
begin
  try
    quotient := a / b;
    Result := 0;// you'd use a constant with a sensible name rather than a magic value
  except
    on E: Exception do begin
      Result := GetErrorCode(E);
      // where GetErrorCode is your function that converts exceptions into error codes
    end;
  end;
end;

关于您的 p/invoke 用法的一些旁白：

1. 当所有参数都不包含文本时，无需指定CharSet。
2. SetLastError = true 不正确，应删除。该函数不调用SetLastError。因此，对Marshal.GetLastWin32Error() 的调用是错误的，应该被删除。