- ich erstelle ein JSON mittels JSONStreamer aus einem TObject
- Felder, welche String-Typen sind, können Umlaute oder Sonderzeichen enthalten
- Diese sind dann im JSON ohne entsprechende Umwandlung auch so darin enthalten
- Beim zurückschreiben kommt dann eine entsprechende Fehlermeldung, sobald Sonderzeichen vorkommen
Code: Alles auswählen
function ObjToJSON(AObject: TObject): string;
var
Streamer: TJSONStreamer;
begin
Result := '';
Streamer := TJSONStreamer.Create(nil);
try
Streamer.Options := Streamer.Options + [jsoEnumeratedAsInteger,
jsoTStringsAsArray, jsoLowerPropertyNames, jsoDateTimeAsString, jsoUseFormatString];
if not (AObject = nil) then
Result := Streamer.ObjectToJSONString(AObject);
finally
Streamer.Free;
end;
end;
procedure JSONToObj(AJson: string; AObject: TObject);
var
Streamer: TJSONDeStreamer;
begin
Streamer := TJSONDeStreamer.Create(nil);
try
if not (AObject = nil) then
try
Streamer.Options := Streamer.Options + [jdoCaseInsensitive, jdoIgnorePropertyErrors];
Streamer.JSONToObject(AJson, AObject);
except
end;
finally
Streamer.Free;
end;
end;
{
"abrechnungsweg" : 1,
"email" : "xxx@xxxx",
"fachrichtung" : 0,
"fax" : "xxxxx-xxx",
"fon" : "xxxxx-xxx",
"kvbereich" : "",
"kvnr" : "",
"kzvbereich" : "02",
"kzvnr" : "123456",
"ort" : "Testort",
"plz" : "123456",
"praxisart" : 0,
"praxisname" : "Testpraxis",
"stempelname" : "Testpraxis äÖü",
"strasse" : "Teststrasse",
"url" : "test.de",
"ustid" : "",
"xmlnr" : "34701"
}
Hoffe, dass mir jemand helfen kann.