VB.NET压缩ZIP文件实际方式解析

VB.NET这样一款面向对象的编程语言，应用范围非常广泛，可以帮助开发人员打造一个稳定安全的开发框架。而且其对文件的处理方面也是非常强大的。这里就为大家介绍一下有关VB.NET压缩ZIP文件的相关方法。#t#

VB.NET压缩ZIP文件代码示例：

1. Public Function Decompress()
   Function Decompress
   (ByVal algo As String, ByVal 
   data() As Byte) As Byte()  
2. Try  
3. Dim sw As New Stopwatch  
4. '---复制数据(压缩的)到ms---  
5. Dim ms As New MemoryStream(data)  
6. Dim zipStream As Stream = Nothing 
7. '---开始秒表---  
8. sw.Start()  
9. '---使用存储在ms中的数据解压---  
10. If algo = "Gzip" Then  
11. zipStream = New GZipStream(ms, 
    CompressionMode.Decompress)  
12. ElseIf algo = "Deflate" Then  
13. zipStream = New DeflateStream(ms, 
    CompressionMode.Decompress, True)  
14. End If  
15. '---用来存储解压的数据---  
16. Dim dc_data() As Byte  
17. '---解压的数据存储于zipStream中;   
18. '把它们提取到一个字节数组中---  
19. dc_data = RetrieveBytesFromStream
    (zipStream, data.Length)  
20. '---停止秒表---  
21. sw.Stop()  
22. lblMessage.Text = "Decompression 
    completed. Time spent: " & sw.
    ElapsedMilliseconds & "ms" & _  
23. "， Original size: " & dc_data.Length  
24. Return dc_data  
25. Catch ex As Exception  
26. MsgBox(ex.ToString)  
27. Return Nothing  
28. End Try  
29. End Function  
30. Public Function RetrieveBytes
    FromStream()Function Retrieve
    BytesFromStream( _  
31. ByVal stream As Stream, ByVal 
    bytesblock As Integer) As Byte()  
32. '---从一个流对象中检索字节---  
33. Dim data() As Byte  
34. Dim totalCount As Integer = 0 
35. Try  
36. While True  
37. '---逐渐地增加数据字节数组-的大小--  
38. ReDim Preserve data(totalCount 
    + bytesblock)  
39. Dim bytesRead As Integer = 
    stream.Read(data, totalCount, bytesblock)  
40. If bytesRead = 0 Then  
41. Exit While  
42. End If  
43. totalCount += bytesRead  
44. End While  
45. '---确保字节数组正确包含提取的字节数---  
46. ReDim Preserve data(totalCount - 1)  
47. Return data  
48. Catch ex As Exception  
49. MsgBox(ex.ToString)  
50. Return Nothing  
51. End Try  
52. End Function 

VB.NET压缩ZIP文件的相关代码编写方式就为大家介绍到这里。

网页名称：VB.NET压缩ZIP文件实际方式解析
转载注明：http://www.shufengxianlan.com/qtweb/news41/353541.html

网站建设、网络推广公司-创新互联，是专注品牌与效果的网站制作，网络营销seo公司；服务项目有等

广告

声明：本网站发布的内容（图片、视频和文字）以用户投稿、用户转载内容为主，如果涉及侵权请尽快告知，我们将会在第一时间删除。文章观点不代表本网站立场，如需处理请联系客服。电话：028-86922220；邮箱：631063699@qq.com。内容未经允许不得转载，或转载时需注明来源： 创新互联