|
@@ -126,7 +126,7 @@ begin
|
|
Streamer.Free;
|
|
Streamer.Free;
|
|
end;
|
|
end;
|
|
{$ELSE}
|
|
{$ELSE}
|
|
- TJson.JsonToObject(Self,TJSONObject(TJSONObject.ParseJSONValue(json)));
|
|
|
|
|
|
+ TJson.JsonToObject(Self,TJSONObject(TJSONObject.ParseJSONValue(json.Text)));
|
|
{$ENDIF}
|
|
{$ENDIF}
|
|
{$ENDIF}
|
|
{$ENDIF}
|
|
if Assigned(cConfig) then cConfig.Free;
|
|
if Assigned(cConfig) then cConfig.Free;
|