''' <summary> ''' 将一个可序列话的对象进行序列化操作,并以二进制形式返回 ''' </summary> ''' <param name="dsResult">要进行序列化的对象</param> ''' <returns>二进制</returns> ''' <remarks></remarks> ''' <author>Johnnzy</author> PublicSharedFunction BinarySerialize()Function BinarySerialize(ByVal dsResult As DataSet) AsByte() Dim bytes AsByte() Dim bf As System.Runtime.Serialization.IFormatter =New BinaryFormatter() Dim ms As System.IO.MemoryStream =New System.IO.MemoryStream() Try dsResult.RemotingFormat = SerializationFormat.Binary bf.Serialize(ms, dsResult) bytes = ms.ToArray() ms.Close() Return bytes Catch ex As Exception Throw ex EndTry End Function ''' <summary> ''' 将一个二进制文件进行反序列化操作,并以对象形式返回 ''' </summary> ''' <param name="bytes">原二进制文件</param> ''' <returns>一个可序列化的对象</returns> ''' <remarks></remarks> ''' <author>Johnnzy</author> PublicSharedFunction BinaryDeserialize()Function BinaryDeserialize(ByVal bytes AsByte()) As DataSet Dim dsResult As DataSet Dim obj AsObject Dim bf As System.Runtime.Serialization.IFormatter =New BinaryFormatter() Dim ms As System.IO.MemoryStream =New System.IO.MemoryStream(bytes) Try obj = bf.Deserialize(ms) dsResult =CType(obj, DataSet) ms.Close() Return dsResult Catch ex As Exception Throw ex EndTry End Function