.NET通用序列化与反序列化类

这是项目中用到一个通用序列化与反序列化的类。

 

源代码：

PropertyOperate类：

Imports System Imports System.Runtime.Serialization Imports System.Runtime.Serialization.Formatters.Binary Imports System.IO Imports Haitu.Common.Utility Public Class PropertyOperate '*****************通用序列化********************** '序列化属性类 Public Shared Sub SerializeObj(Of T)(ByVal strFileName As String, ByVal obj As T) Dim stream As Stream Dim formatter As New BinaryFormatter() Try stream = File.Open(OtherManage.GetPath(strFileName), FileMode.Create) formatter.Serialize(stream, obj) Catch e As SerializationException Throw New Exception("文件序列化失败！" & System.Environment.NewLine & e.Message) Finally stream.Close() obj = Nothing End Try End Sub '反序列化 Public Shared Function DeserializeObj(Of T)(ByVal strFileName As String) As T Dim stream As Stream = Nothing Dim formatter As New BinaryFormatter() Dim obj As T = Nothing Try stream = File.Open(OtherManage.GetPath(strFileName), FileMode.Open) 'DirectCast比CTYPE与trycast有更好的转换效率 obj = DirectCast(formatter.Deserialize(stream), T) Catch e As SerializationException Throw New Exception("文件反序列化失败！" & System.Environment.NewLine & e.Message) Finally stream.Close() End Try Return obj End Function '********************************************** End Class

注：OtherManage.GetPath()是前两篇文章中提到的“取得当前项目目录路径”的方法，可以去掉。

strFileName 代表传入的文件名。

 

调用方法：

'序列化系统超级管理员信息 Public Shared Function SerializeAdmin(ByVal strAdminPwd As String) Dim adminaccount As New AdminAccout() adminaccount.AdminLoginPwd = PropertyOperate.EncryptAdmin(strAdminPwd) SerializeObj(Of AdminAccout)("systemconfig.dat", adminaccount) End Function '反序列化系统超级管理员信息 Public Shared Function DeSerializeAdmin() As AdminAccout Return PropertyOperate.DeserializeObj(Of AdminAccout)("systemconfig.dat") End Function

注：AdminAccout代表一个属性类。PropertyOperate.EncryptAdmin代表前一文章中提到的“.NET加解密类”中的加密方法。

 

附：为了对比方便，贴出AdminAccount类：

Imports System Imports System.Configuration Imports System.Runtime.Serialization '属性类 <Serializable()> _ Public Class AdminAccout '*********************************系统管理员************************************* ''' <summary> ''' 系统默认管理员登陆账户 ''' </summary> ''' <remarks></remarks> Private _adminloginname As String = "GISADMIN" Public ReadOnly Property AdminLoginName() As String Get Return _adminloginname End Get End Property ''' <summary> ''' 系统默认管理员登陆密码 ''' </summary> ''' <remarks></remarks> Private _adminloginpwd As String = String.Empty Public Property AdminLoginPwd() As String Get Return _adminloginpwd End Get Set(ByVal value As String) _adminloginpwd = value End Set End Property '******************************************************************************** End Class