WebService的序列化方法

  

    ''' <summary>
    ''' 将一个可序列话的对象进行序列化操作，并以二进制形式返回
    ''' </summary>
    ''' <param name="dsResult">要进行序列化的对象</param>
    ''' <returns>二进制</returns>
    ''' <remarks></remarks>
    ''' <author>Johnnzy</author>
    Public Shared Function BinarySerialize()Function BinarySerialize(ByVal dsResult As DataSet) As Byte()
        Dim bytes As Byte()
        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
        End Try
    End Function

    ''' <summary>
    ''' 将一个二进制文件进行反序列化操作，并以对象形式返回
    ''' </summary>
    ''' <param name="bytes">原二进制文件</param>
    ''' <returns>一个可序列化的对象</returns>
    ''' <remarks></remarks>
    ''' <author>Johnnzy</author>
    Public Shared Function BinaryDeserialize()Function BinaryDeserialize(ByVal bytes As Byte()) As DataSet
        Dim dsResult As DataSet
        Dim obj As Object
        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
        End Try
    End Function