如何让我的Delphi XE5 DataSnap REST服务器返回XML而不是JSON？

Question

我有一个正在运行的Delphi XE5 DataSnap服务器，但默认情况下它总是返回JSON。

如何让服务器返回XML格式的结果而不是JSON？

我查看了TDSServer，TDSHTTPWebDispatcher和TDSServerClass组件，但是我找不到允许我选择是否应该使用JSON或XML的属性。

Answer 1

如果要返回XML，请直接填写responsecontent：

uses DBXPlatform;

function TServerMethods1.EchoString(Value: string): string;
var
  metaData: TDSInvocationMetadata;
  i: integer;
begin
  metaData := GetInvocationMetadata;
  for i := 0 to Pred(metaData.QueryParams.Count) do
  begin
    Result := Result + '<param>' + metaData.QueryParams[i] + '</param>';
  end;
  metaData.ResponseContent := '<xml>' + Result + '</xml>';
end;