delphi - 当 datasnap 服务器中的用户授权失败时，是否可以更改响应代码？

Question

当用户授权失败时，是否可以更改我的 DataSnap (Delphi XE3) 服务器中的 HTTP 响应代码？目前它返回 HTTP/1.1 500 内部服务器错误，这可能发生在许多其他场景中，并且无助于描述问题。

按照同样的思路，是否可以更改默认的响应正文？目前，它返回 {"error":"USER 无权执行请求的操作。"}，这很好，但如果可能的话，我想返回一个自定义 JSON 对象。

感谢您的宝贵时间!

Answer 1

我最终在 TDSAuthenticationManager.OnUserAuthorize 中执行了如下所示的代码

  if valid = false then
  begin
    GetInvocationMetadata.ResponseCode := 403;
    GetInvocationMetadata.ResponseMessage := JSONResponseObject.ToString;
    GetInvocationMetadata.ResponseContent := JSONResponseOjbect.ToString;
  end