不是的,这个灾难性异常只有在使用TLocalConnection时才出现,
今天仔细分析后发现,原来是Borland的某些人偷了个懒,
缺少了一个方法的覆盖实现
就是这个方法,加上这个方法之后,一切都正常了:
function SafeCallException(ExceptObject: TObject;
ExceptAddr: Pointer): HResult;
override;
function TLocalAppServer.SafeCallException(ExceptObject: TObject;
ExceptAddr: Pointer): HResult;
begin
Result := HandleSafeCallException(ExceptObject, ExceptAddr, AppServer, '', '');
end;
to tiansheng,: 可以用异常处理不显示这个错误,但就无法获得错误信息了,
程序出错了不好分析
[blue]在那里加这个方法啊~[/blue]