anchor.diff:  begin
     LStream := AValue.AsObject as TStream;
   
  +  if not Assigned(LStream) then
  +    Exit(TJSONNull.Create);
  +
     LStream.Position := soFromBeginning;
     LBase64 := TBase64.Encode(LStream);
     Result := TJSONString.Create(LBase64);
  
positive.code:   LDataSet: TDataSet;
  begin
    LDataSet := AValue.AsObject as TDataSet;
    Result := TDataSetUtils.DataSetToJSONArray(LDataSet);
  end;
  
  
negative.code: function TNeonDeserializerJSON.ReadDataMember(AJSONValue: TJSONValue; AType:
      TRttiType; const AData: TValue): TValue;
  begin
    if AJSONValue is TJSONNull then
      Exit(TValue.Empty);
  
    case AType.TypeKind of
      // Simple types
      tkInt64:       Result := ReadInt64(AJSONValue, AType);
  