DataSnap ein TFDJSONDataSets als TJSONObject übertragen

[Mavarik]

Zitat von Kostas:

FireDac Query als TJSONObject an den Client über TCP(nicht HTTP) zu übertragen und dort
auf einfache weise ebenfalls mit FireDac zu konsumieren?

Warum willst Du aus dem Query erst ein JSONObject machen?

Wir reden hier doch von "Select * from Datenbank where Name Like "Per%" order by Name Limit 100"
oder so?

Übertrag das doch einfach als String...

Oder übersehe ist gerade etwas?

Mavarik

[Der schöne Günther]

Er meint nicht den Query-String, sondern das aus der Query resultierende TDataSet.

[Mavarik]

Zitat von Der schöne Günther:

Er meint nicht den Query-String, sondern das aus der Query resultierende TDataSet.

Ahh ok... Hatte ich dann doch etwas übersehen...

[Kostas]

Hallo Mavarik,

ich möchte gerne jedes DataSet welches zum Client übertragen wird als TJSONObject
(String Klartext) separat zwischenspeichern. Der Hintergrund, es gibt Gruppen von Clients.
Wenn ein Teilnehmer einer Gruppe ein Paket anfordert, muss dieses Paket auch an alle
anderen Clients dieser Gruppe vorgehalten werden bis sie sich anmelden. Danach bekommen sie
die Pakete automatisch übertragen. TJSONObject ist schlank und lässt sich dadurch gut zwischenspeichern.

Sicherlich ist nur eine Kleinigkeit falsch, auf die ich nicht komme.
Wenn es jedoch eine bessere Möglichkeit gibt wie du schon sagtest einfach das Result eines Select
als TJSONObject zu exportieren, zwischenspeichern und zum Client zu transportieren, bin ich da sehr offen
dafür.

Gruß Kostas

[Mavarik]

Zitat von Kostas:

ich möchte gerne jedes DataSet welches zum Client übertragen wird als TJSONObject
(String Klartext) separat zwischenspeichern.

Ich komme - wahrscheinlich in 4 Wochen - auch zu dieser Stelle... Also durchaus interessant...

[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.