anchor.diff:      FFreeValue : Boolean;
       procedure SetValue(const Value: TPCJSONData);
     protected
  -    Function ToJSONFormatted(pretty:Boolean;const prefix : AnsiString) : AnsiString; override;
  +    Function ToJSONFormatted(pretty:Boolean;const prefix : String) : String; override;
     public
       Constructor Create(AName : String);
       Destructor Destroy; override;
  
positive.code: end;
  
  procedure TPCJSONData.SaveToStream(Stream: TStream);
  Var s : AnsiString;
  begin
    s := ToJSON(false);
    Stream.Write(s[1],length(s));
  end;
  
  class function TPCJSONData.ParseJSONValue(Const JSONObject: String): TPCJSONData;
  
negative.code: end;
  
  function TPCJSONObject.LoadAsStream(ParamName: String; Stream: TStream): Integer;
  Var s : RawByteString;
  begin
    s := AsString(ParamName,'');
    if (s<>'') then begin
      Stream.Write(s[Low(s)],length(s));
    end;
    Result := Length(s);
  end;
  
  function TPCJSONObject.SaveAsStream(ParamName: String; Stream: TStream): Integer;
  Var s : RawByteString;
  begin
    Stream.Position := 0;
    SetLength(s,Stream.Size);
    Stream.Read(s[Low(s)],Stream.Size);
    GetAsVariant(ParamName).Value := s;
  end;
  
  