anchor.diff:  
   { TJSONValueReader }
   
  -function TJSONValueReader.AsObject: TObject;
  -begin
  -  Result := Self;
  -end;
   
   {$ifdef Delphi10Berlin_UP}
   function TJSONValueReader.ReadFrom(const AInputData: TBytes;
  
positive.code: end;
  {$endif}
  
  procedure RegisterReaders;
  begin
    TMARSMessageBodyReaderRegistry.Instance.RegisterReader<TJSONValue>(TJSONValueReader);
  end;
  
  initialization
  
negative.code: {$endif}
    end;
  
    [Consumes(TMediaType.APPLICATION_OCTET_STREAM), Consumes(TMediaType.WILDCARD)]
    TStreamReader = class(TInterfacedObject, IMessageBodyReader)
    public
  {$ifdef Delphi10Berlin_UP}
      function ReadFrom(const AInputData: TBytes;
        const AAttributes: TAttributeArray;
        AMediaType: TMediaType; ARequestHeaders: TStrings): TValue; virtual;
  {$else}
      function ReadFrom(const AInputData: AnsiString;
        const AAttributes: TAttributeArray;
        AMediaType: TMediaType; ARequestHeaders: TStrings): TValue; virtual;
  {$endif}
    end;
  
  
  implementation
  
  uses
  