delphi - 从delphi应用程序调用.net4.0 com服务器后出现错误异常

Question

我们正在将代码库从 BDS2006 迁移到 Rad Studio XE，我们发现了一些非常奇怪的行为:如果我们在从 .Net4.0 实现的 COM 服务器创建一些对象后进行无效的浮点运算(即除以零) ，我们没有得到正常的异常(即 EDivisionByZero)，而是 EStackOverflow。

我们设法准备了非常简单的示例:ComErrorExample

有一个.net 4.0程序集，带有com接口(interface)(一个函数返回字符串)和简单的delphi应用程序:

var
  a, b: Double;
  Stored8087CW: Word;

begin
  CoInitialize(nil);

  try
    b := 0;
    a := 1 / b;
  except
    on E: Exception do
      Writeln(E.ClassName, ': ', E.Message, ' (Expected type of exception)');
  end;

  Stored8087CW := Get8087CW;
  Writeln('Code from .NET COM: ', CoExampleOfCOM.Create.DoSomething);
  Set8087CW(Stored8087CW); //it's only to show that 8087 control word doesn't change

  try
    b := 0;
    a := 1 / b;
  except
    on E: Exception do
      Writeln(E.ClassName, ': ', E.Message, ' (Unexpected type of exception! Why stack overflow?)');
  end;

  Readln;

  CoUninitialize;

end.

如您所见，我们进行了两次除以零的操作 - 第一个在 com 对象创建之前抛出 EDivisionByZero，第二个抛出 EStackOverflow。

我们在 win7 x64 和 winXP x32 上对此进行了测试 - 没有区别。但是当我们将 com 服务器从 .net4.0 切换到 .net3.5 时 - 一切正常。

问题:我们做错了什么吗？我们能做些什么来解决这个问题吗？

切换到.net3.5，或者放弃 Delphi 对我们来说不是一个选择。

更新:我们之前检查过浮点配置(Set8087CW())，但没有任何运气。UPDATE2:我通过恢复浮点配置扩展了示例。

Answer 1

看起来 COM DLL 中的某些内容正在更改浮点处理器配置。请参阅 Delphi 帮助中的 Default8087CW 和 Set8087CW。

您可以在使用 COM DLL 执行任何操作之前保存它并在之后恢复它。

var
  Saved8087CW: Word;
begin
  Saved8087CW := Default8087CW;
  // If you want, disable all fpu exceptions 
  // with the next line.
  Set8087CW($133F);
  DoYourComOperationHere;
  Set8087CW(Saved8087CW);
end;