Delphi XE7 Datasnap with pure JSON

Question

I have this:

function TWS.listJSON(const id: integer): TJSONObject;
var LDataSets: TFDJSONDataSets;
begin
    LDataSets := the_list(id); //the_list:TFDJSONDataSets
    try
       Result := TJSONObject.Create;
       TFDJSONInterceptor.DataSetsToJSONObject(LDataSets, Result);
    finally
       LDataSets.Free;
   end;
end;

All fine, "the_list()" will get all the needed data from my select and finally I will have the result. Some Java clients will connect accessing something like: http://localhost:8080/datasnap/rest/Tws/listJSON/123

To make a try, I installed a Chrome Extension called Advanced Rest Client, and I get such result:

{"list":"QURCUw4AAADGAQAA\/wABAAH\/Av8DBAAO...."} 

after make some changes in TWebModule1.DSHTTPWebDispatcher1FormatResult();

It seems to be a compressed JSON data and as far as I know, Java can handle that, but I am not sure and I would prefer a uncompressed and pure JSON output. I know that using mORMOt can do the trick but I would like to give a try, as to use mORMOt we should learn a lot.

Is it possible to do that, output pure JSON, by using RAD Datasnap server? Maybe everything is absolutely correct and I am just don't know...

Answer 1

I don't think it will work , I assume you need Delphi units to use FireDacJsonreflect.

You could make the Json output yourself , see this small example I use comany from example DB only 3 field in a clientdataset , you will probobly make it a little bit more complicated, and also another structur I guess

Just an idea..

function TServerMethods1.JsonDB: TJSONObject;  // Hold the array
var
i      : Integer;
JsonArray: TJSONArray;
record_number : Integer;

begin
 result:=TJSONObject.Create;

 // Field names
 JsonArray:=TJSONArray.Create;
 ClientDataSet1.First;
 for i := 0 to ClientDataSet1.Fields.Count-1 do
 Begin
  JsonArray.AddElement(TJSONObject.Create(TJSONPair.Create('Field'+I.ToString    ,ClientDataSet1.Fields[i].FieldName)));
 End;
  Result.AddPair('Fields',JsonArray);

//Data
 record_number:=0;
 while not ClientDataSet1.Eof  do
 Begin
   inc(record_number);
   JsonArray:=TJSONArray.Create;
   for i := 0 to ClientDataSet1.Fields.Count-1 do
   Begin
     JsonArray.AddElement(TJSONObject.Create(TJSONPair.Create(I.ToString,ClientD    ataSet1.Fields[i].Asstring)));
   End;
   Result.AddPair('record-'+record_number.ToString,JsonArray);
   ClientDataSet1.Next;
 End;

end;

This should give a result like

{"result":[{"Fields":[{"Field0":"CustNo"},{"Field1":"Company"},{"Field2":"Country"}],"record-1":[{"0":"1221"},{"1":"Kauai Dive Shoppe"},{"2":"US"}],"record-2":[{"0":"1231"},{"1":"Unisco"},{"2":"Bahamas"}],"record-3":[{"0":"1351"},{"1":"Sight Diver"},{"2":"Cyprus"}],"record-4":[{"0":"1354"},{"1":"Cayman Divers World Unlimited"},{"2":"British West Indies"}],"record-5":[{"0":"1356"},{"1":"Tom Sawyer Diving Centre"},{"2":"US Virgin Islands"}],"record-6":[{"0":"1380"},{"1":"Blue Jack Aqua Center"},{"2":"US"}],"record-7":[{"0":"1384"},{"1":"VIP Divers Club"},{"2":"US Virgin Islands"}],"record-8":[{"0":"1510"},{"1":"Ocean Paradise"},{"2":"US"}],"record-9":[{"0":"1513"},{"1":"Fantastique Aquatica"},{"2":"Columbia"}],"record-10":[{"0":"1551"},{"1":"Marmot Divers Club"},{"2":"Canada"}],"record-11":[{"0":"1560"},{"1":"The Depth Charge"},{"2":"US"}],"record-12":[{"0":"1563"},{"1":"Blue Sports"},{"2":"US"}],"record-13":[{"0":"1624"},{"1":"Makai SCUBA Club"},{"2":"US"}],"record-14":[{"0":"1645"},{"1":"Action Club"},{"2":"US"}],"record-15":[{"0":"1651"},{"1":"Jamaica SCUBA Centre"},{"2":"West Indies"}],"record-16":[{"0":"1680"},{"1":"Island Finders"},{"2":"US"}],"record-17":[{"0":"1984"},{"1":"Adventure Undersea"}