TJSONObject *OBJ = new TJSONObject();
    OBJ->AddPair("AA", "2");
    OBJ->AddPair("BB", "0000023561");
    OBJ->AddPair("CC", "2353");
     
    TJSONArray *arr;
    arr = new TJSONArray();

    TJSONObject *jv = new TJSONObject();
    jv->AddPair("PIC_ID", "1");
    jv->AddPair("data", ("1"));
    arr->AddElement(jv);

    jv = new TJSONObject();
    jv->AddPair("PIC_ID", "2");
    jv->AddPair("data", ("22222"));
    arr->AddElement(jv);

    jv = new TJSONObject();
    jv->AddPair("PIC_ID", "3");
    jv->AddPair("data", ("3333"));
    arr->AddElement(jv);


    OBJ->AddPair("PIC_DATA", arr);

var
  ja: TJSONArray;
begin
 ja := TJSONArray.Create;
 ja.AddElement(TJSONString.Create('abc'));
 ja.AddElement(TJSONNumber.Create(123));
 ja.AddElement(TJSONBool.Create(true));

Memo1.Text:= ja.ToString;

var
jo:TJSONObject;
begin
jo := TJSONObject.Create;
jo.AddPair('name',TJSONString.Create('james'));
jo.AddPair('age',TJSONNumber.Create(38));
jo.AddPair('marry',TJSONBool.Create(true));

self.Memo1.Text:=jo.ToString;

var
  ja: TJSONArray;
  jo: TJSONObject;
begin
  ja := TJSONArray.Create;
  ja.AddElement(TJSONString.Create('abc'));
  ja.AddElement(TJSONNumber.Create(123));
  ja.AddElement(TJSONBool.Create(true));

  jo := TJSONObject.Create;
  jo.AddPair('book', TJSONString.Create('james'));
  jo.AddPair('bank', TJSONNumber.Create(38));
  jo.AddPair('phone', TJSONBool.Create(true));

  ja.AddElement(jo);

  //ja.Add(jo);

class function TNoteJSON.JSONToNotes(const AJSON: TJSONArray): TArray<TNote>;
var
  LValue: TJSONValue;
  LList: TList<TNote>;
begin
  LList := TList<TNote>.Create;
  try
    for LValue in AJSON do
      LList.Add(TNoteJSON.JSONToNote(LValue));
    Result := LList.ToArray;
  finally
    LList.Free;
  end;
end;

function TServerMethods1.GetDepartmentNames: TFDJSONDataSets;
begin
  // Clear active so that query will reexecute
  FDQueryDepartmentNames.Active := False;

  Result := TFDJSONDataSets.Create;
  TFDJSONDataSetsWriter.ListAdd(Result, FDQueryDepartmentNames);
end;

function TServerMethods1.GetDepartmentNamesJSON: TJSONObject;
var
  LDataSets: TFDJSONDataSets;
begin
  LDataSets := GetDepartmentNames;
  try
    Result := TJSONObject.Create;
    TFDJSONInterceptor.DataSetsToJSONObject(LDataSets, Result);
  finally
    LDataSets.Free;
  end;
end;

function TServerMethods1.GetDepartmentNames: TFDJSONDataSets;
begin
  // Clear active so that query will reexecute
  FDQueryDepartmentNames.Active := False;

  Result := TFDJSONDataSets.Create;
  TFDJSONDataSetsWriter.ListAdd(Result, FDQueryDepartmentNames);
end;

procedure TDepartmentsClientForm.UpdateDepartmentNames(const ADataSetList: TFDJSONDataSets);
begin
  // Update UI
  FDMemTableDepartments.Active  := False;
  Assert(TFDJSONDataSetsReader.GetListCount(ADataSetList) = 1);
  FDMemTableDepartments.AppendData(
    TFDJSONDataSetsReader.GetListValue(ADataSetList, 0));
end;

procedure TForm3.Button3Click(Sender: TObject);
var
  sstr: TStringStream;
begin
  sstr := TStringStream.Create('',TEncoding.UTF8);
  try
    FDBatchMoveJSONWriter1.Stream := sstr;
    FDBatchMove1.Execute;
    Memo1.Lines.Text :=sstr.DataString;
  finally
    sstr.Free;
  end;
end;

  userList: TArray<TUser>;
  user: TUser;
begin
  userList := XSuperObject.TJSON.Parse < TArray < TUser >> (Memo1.Text);

procedure TForm5.Button1Click(Sender: TObject);
var
  sstr: TStringStream;
begin
  sstr := TStringStream.Create;
  try
    EmployeeTable.Active := True;
    FDBatchMoveJSONWriter1.Stream := sstr;
    FDBatchMove1.Execute;
    ShowMessage(sstr.DataString);
  finally
    sstr.Free;
  end;
end;

procedure TEmployeeResource1.Get(const AContext: TEndpointContext; const ARequest: TEndpointRequest; const AResponse: TEndpointResponse);
var
  mStream: TMemoryStream;
begin
  mStream := TMemoryStream.Create;
  AResponse.Body.SetStream(mStream, 'application/json', True);
  FDBatchMoveJSONWriter1.Stream := mStream;
  FDBatchMove1.Execute;
end;

procedure TEmployeeResource1.Get(const AContext: TEndpointContext; const ARequest: TEndpointRequest; const AResponse: TEndpointResponse);
begin
  FDBatchMoveJSONWriter1.JsonWriter := AResponse.Body.JsonWriter;
  FDBatchMove1.Execute;
end;

procedure TGroupsResource1.Get(const AContext: TEndpointContext;
  const ARequest: TEndpointRequest; const AResponse: TEndpointResponse);
var
  ms: TMemoryStream;
begin
  ms := TMemoryStream.Create;
  EmployeeTable.Close;
  try
    EmployeeTable.Open;
    EmployeeTable.SaveToStream(ms, TFDStorageFormat.sfJSON);
    AResponse.Body.SetStream(ms, 'application/json', True);
  finally
    ms.Free;
  end;
end;

{*******************************************************}
{                                                       }
{       DataSet2JSON                                    }
{                                                       }
{       Copyright (C) 2018 KT                         }
{                                                       }
{*******************************************************}

unit ktDS2JSON;

interface

uses Data.DB, System.Classes, FireDAC.Comp.BatchMove, FireDAC.Comp.Client, FireDAC.Comp.BatchMove.DataSet, FireDAC.Comp.BatchMove.JSON,
  System.SysUtils, FireDAC.Comp.DataSet;

function ds2JSON(ads: TDataSet): string;

implementation

function ds2JSON(ads: TDataSet): string;
var
  ssm: TStringStream;
  table: TFDMemTable;
  FDBatchMove: TFDBatchMove;
  FDBatchMoveDataSetReader: TFDBatchMoveDataSetReader;
  FDBatchMoveJSONWriter: TFDBatchMoveJSONWriter;

begin
  ssm := TStringStream.Create('', TEncoding.UTF8);
  table := TFDMemTable.Create(nil);
  FDBatchMove := TFDBatchMove.Create(nil);

  table.CopyDataSet(ads, [coRestart, coAppend, coStructure]);

  FDBatchMoveDataSetReader := TFDBatchMoveDataSetReader.Create(nil);
  FDBatchMoveDataSetReader.DataSet := ads;
  FDBatchMoveJSONWriter := TFDBatchMoveJSONWriter.Create(nil);
  FDBatchMoveJSONWriter.Stream := ssm;
  FDBatchMove.Reader := FDBatchMoveDataSetReader;
  FDBatchMove.Writer := FDBatchMoveJSONWriter;
  FDBatchMove.Execute;

  Result := ssm.DataString;

  ssm.Free;
  table.Free;
  FDBatchMove.Free;
  FDBatchMoveDataSetReader.Free;
  FDBatchMoveJSONWriter.Free;

end;

end.

  if( (jo.GetValue('data').Null )  ) then
  begin
    self.errmsg := '没有数据';
    MsgWarning(errmsg);
    exit;
  end;