NETCF开发之文件压缩和解压缩

最新推荐文章于 2016-09-28 16:18:00 发布

yanyouning

最新推荐文章于 2016-09-28 16:18:00 发布

阅读量1.9k

点赞数

CC 4.0 BY-SA版权

分类专栏： NETCF技术写作文章标签： listview integer string .net each byte

本文链接：https://blog.youkuaiyun.com/yanyouning/article/details/1196904

NETCF技术写作专栏收录该内容

28 篇文章

订阅专栏

本文介绍了一种在.NET Compact Framework环境下实现文件压缩与解压缩的方法，并提供了具体的代码实例。利用SharpZipLib库，文章详细展示了如何通过GUI界面进行文件压缩及解压缩操作。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

当需要在网上传送数据的情况下压缩是极其有用的，特别是对于非常慢且代价昂贵的网络，例如GPRS连接。在这种情况中，使用压缩能够极大地缩小数据尺寸并且减少整个通讯耗费。Web Service是另一个领域-此时，使用压缩能提供巨大的优点，因为XML数据能被高度压缩。

由于.NET Compact Framework 2.0没有支持命名空间System.IO.Compression，所以在NETCF上开发压缩和解压缩功能并不是很方便。

我相信很多人都知道SharpDevelop，开发ShareDevelop的ic#code有另一个开源项目SharpZipLib for .NET。SharpZipLib用.NET实现了Zip/GZip/BZip2/Tar的算法，可以很方便的按我们的要求做文件进行压缩和解压缩，而且更重要的是它的开源性。SharpZipLib可以在http://www.icsharpcode.net/OpenSource/SharpZipLib/Download.aspx下载。

这段时间做的一个移动软件项目里正好涉及将用户数据进行压缩/解压缩的功能，找了一些这方面的资料，现在把在NETCF下实现压缩和解压的代码贴上来。

下面给出了实现文件压缩/解压缩的基于.NET Compact Framework的Windows窗体界面设计。

图1：压缩图2：解压缩

在图1中，首先在“压缩目标路径”输入框中设定路径，然后在“压缩文件名”输入框中设置即将生成的压缩文件名。本例设置目标路径为/Program Files/createzipfile/，路径下的所有文件（包含隐藏文件），都将被压缩到/Program Files/createzipfile/MyZip.zip文件中。

“压缩目标路径”输入框命名为txtSourceDir，“压缩文件名”输入框命名为txtZipFileName，“压缩”按钮命名为btnZipIt，按钮点击事件中的代码如清单1所示。

清单1：“压缩”按钮点击事件

Private Sub btnZipIt_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) _

Handles btnZipIt.Click

Dim astrFileNames() As String = Directory.GetFiles(txtSourceDir.Text)

Dim objCrc32 As New Crc32()

Dim strmZipOutputStream As ZipOutputStream

strmZipOutputStream = New ZipOutputStream(File.Create(txtZipFileName.Text))

strmZipOutputStream.SetLevel(6)

Dim strFile As String

For Each strFile In astrFileNames

Dim strmFile As FileStream = File.OpenRead(strFile)

Dim abyBuffer(strmFile.Length - 1) As Byte

strmFile.Read(abyBuffer, 0, abyBuffer.Length)

Dim objZipEntry As ZipEntry = New ZipEntry(strFile)

objZipEntry.DateTime = DateTime.Now

objZipEntry.Size = strmFile.Length

strmFile.Close()

objCrc32.Reset()

objCrc32.Update(abyBuffer)

objZipEntry.Crc = objCrc32.Value

strmZipOutputStream.PutNextEntry(objZipEntry)

strmZipOutputStream.Write(abyBuffer, 0, abyBuffer.Length)

strmZipOutputStream.Finish()

strmZipOutputStream.Close()

MessageBox.Show("压缩完成")

End Sub

在图2中，首先在“压缩文件名”输入框中指定需要查看或解压缩的压缩文件名，点击“查看”按钮后将指定的压缩文件内的文件显示在ListView控件中，在ListView控件中选中一行记录并在弹出式菜单中选择“释出”菜单项将文件解压缩出来。本例设置压缩文件名为/Program Files/createzipfile/MyZip.zip。“压缩文件名”输入框命名为txtFileName，ListView控件命名为lvZipContents，“查看”按钮命名为btnView，按钮点击事件中的代码如清单2所示。“释出”菜单项点击事件中的代码如清单3所示。