Imports System.Xml.Serialization
Imports System.IO

<Serializable()> _
Public Class Messaggio
  Private localHeader As String
  Private localBody As String

  Public Property Header() As String
    Get
      Return localHeader
    End Get
    Set(ByVal value As String)
      localHeader = value
    End Set
  End Property

  Public Property Body() As String
    Get
      Return localBody
    End Get
    Set(ByVal value As String)
      localBody = value
    End Set
  End Property

  <NonSerialized()> Public ValoreNonSerializzabile As String
End Class


#Region "Serializer"

Public Class Generic_Serializer

  Public Shared Function Serializza(Of ItemType)(ByVal fileName As String, ByVal Oggetto As ItemType) As Boolean
    Try
      Dim ser As New XmlSerializer(GetType(ItemType))
      Dim fs As New FileStream(fileName, FileMode.Create)
      ser.Serialize(fs, Oggetto)
      fs.Close()
    Catch ex As Exception
      Return False
    End Try
    Return True
  End Function

  Public Shared Function Deserializza(Of ItemType)(ByVal fileName As String) As ItemType
    If File.Exists(fileName) = False Then
      Return Nothing
    End If
    Dim fs As FileStream = Nothing
    Try
      Dim ser As New XmlSerializer(GetType(ItemType))
      fs = New FileStream(fileName, FileMode.Open)
      Dim tempParametri As ItemType = CType(ser.Deserialize(fs), ItemType)
      Return tempParametri
    Catch ex As Exception
      Throw New Exception("Errore nel file " & fileName & ex.Message, ex)
    Finally
      If fs IsNot Nothing Then
        fs.Close()
      End If
    End Try
    Return Nothing
  End Function
End Class

#End Region