Question

我最近遇到的一个问题是：

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

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

现在，如果我使用以下参数＆＃39; 5,0＆＃39;然后它抛出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用法的一些旁白：

当没有任何参数包含文本时，无需指定CharSet。
SetLastError = true不正确，应予以删除。该功能不会调用SetLastError。因此，对Marshal.GetLastWin32Error()的调用是错误的，应该删除。

从C＃中的Delphi DLL抛出异常

1 个答案: