Delphi Datasnap REST Server中的异常处理

发布时间：2020-12-15 09:45:46 所属栏目：大数据来源：网络整理

导读：我正在努力处理我的Datasnap REST服务中的异常处理(Delphi XE3,但也尝试使用Delphi 10 Seattle).多年来我写了六个 Windows服务,我总是包含一个TApplicationEvents组件,以便我可以将任何应用程序异常记录到Windows事件日志中. 但是,Datasnap服务不会发生此行

我正在努力处理我的Datasnap REST服务中的异常处理(Delphi XE3,但也尝试使用Delphi 10 Seattle).多年来我写了六个 Windows服务,我总是包含一个TApplicationEvents组件,以便我可以将任何应用程序异常记录到Windows事件日志中.

但是,Datasnap服务不会发生此行为. TApplicationEvents.OnException事件永远不会被触发,所以我假设其他东西正在吃异常并在它到达之前处理它.

Web服务方法的结果中显示异常,这很好,因为这意味着我至少可以在客户端显示某些内容,但我还想在此之前捕获它,以便我可以处理不同的异常服务器-侧.

到目前为止我唯一一致的方法是将每个单独的方法包装在try..except块中,并在重新引发异常之前处理每个方法中的异常.但是,随着20种方法的Web服务不断增长,这种情况并没有真正扩大.

我也尝试过实现一些Datasnap组件的OnError,OnTrace和其他事件(TDSServer,TDSHTTPService,TDSTCPServerTransport等),但这些事件似乎也从未被解雇过.

有没有人遇到这样的事,拜托？

解决方法

Tl; Dr：它没有以可用的方式实现(在柏林10.1).

我遇到了同样的问题,在阅读了大量资料后,我发现没有实际的解决方案.

所以示例(我的)StackTrace看起来像这样：

MyClass::MyServerMethod()
/* skipping some funny unimportant RTTI/TValue handling here */
System::Rtti::TRttiMethod::Invoke
Dsreflect::TDSMethod::Invoke(TObject,TDSMethodValues)
TDSServerConnectionHandler::DbxExecute(const TDBXExecuteMessage)
TDSServerCommand::DerivedExecuteUpdate
TExecuteCallback
TDSService::Execute(const string,const TRequestCommandHandler,TExecuteCallback)
TDSService::ProcessRequest(const string,TExecuteCallback)
TDSRESTService::ProcessREST(const string,const string,const TArray<Byte>,const TRequestCommandHandler)
TDSRESTService::ProcessGETRequest(const string,TStrings,TArray<Byte>,TRequestCommandHandler)
TDSRESTServer::DoDSRESTCommand(TDSHTTPRequest,TDSHTTPResponse,string)
TDSRESTServer::DoCommand(TDSHTTPContext,TDSHTTPRequest,TDSHTTPResponse)
Dshttpwebbroker::TDSRESTWebDispatcher::DispatchRequest(TObject,Web::Httpapp::TWebRequest,Web::Httpapp::TWebResponse)

注意：这完全取决于您对DataSnap的使用.在上述情况下,请求通过TDSRESTWebDispatcher(来自TIdCustomHTTPServer)传递到DataSnap API.

> ServerMethod中引发的每个异常都将以TDSService :: ProcessRequest结束.
>在此过程中,捕获每个异常,并且仅将其消息添加到TRequestCommandHandler-> CommandList.
>此外,Message将作为JSON / DBX命令写入输出.

因此,我们永远不能处理异常对象并访问StackTrace或其他信息.所以这一点是不可接受的,必须改变

好消息是,这个程序是虚拟的,可以被覆盖.坏消息是,在上面的示例中,您必须使用自己的ProcessRequest过程(包括错误处理程序)扩展TDSRESTService,使用自己的DoDSRESTCommand扩展TDSRESTServer(在那里TDSRESTService是在一个极大的过程中创建的)和TDSRESTWebDispatcher(取决于您的用法).

我个人的建议是不要使用DataSnap.

注意：在编写本文时,我没有找到任何OnError事件的调用.

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!