DataSnap ein TFDJSONDataSets als TJSONObject übertragen

[Kostas]

Ich habe etwas feststellen können.
Wenn ich die Query per SaveToFile als Jason exportiere, bekomme ich ein sauberes JASON.
Der TFDJSONDataSetsWriter erzeugt ein binäres Format.

könnte hier das Problem sein?

Delphi-Quellcode:

function TdmDALZMI.GetBau(BauNr:integer): TFDJSONDataSets;
begin
  qrGetBau.Active := False;
  qrGetBau.Params[0].Value := BauNr;
  qrGetBau.Active := True;
  qrGetBau.SaveToFile('f:\JSONBau.txt',TFDStorageFormat.sfJSON);   <<< String Klartext

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


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

    s:=TStringList.Create;
    s.Text := result.ToString;
    s.SaveToFile('f:\JSON.txt');  <<<<< Binärer Inhalt
    s.Free;


  finally
    LDataSets.Free;
  end;
end;

Gruß Kostas

[Uwe Raabe]

Zitat von Kostas:

Wenn ich die Query per SaveToFile als Jason exportiere, bekomme ich ein sauberes JASON.
Der TFDJSONDataSetsWriter erzeugt ein binäres Format.

Das ist richtig, aber es erklärt jetzt nicht so offensichtlich die Fehlermeldung.

Allerdings kannst du über SaveToStream die Query in einen TStringStream schreiben, den String übertragen und dann ebenfalls über TStringStream und LoadFromStream das DataSet wieder aufbauen. Ist nur ein Workaround - falls es eilig ist.

[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

[Uwe Raabe]

Zitat von Kostas:

ich hatte gehofft dass du als Experte mein Thread liest.

Zitat von Kostas:

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);

Ja, das ist normal!

TFDJSONInterceptor.DataSetsToJSONObject läuft über DataSetToJSONValue und DataSetToString , was intern TFDStorageFormat.sfBinary verwendet. Insofern hast du damit also keine reelle Chance auf ein lesbares JSON.

Der gravierendste Nachteil ist dabei, daß sich das Binärformat mit jedem Delphi- bzw. FireDAC-Update ändern kann und damit die DataSets nicht mehr austauschbar sind. Bei JSON hat man wenigstens noch einen brauchbaren Ansatzpunkt.

Aber vielleicht helfen dir diese beiden Methoden weiter:

Delphi-Quellcode:

function DataSetToJSON(Source: TFDDataSet): string;
var
  stream: TStringStream;
begin
  stream := TStringStream.Create;
  try
    Source.SaveToStream(stream, TFDStorageFormat.sfJSON);
    result := stream.ToString;
  finally
    stream.Free;
  end;
end;

procedure JSONToDataSet(const Source: string; Target: TFDDataSet);
var
  stream: TStringStream;
begin
  stream := TStringStream.Create(Source);
  try
    Target.LoadFromStream(stream, TFDStorageFormat.sfJSON);
  finally
    stream.Free;
  end;
end;

Wegen der ursprünglichen Fehlermeldung muss ich nochmal forschen, wenn ich etwas Zeit habe.

[Kostas]

Ein herzliches Dankeschön Uwe,

werde ich gleich mal umsetzen.
Sicherlich ist es nur eine Kleinigkeit das ursprüngliche Problem, ich übersehe sicherlich etwas.

Danke nochmals,
Gruß Kostas

[Kostas]

Hallo zusammen,

so funktioniert es jetzt einwandfrei. Dankeschön Uwe.

Delphi-Quellcode:

-------------------------------SERVER---------------------
function TdmDALZMI.GetBauJSONStr(BauNr:integer): String;
var
   stream: TStringStream;
begin
   stream := TStringStream.Create;
   try
     qrGetBau.Active := False;
     qrGetBau.Params[0].Value := BauNr;
     qrGetBau.Active := True;

     qrGetBau.SaveToStream(stream, TFDStorageFormat.sfJSON);
     stream.Seek(0, soFromBeginning);
     qrGetBau.Active := False;
     result := stream.DataString;
   finally
     stream.Free;
   end;
end;

-------------------------------CLIENT---------------------

procedure TdmZMI.GetBauJSONStr(BauNr:integer);
var
  LDataSetList: TFDJSONDataSets;
  LJSONStr: String;
  LZMIClient: TdmServerMethodsZMIClient;

begin
  LZMIClient := TdmServerMethodsZMIClient.Create(CMClientModule.CMCSQLConnection.DBXConnection);
  try
    LJSONStr := LZMIClient.ZMI_GetBauJSONStr(BauNr);

    JSONToDataSet(LJSONStr, mtBau);
  finally
    LZMIClient.Free;
  end;


  mtBau.Open;
end;

procedure TdmZMI.JSONToDataSet(const Source: string; Target: TFDDataSet);
var
   stream: TStringStream;
begin
   stream := TStringStream.Create(Source);
   try
     Target.LoadFromStream(stream, TFDStorageFormat.sfJSON);
   finally
     stream.Free;
   end;
end;

Gruß Kostas

[Kostas]

Noch eine Kleinigkeit,

der Server liefert das Result als String. Ist es hier sinnvoll ein TStream auszugeben
da das Select schon durchaus eine größere Datenmenge liefern könnte?

Gruß Kostas