DataSnap ein TFDJSONDataSets als TJSONObject übertragen

[Kostas]

Hallo Uwe,

ich hatte gehofft dass du als Experte mein Thread liest.

Ok, mein Vorgehen scheint also richtig zu sein.
Auf mein DataModul hatte ich ein FDStanStorageJSONLink1 und eine FDStanStorageBinLink1 die Bin Version habe ich entfernt, doch leider kein Unterschied.

Müsste das hier nicht wieder ein normales lesbares JASON erzeugen,
oder ist es normal dass das JASON immer noch Binär ist?
TFDJSONInterceptor.DataSetsToJSONObject(LDataSets, Result);

Delphi-Quellcode:

function TdmDALZMI.GetBauJSON(BauNr:integer): TJSONObject;
var
  LDataSets: TFDJSONDataSets;
  s:TStringList;
begin
  LDataSets := GetBau(GauNr);
  try
    Result := TJSONObject.Create;
    TFDJSONInterceptor.DataSetsToJSONObject(LDataSets, Result);

    s:=TStringList.Create;
    s.Text := result.ToString;
    s.SaveToFile('f:\JSON.txt');
    s.Free;


  finally
    LDataSets.Free;
  end;
end;

Gruß Kostas