DataContractJsonSerializer Class (System.Runtime.Serialization.Json)

Namespace SL_DataContractJsonSerializer
	Partial Public Class Page
		Inherits UserControl
		Public Sub New()
			InitializeComponent()
		End Sub

		'This uses an event handler, not SL data binding
		Private Sub OnClick(ByVal sender As Object, ByVal args As EventArgs)
			txtOutput1.Text = "Create a User object and serialize it."
			Dim json As String = WriteFromObject()
			txtOutput2.Text = json.ToString() ' Displays: {"Age":42,"Name":"Bob"}

			txtOutput3.Text = "Deserialize the data to a User object."
			Dim jsonString As String = "{'Name':'Bill', 'Age':53}"
			Dim deserializedUser As User = ReadToObject(jsonString)
			txtOutput4.Text = deserializedUser.Name ' Displays: Bill
			txtOutput5.Text = deserializedUser.Age.ToString() ' Displays: 53
		End Sub
		' Create a User object and serialize it to a JSON stream.
		Public Shared Function WriteFromObject() As String
			'Create User object.
			Dim user As New User("Bob", 42)

			'Create a stream to serialize the object to.
			Dim ms As New MemoryStream()

			' Serializer the User object to the stream.
			Dim ser As New DataContractJsonSerializer(GetType(User))
			ser.WriteObject(ms, user)
			Dim json() As Byte = ms.ToArray()
			ms.Close()
			Return Encoding.UTF8.GetString(json, 0, json.Length)

		End Function

		' Deserialize a JSON stream to a User object.
		Public Shared Function ReadToObject(ByVal json As String) As User
			Dim deserializedUser As New User()
			Dim ms As New MemoryStream(Encoding.UTF8.GetBytes(json))
			Dim ser As New DataContractJsonSerializer(deserializedUser.GetType())
			deserializedUser = TryCast(ser.ReadObject(ms), User)
			ms.Close()
			Return deserializedUser
		End Function

	End Class

	<DataContract> _
	Public Class User
		Private privateName As String
		<DataMember> _
		Public Property Name() As String
			Get
				Return privateName
			End Get
			Set(ByVal value As String)
				privateName = value
			End Set
		End Property

		Private privateAge As Integer
		<DataMember> _
		Public Property Age() As Integer
			Get
				Return privateAge
			End Get
			Set(ByVal value As Integer)
				privateAge = value
			End Set
		End Property

		Public Sub New()
		End Sub

		Public Sub New(ByVal newName As String, ByVal newAge As Integer)
			Name = newName
			Age = newAge
		End Sub

	End Class

End Namespace

namespace SL_DataContractJsonSerializer
{
    public partial class Page : UserControl
    {
        public Page()
        {
            InitializeComponent();
        }

        //This uses an event handler, not SL data binding
        void OnClick(object sender, EventArgs args)
        {
            txtOutput1.Text = "Create a User object and serialize it.";
            string json = WriteFromObject();
            txtOutput2.Text = json.ToString(); // Displays: {"Age":42,"Name":"Bob"}

            txtOutput3.Text = "Deserialize the data to a User object.";
            string jsonString = "{'Name':'Bill', 'Age':53}";
            User deserializedUser = ReadToObject(jsonString);
            txtOutput4.Text = deserializedUser.Name; // Displays: Bill
            txtOutput5.Text = deserializedUser.Age.ToString(); // Displays: 53
        }
        // Create a User object and serialize it to a JSON stream.
        public static string WriteFromObject()
        {
            //Create User object.
            User user = new User("Bob", 42);

            //Create a stream to serialize the object to.
            MemoryStream ms = new MemoryStream();

            // Serializer the User object to the stream.
            DataContractJsonSerializer ser = new DataContractJsonSerializer(typeof(User));
            ser.WriteObject(ms, user);
            byte[] json = ms.ToArray();
            ms.Close();
            return Encoding.UTF8.GetString(json, 0, json.Length);

        }

        // Deserialize a JSON stream to a User object.
        public static User ReadToObject(string json)
        {
            User deserializedUser = new User();
            MemoryStream ms = new MemoryStream(Encoding.UTF8.GetBytes(json));
            DataContractJsonSerializer ser = new DataContractJsonSerializer(deserializedUser.GetType());
            deserializedUser = ser.ReadObject(ms) as User;
            ms.Close();
            return deserializedUser;
        }

    }

    [DataContract]
    public class User
    {
        [DataMember]
        public string Name { get; set; }

        [DataMember]
        public int Age { get; set; }

        public User() { }

        public User(string newName, int newAge)
        {
            Name = newName;
            Age = newAge;
        }

    }

}