DataSnap Server-发送自定义HTTP响应标头

Question

我已经使用$(document).ready(function(){ $('#city').on('change',function() { var cityId = $(this).val(); window.location.href = $('#country').val() + "/" + $('#state').val() + "/" + $(this).val(); }); }); ，TDSServer等构建了一个独立的（Delphi EXE）DataSnap服务器。我希望能够在服务器方法的响应中发送自定义HTTP标头。我看到可以使用TDSServerClass自定义响应状态代码，消息，内容和GetInvocationMetadata()标头，但是看不到添加我自己的响应标头的任何方式。这可能吗？

Answer 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;