Imports System.Runtime.CompilerServices

Module Estensioni

    <Extension()> Public Function ToJSON(Of T As Class)(ByVal obj As T) As String 'Where( T  : Class)        
        Dim serializer As System.Runtime.Serialization.Json.DataContractJsonSerializer = New System.Runtime.Serialization.Json.DataContractJsonSerializer(obj.GetType())
        Using stream As System.IO.MemoryStream = New System.IO.MemoryStream()
            serializer.WriteObject(stream, obj)
            Return System.Text.Encoding.Default.GetString(stream.ToArray())
        End Using
    End Function

    <Extension()> Public Function FromJSON(Of T As Class)(ByVal obj As T, ByVal json As String) As T
        Using stream As System.IO.MemoryStream = New System.IO.MemoryStream(System.Text.Encoding.Unicode.GetBytes(json))
            Dim serializer As System.Runtime.Serialization.Json.DataContractJsonSerializer = New System.Runtime.Serialization.Json.DataContractJsonSerializer(obj.GetType())
            Return DirectCast(serializer.ReadObject(stream), T)
        End Using
    End Function

End Module