思归大哥，再问一个问题。

[skyover]

我的目的是想把一个字符串用GZIP压缩。用的就是那个压缩组件。

Dim Bts() As Byte = System.Text.Encoding.Default.GetBytes(MyStr)
writer.Write(HTMLStr.Length & "<br />")
Dim Ms As New IO.MemoryStream
Ms.Read(Bts, 0, Bts.Length)
Dim outBts(Convert.ToInt32(Ms.Length)) As Byte
Dim zip As New ICSharpCode.SharpZipLib.GZip.GZipInputStream(Ms)
zip.Read(Ms.GetBuffer(), 0, Convert.ToInt32(Ms.Length))
Dim ZipOut As New GZipOutputStream(zip)
ZipOut.Write(outBts, 0, Convert.ToInt32(Ms.Length))
Ms.Close()

可是为什么outBts.length 比 bts.length还要大啊。

[saucer]

Dim Bts() As Byte = System.Text.Encoding.Default.GetBytes(MyStr)

Dim Ms As New IO.MemoryStream()
Dim ZipOut As New GZipOutputStream(ms)
ZipOut.Write(Bts, 0, Bts.Length)
ZipOut.Flush()
ZipOut.Close()
Dim outBts() As Byte = Ms.ToArray()