處理壓縮事件

　　現(xiàn)在，既然定義好了主要的壓縮和解壓例程，那么接下來你就可以為各種按鈕進行編碼了。相應于Compress按鈕的事件處理器如下：

Private Sub BTnCompress_Click(ByVal sender As System.Object， _
ByVal e As System.EventArgs) Handles btnCompress.Click
'---用來存儲壓縮的數(shù)據(jù)---
　Dim compressedData() As Byte
　'---壓縮數(shù)據(jù)---
　If rbGZipStream.Checked Then
　　compressedData = Compress("Gzip"，System.Text.Encoding.ASCII.GetBytes(txtBefore.Text))
　Else
　　compressedData = Compress("Deflate"，System.Text.Encoding.ASCII.GetBytes(txtBefore.Text))
　End If
　'---把壓縮的數(shù)據(jù)復制到一個字符串中---
　Dim i As Integer
　Dim s As New System.Text.StringBuilder()
　For i = 0 To compressedData.Length - 1
　　If i <> compressedData.Length - 1 Then
　　　s.Append(compressedData(i) & " ")
　　Else
　　　s.Append(compressedData(i))
　　End If
　Next
　'---顯示壓縮的數(shù)據(jù)為一個字符串---
　txtAfter.Text = s.ToString
End Sub
　　在txtBefore控件中的數(shù)據(jù)被轉換成一個字節(jié)數(shù)組，然后被壓縮。然后，該壓縮的數(shù)據(jù)被轉換成字符串以便于在txtAfter中顯示。

　　相應于Decompress按鈕的事件處理器如下：


Private Sub btnDecompress_Click(ByVal sender As System.Object， _
ByVal e As System.EventArgs) Handles btnDecompress.Click
'---把壓縮的字符串格式化成一個字節(jié)數(shù)組---
　Dim eachbyte() As String = txtAfter.Text.Split(" ")
　Dim data(eachbyte.Length - 1) As Byte
　For i As Integer = 0 To eachbyte.Length - 1
　　data(i) = Convert.ToByte(eachbyte(i))
　Next
　'---解壓數(shù)據(jù)并且顯示解壓的數(shù)據(jù)---
　If rbGZipStream.Checked Then
　　txtBefore.Text = System.Text.Encoding.ASCII.GetString(Decompress("Gzip"， data))
　Else
　　txtBefore.Text = System.Text.Encoding.ASCII.GetString(Decompress("Deflate"， data))
　End If
End Sub
　　它把顯示在控件txtAfter中的數(shù)據(jù)轉換成一個字節(jié)數(shù)組，然后發(fā)送它以便進行解壓。解壓縮的數(shù)據(jù)被顯示回txtBefore控件中。

　　相應于"Select file to compress"按鈕的事件處理器代碼如下：

Private Sub btnSelectFile_Click(ByVal sender As System.Object， _
ByVal e As System.EventArgs) Handles btnSelectFile.Click
'---讓用戶選擇一個要壓縮的文件--
　Dim openFileDialog1 As New OpenFileDialog()
　'openFileDialog1.InitialDirectory = "c:/"
　openFileDialog1.Filter = "All files (*.*)*.*"
　openFileDialog1.RestoreDirectory = True
　If openFileDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then
　'---把文件的內(nèi)容讀入字節(jié)數(shù)組---
　Dim fileContents As Byte()
　fileContents = My.Computer.FileSystem.ReadAllBytes(openFileDialog1.FileName)
　'---創(chuàng)建gzip文件---
　Dim filename As String = openFileDialog1.FileName & ".gzip"
　If File.Exists(filename) Then File.Delete(filename)
　　Dim fs As FileStream = New FileStream(filename， FileMode.CreateNew， Fileaccess.Write)
　　'---壓縮文件的內(nèi)容---
　　Dim compressed_Data As Byte()
　　If rbGZipStream.Checked Then
　　　compressed_Data = Compress("Gzip"， fileContents)
　　Else
　　　compressed_Data = Compress("Deflate"， fileContents)
　　End If
　　If compressed_Data IsNot Nothing Then
　　　'---把壓縮的內(nèi)容寫進壓縮的文件中---
　　　fs.Write(compressed_Data， 0， compressed_Data.Length)
　　　fs.Close()
　　End If
　End If
End Sub
　　它讀取由用戶選擇的文件的內(nèi)容，壓縮它，并且創(chuàng)建一個包含壓縮的數(shù)據(jù)的新文件(具有一樣的文件名，但是加上了一個.gzip擴展名)。

　　相應于"Select file to Decompress"按鈕的事件處理器代碼如下：

Private Sub btnDecompressFile_Click(ByVal sender As System.Object， _
ByVal e As System.EventArgs) Handles btnDecompressFile.Click
　'---讓用戶選擇一個要解壓的文件---
　Dim openFileDialog1 As New OpenFileDialog()
　' openFileDialog1.InitialDirectory = "c:/"
　openFileDialog1.Filter = "All GZIP files (*.gzip)*.gzip"
　openFileDialog1.RestoreDirectory = True
　If openFileDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then
　'---把壓縮的文件的內(nèi)容讀入到字節(jié)數(shù)組---
　Dim fileContents As Byte()
　fileContents = My.Computer.FileSystem.ReadAllBytes(openFileDialog1.FileName)
　'---解壓文件的內(nèi)容---
　Dim uncompressed_Data As Byte()
　If rbGZipStream.Checked Then
　　uncompressed_Data = Decompress("Gzip"， fileContents)
　Else
　　uncompressed_Data = Decompress("Deflat"， fileContents)
　End If
　'---創(chuàng)建解壓的文件---
　Dim filename As String = openFileDialog1.FileName.Substring(0， openFileDialog1.FileName.Length - 5)
　If File.Exists(filename) Then File.Delete(filename)
　　Dim fs As FileStream = New FileStream(filename，F(xiàn)ileMode.CreateNew， FileAccess.Write)
　　If uncompressed_Data IsNot Nothing Then
　　　'---把解壓內(nèi)容寫入到文件中---
　　　fs.Write(uncompressed_Data， 0， uncompressed_Data.Length)
　　　fs.Close()
　　End If
　End If
End Sub
　　它讀取用戶選擇的文件的內(nèi)容，解壓之，并且創(chuàng)建一個包含解壓的數(shù)據(jù)的新文件(通過去掉它的.gzip擴展名)。進入討論組討論。