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