Datasnap RESTful JSON 结果关于？答案

【问题标题】：Datasnap RESTful JSON Result About?Datasnap RESTful JSON 结果关于？
【发布时间】：2012-09-20 08:06:50
【问题描述】：

我有一个 TDataset JSON 辅助函数。

我想返回以下结果：

{"result":[{"rid":"2","firstname":"veli","lastname":"deli"},{"rid":"1","firstname":"ismail","lastname":"kocacan"}]}

但是。不起作用。返回以下内容：

{"result":[[{"rid":"2","firstname":"veli","lastname":"deli"},{"rid":"1","firstname":"ismail","lastname":"kocacan"}]]}

我想删除多余的 [ 字符...

如何提取这些数据并返回？

{"rid":"2","firstname":"veli","lastname":"deli"},{"rid":"1","firstname":"ismail","lastname":"kocacan"}

我的 TDataset JSON Helper 函数：

 TDatasetJSONHelper = class helper for TDataset
  public
    function ToJSONData: TJSONArray;
    function ToJSONDataWrapper: TJSONValue;
  end;

function TDatasetJSONHelper.ToJSONData: TJSONArray;
var
  jso: TJSONObject;
  jsa: TJSONArray;
  jsp: TJsonPair;
  J: Integer;
  avalue: TJSONValue;
begin
  Self.Close;
  Self.Open;
  jsa := TJSONArray.Create();
  while not Self.Eof do
  begin
    jso := TJSONObject.Create();
    for J := 0 to FieldCount - 1 do
      jso.AddPair(TJsonPair.Create(Fields[J].DisplayName, Fields[J].Value));
    jsa.AddElement(jso);
    Self.Next;
  end;
  Self.Close;
  Result := jsa;
end;


function TDatasetJSONHelper.ToJSONDataWrapper: TJSONValue;
var
  aJSON: TJSONObject;
  apair: TJsonPair;
  avalue: TJSONValue;
begin
  aJSON := TJSONObject.ParseJSONValue
    (TEncoding.ASCII.GetBytes
    ('{"result":[[{"rid":"2","firstname":"veli","lastname":"deli"},{"rid":"1","firstname":"ismail","lastname":"kocacan"}]]}'),
    0) as TJSONObject;

  apair := aJSON.Get(0);
  avalue := apair.JsonValue;

  // ??? avalue := '{"rid":"2","firstname":"veli","lastname":"deli"},{"rid":"1","firstname":"ismail","lastname":"kocacan"}';
  Result := avalue;
end;






function TServerMethods1.GetPersonList: TJSONArray;
begin
  Result := dm.AdoQuery1.ToJSONData;
end;

function TServerMethods1.GetPersonList2: TJSONValue;
begin
  Result := dm.AdoQuery1.ToJSONDataWrapper;
end;

我该如何解决这个问题？

【问题讨论】：

我想使用以下：localhost:8080/datasnap/rest/TServerMethods1/GetPersonList

标签： json rest datasnap

【解决方案1】：

GetInvocationMetadata().ResponseCode := 200;

GetInvocationMetadata().ResponseContent := '{"rid":"2","firstname":"veli","lastname":"deli"},{"rid":"1","firstname": "ismail","lastname":"kocacan"}';

【讨论】：

是的！不错的解决方案:)

【解决方案2】：

仅供参考，我们在开源存储库中添加了更完整、更快速的功能。

它是我们 mORMot 框架的一部分，但可以用作独立单元，不与其他功能绑定。

见SynVirtualDataSet.pas：

function DataSetToJSON(Data: TDataSet): RawUTF8

参见this commit 和associated forum thread。

【讨论】：