sdk/samples/WCFSamples/TechnologySamples/Basic/Ajax/JsonSerialization/VB/client/client.vb

   1 ' Copyright (c) Microsoft Corporation. All rights reserved.
   2
   3 Imports System
   4 Imports System.IO
   5 Imports System.Runtime.Serialization
   6 Imports System.Runtime.Serialization.Json
   7
   8 Namespace Microsoft.Ajax.Samples
   9
  10     Class Sample
  11         Public Shared Sub Main()
  12             Dim p As New Person()
  13             p.name = "John"
  14             p.age = 42
  15
  16             Dim stream1 As New MemoryStream()
  17
  18             'Serialize the Person object to a memory stream using DataContractJsonSerializer.
  19             Dim ser As New DataContractJsonSerializer(GetType(Person))
  20             ser.WriteObject(stream1, p)
  21
  22             'Show the JSON output
  23             stream1.Position = 0
  24             Dim sr As New StreamReader(stream1)
  25             Console.Write("JSON form of Person object: ")
  26             Console.WriteLine(sr.ReadToEnd())
  27
  28             'Deserialize the JSON back into a new Person object
  29             stream1.Position = 0
  30             Dim p2 As Person = DirectCast(ser.ReadObject(stream1), Person)
  31
  32             'Show the results
  33             Console.Write("Deserialized back, got name=")
  34             Console.Write(p2.name)
  35             Console.Write(", age=")
  36             Console.WriteLine(p2.age)
  37
  38             Console.WriteLine("Press <ENTER> to terminate the program.")
  39             Console.ReadLine()
  40         End Sub
  41     End Class
  42
  43     <DataContract()> _
  44     Friend Class Person
  45         <DataMember()> _
  46         Friend name As String
  47
  48         <DataMember()> _
  49         Friend age As Integer
  50     End Class
  51
  52 End Namespace