DataContractJsonSerializer 如何序列化一个匿名对象？

[Triumph]

Dim o = New With {.id = "111"}

Dim _json As New System.Runtime.Serialization.Json.DataContractJsonSerializer(o.GetType)
Using _ms As New IO.MemoryStream
	_json.WriteObject(_ms, o)   '运行至此报错，提示无法序列化 AnonymousType
	Response.Write(Text.Encoding.UTF8.GetString(_ms.ToArray))
	_ms.Close()
End Using

而换成 Newtonsoft 则没有问题：

Response.Write(Newtonsoft.Json.JsonConvert.SerializeObject(o))

难道是 DataContractJsonSerializer 不支持匿名对象？求解

[Triumph]

JavaScriptSerializer 没试过，MS不是提示过时了，不建议使用了吗？

[以专业开发人员为伍]

问题其实并不是出自它是不是一个匿名类型。看看这个程序

Module Module1

    Sub Main()
        Dim o = New aa With {.id = "111"}
        Dim _json As New System.Runtime.Serialization.Json.DataContractJsonSerializer(o.GetType)
        Using _ms As New IO.MemoryStream
            _json.WriteObject(_ms, o)
            Console.WriteLine(Text.Encoding.UTF8.GetString(_ms.ToArray))
        End Using
        Console.ReadKey()
    End Sub

End Module

Class aa
    Public id As String
End Class

它不被DataContractJsonSerializer支持。你不许把aa定义为public的才支持。

[wuyq11]

http://stackoverflow.com/questions/331976/how-do-i-serialize-a-c-anonymous-type-to-a-json-string