大数据量(16M)的DataSet压缩方法比较

(声明：魏滔序原创，转贴请注明出处。) 对于在WebService上必须(无法避免的情况下)要传输大量数据的DataSet时，对DataSet压缩是最好的方法，这样可以减少大量在网络传输过程中所占用的时间。 下面对我掌握的的DataSet压缩方法做一个测试，希望高人有斧正之处，也希望需要的人有借鉴之处。 注：经过压缩DataSet的WebService就缺少了通用性，请权衡使用之。 测试源码(仅压缩部分)和结果如下： 条件：压缩前的DataSet的大小为16891323字节(大约16.12M)。 环境：.Net Formatwork 1.1 系统： Windows XP SP1 硬件：P4(2.4G) + 256DDR 方案1：DataSetSurrogate + BinaryFormatter Public Function DataSetToByte(ByVal DataSet As DataSet) As Byte() Dim DSS As New DataSetSurrogate(DataSet) Dim MS As New IO.MemoryStream Dim BF As New BinaryFormatter BF.Serialize(MS,DSS) Dim ReVal() As Byte = MS.ToArray() MS.Close() DSS = nothing MS = nothing BF = nothing Return ReVal End Function 方案2：DataSetSurrogate + BinaryFormatter + SharpZipLib Public Function DataSetToByte(ByVal DataSet As DataSet) As Byte() Dim MS As New IO.MemoryStream Dim ZOS As New ZipOutputStream(MS) ZOS.PutNextEntry(New ZipEntry(DataSet.DataSetName)) Dim BF As New BinaryFormatter Dim DSS As DataSetSurrogate = New DataSetSurrogate(DataSet) BF.Serialize(ZOS,DSS) ZOS.CloseEntry() ZOS.Close() Dim ReVal As Byte() = MS.ToArray MS.Close() MS = nothing ZOS = nothing BF = nothing DSS = nothing Return ReVal End Function 方案3：zlib Public Function DataSetToByte(ByVal DataSet As DataSet) As Byte() Dim MS As New System.IO.MemoryStream DataSet.WriteXml(MS,XmlWriteMode.WriteSchema) Dim ReVal() As Byte = MS.ToArray MS.Close() MS = nothing Dim zlib As New vbZLib.Compress zlib.CompressByte(ReVal) zlib = nothing Return ReVal End Function 结果(压缩后)： 方案1：4420881字节(被压缩掉大约73.83％)，耗时：23200ms 方案2： 696881字节(被压缩掉大约95.87％)，耗时：26621ms 方案3： 422990字节(被压缩掉大约97.50％)，耗时： 680ms 看来，无论压缩率还是耗时都是方案3最优，但是使用了第三方组件。前两个方案对cpu资源占用率的也让人无法接受。