REST Service Encoding Escape Sequenz

[Der schöne Günther]

Ich glaube die Embarcadero-Komponenten verstehen kein XML, und aus deren Sicht hast du einfach einen String bekommen - Also macht er nochmal Anführungsstriche drum herum und maskiert die Sonderzeichen, wie es sich für einen JSON-String gehört.

So sieht das auf den ersten Blick für mich aus.

Bingo:
Quelle:
https://docwiki.embarcadero.com/RADS...ientbibliothek

Zitat:

In diesem Framework wird JSON als Darstellungsformat verwendet. XML wird nicht explizit unterstützt.

[Rainer Wolff]

Zitat von Der schöne Günther:

Ich glaube die Embarcadero-Komponenten verstehen kein XML, und aus deren Sicht hast du einfach einen String bekommen - Also macht er nochmal Anführungsstriche drum herum und maskiert die Sonderzeichen, wie es sich für einen JSON-String gehört.

So sieht das auf den ersten Blick für mich aus.

Wird dann vielleicht auch so sein. Danke für die Hilfen.

Ich habe jetzt kurz und schmerzlos doch die Umkonvertierung auf Delphi-Seite mit String-Replace reingefummelt. Die Funktion wird bei Programmstart ein einziges mal aufgerufen, dann isses halt nicht schön, aber funktioniert.

JSON als Standardantwort: Ich bekomme den XML-String schon fertig aus einer untergeordneten Schnittstelle und reiche den in meinem Rest-Server nur als String an die Delphi-App weiter.

[Der schöne Günther]

Hauptsache ein paar Unit-Tests decken das vernünftig ab. Dann darf man da drinnen einiges an unschönen Dingen treiben.

So meine Meinung und so.

[Incocnito]

Ich befürchte StringReplace ist ein gefährlich falscher Ansatz.
Notfalls eher (vom Prinzip her) sowas:

Delphi-Quellcode:

type
  TWhatEver = class
    FText : String;
  end;
...
function ConvertMe(sVal : String) : String;
var
  obj : TWhatEver;
begin
  try
    obj := TJson.JsonToObject<TWhatEver>('{"text":' + sVal + '}');
    try
      Result := obj.FText;
    finally
      obj.Free();
    end;
  except
    Result := '';
  end;
end;

Obwohl das auch schon echt bäh ist!
Und bitte nochmal drüber schauen.

LG Incocnito