@@ -126,7 +126,7 @@ begin
Streamer.Free;
end;
{$ELSE}
- TJson.JsonToObject(Self,TJSONObject(TJSONObject.ParseJSONValue(json)));
+ TJson.JsonToObject(Self,TJSONObject(TJSONObject.ParseJSONValue(json.Text)));
{$ENDIF}
if Assigned(cConfig) then cConfig.Free;
@@ -47,6 +47,7 @@ uses
fpjsonrtti;
DBXJSON,
+ System.JSON,
Rest.Json.Types,
Rest.Json;