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