DataSnap 服务器 - 发送自定义 HTTP 响应标头答案

【问题标题】：DataSnap Server - Send custom HTTP response headersDataSnap 服务器 - 发送自定义 HTTP 响应标头
【发布时间】：2019-02-13 10:16:40
【问题描述】：

我已经使用TDSServer、TDSServerClass 等构建了一个独立的 (Delphi EXE) DataSnap 服务器。我希望能够在我的服务器方法的响应中发送自定义 HTTP 标头。我可以看到我可以使用GetInvocationMetadata() 自定义响应状态代码、消息、内容和Content-Type 标头，但看不到任何添加我自己的响应标头的方法。这可能吗？

【问题讨论】：

这有帮助吗？ stackoverflow.com/questions/38901343/…
很遗憾，它看起来不像我正在使用的 WebBroker 框架 - 我没有 TWebModule 或 TWebResponse。
如果您使用服务器向导来构建 Datasnap 服务器 (REST)，您将有更多机会调查可能性。

标签： rest delphi httpresponse datasnap

【解决方案1】：

例子：

function TControllerAplicacao.EchoString(Value: string): string;
var
 objWebModule: TWebModule; //need Web.HTTPApp
begin
  //the Solution
  objWebModule := GetDataSnapWebModule; //need Datasnap.DSHTTPWebBroker
  objWebModule.Response.SetCustomHeader('MY-CUSTOM-HEADER','ABCD12324');
  //do the test using postman, and see on HEADERS

 Result := Value; //from original datasnap example EchoString

end;

【讨论】：