Dataset austausch über JSON

[fisipjm]

Hi,

Ich habe das, hoffe ich mal, folgende verständnissproblem:

Eine Query (Ableitung von Dataset) hat die Funktion SaveAsStream mit Formatübergabe (in meinem Fall sfJSON).
Eine FDMemtable (Ableitung von Dataset) hat die Funktion LoadFromStream mit Formatübergabe (in meinem Fall sfJSON).

Wenn ich das so verwende, und in meiner Query Daten mit Umlauten drin sind funktioniert das LoadFromStream nicht mehr. Was mach ich falsch? Ich bin davon ausgegangen die Komponenten sind in der Lage den Formatierungsgedöns selbst zu machen. Leider kommt die Meldung das FDSTAN das JSON nicht lesen kann. Immer bei den Umlauten. Irgendwelche Tipps? ich find nix

[Uwe Raabe]

Das ist mir zu viel Spekulation. Hast du ein konkretes Beispiel?

[fisipjm]

Delphi-Quellcode:

procedure TForm5.Button1Click(Sender: TObject);
var
  lStringStream: TstringStream;
begin
  lstringStream := tstringstream.create;
  try
    FDMemTable1.SaveToStream(lStringStream,sfJSON);
    FDMemTable2.LoadFromStream(lStringStream,sfJSON);
  finally
    lStringStream.free;
  end;

end;

Beispielprojekt im Anhang, hab beim erstellen bemerkt, dass es scheinbar nicht an denUmlauten liegt, die Frage bleibt im Grundsatz aber die gleiche. Warum tut es nicht?

[tamasker]

Hängt vermutlich mit der Positionierung im Stream zusammen.

Versuche doch mal die Position zurückzusetzen:

Delphi-Quellcode:

FDMemTable1.SaveToStream(lStringStream,sfJSON);
[B]lstringStream.Position := 0;[/B]
FDMemTable2.LoadFromStream(lStringStream,sfJSON);

[Uwe Raabe]

Der Hinweis mit der Position ist richtig. Das trifft aber auf dein eigentliches Problem nicht zu. Aus deiner Frage bei StackOverflow sind ja zwei Code-Snippets zu entnehmen

Delphi-Quellcode:

var lStream: TStringStream := TStringStream.create;

    FDQuery.SaveToStream(lStream,sfJSON);
    AResponse.Body.SetStream(lStream,'application/json' ,True);

Delphi-Quellcode:

lstrstream: TStringStream := TStringStream.create(EMSBackendEndpoint.Response.Content);
 aMemtable.LoadFromStream(lstrstream, sfJSON);

Der zu ladende Stream sollte also schon am Anfang stehen.

Somit geht das Testprojekt leider am eigentlichen Problem vorbei.

Kannst du denn den String-Inhalt nach SaveToStream mal zeigen?

[fisipjm]

Zitat von Uwe Raabe:

Der Hinweis mit der Position ist richtig. Das trifft aber auf dein eigentliches Problem nicht zu. Aus deiner Frage bei StackOverflow sind ja zwei Code-Snippets zu entnehmen

Hallo Uwe, Messerscharf kombiniert

Zitat von Uwe Raabe:

Kannst du denn den String-Inhalt nach SaveToStream mal zeigen?

Das ist der Inhalt von einem Datensatz der definitiv Probleme macht, noch auf der Serverseite direkt nach dem SaveStream über folgenden Aufruf in eine JSon Datei gedumpt.

 tfile.WriteAllText(tpath.GetTempPath+'OutputNachSaveStream.json',Result.DataString)

Code:

..."BEZEICHNUNG":"B, Grünau","STRASSE":"",...

Das seltsame ist, in der IDE kann ich die Datei ohne muken in die Memtable laden, nur wenn ich Sie mir über den Stream vom Rersponse des BackendEndpoint hole bekomm ich die Meldung das es an Stelle 6666 knallt. Teuflisch oder

PS: JSON nachträglich gekürzt wegen irrelevanten Informationen.