json - 如何更改 REST DataSnap 中的内容类型响应

Question

我有一个由 WebBroker REST 制作的项目，作为服务运行，我需要更改 Cotent-Type回复application/json默认情况下WebBroker REST结果给我带来了

Content-Type 'text/html; charset=ISO-8859-1'

我通过访问方法更改响应

GetInvocationMetadata(True).ResponseContentType = 'application/json'

Data.DBXPlatform的

类，但它仍然没有解析它，它添加了另一个 Content-Type就在当前的下方。

这只发生在 WebBroker REST ，如果我通过 DataSnap Server 创建一个项目，我通常会得到它。但我需要WebBroker REST访问客户发送给我的信息。

如何使问题发生的示例。

• 从 DataSnap REST Application 创建项目

在 ServerMethods 类中，执行相同的模型。

uses System.StrUtils, Data.DBXPlatform;

function TServerMethods1.EchoString(Value: string): string;
begin
  Result := Value;
  GetInvocationMetadata.ResponseContentType := 'application/json';
end;

示例响应 header 。

连接:关闭
内容类型:text/html；字符集=ISO-8859-1
内容长度:25
日期:2013 年 9 月 10 日星期二 16:41:37 GMT
编译指示:dssession=542354.126073.592372,dssessionexpires=1200000
内容类型:application/json

Answer 1

在新建 DataSnap WebBroker 应用程序向导中，您可以选择创建单独的服务器模块。在生成的单元 WebModuleUnit1.pas 中，有一个变量 WebModuleClass，它是 TWebModule 的后代。此 WebModuleClass 对象有一个类型为 TWebResponse 的公共(public)属性 Response，它使您能够设置 ContentType。

http://docwiki.embarcadero.com/Libraries/Berlin/en/Web.HTTPApp.TWebResponse.ContentType