using Xceed.Compression;
using Xceed.Compression.Formats;
namespace FileSystemDocumentationExamples.CompressionComponent
{
public class CompressGZipCompressedStreamExample
{
public void MyMainMethod()
{
/* Because Xceed.Compression.Formats is an optional assembly not automatically
unlocked by Xceed Zip for .NET, we must explicitly set our license key to it
before use or else an exception will be thrown. */
Xceed.Compression.Formats.Licenser.LicenseKey = "<your Xceed Zip for .NET license key>";
}
public void Example()
{
/* Setup a destination data stream. This can be any Stream object for any destination as
long as data can be written to it. No 'seek' or 'read' capabilities are needed. */
FileStream destinationStream = new FileStream( @"D:\Data.gz", FileMode.Create, FileAccess.Write, FileShare.None );
/* Setup a source data stream. This can be any Stream object from any source as
long as data can be read from it. No 'seek' or 'write' capabilities are needed. */
using( FileStream sourceStream = new FileStream( @"D:\Data.dat", FileMode.Open, FileAccess.Read, FileShare.Read ) )
{
/* Optional: the compression level can be specified. */
CompressionLevel compressionLevel = CompressionLevel.Normal;
// Create a GZip compressed stream that wraps around our destination stream
using( GZipCompressedStream gzipCompressedStream = new GZipCompressedStream( destinationStream, compressionLevel ) )
{
/* The GZipCompressedStream automatically closes the destination
stream. So there is no need to declare the stream within a using
statement or to call Close() once we are done with the stream.
If you do not want the inner stream to be closed by the GZipCompressedStream,
set its Transient property to true. */
// Optional: Prevent XceedCompressedStream from closing 'destinationStream' automatically
//gzipCompressedStream.Transient = true;
int bytesRead;
// Setup a 32K buffer
byte[] buffer = new byte[ 32 * 1024 ];
// Read from the source stream until there is no more data
while( ( bytesRead = sourceStream.Read( buffer, 0, buffer.Length ) ) > 0 )
{
// Compress the data by writing into the compressed stream
// Compressed data will be written into its InnerStream, in our case, 'destinationStream'
gzipCompressedStream.Write( buffer, 0, bytesRead );
}
}
}
}
}
}
Imports Xceed.Compression
Imports Xceed.Compression.Formats
Namespace FileSystemDocumentationExamples.CompressionComponent
Public Class CompressGZipCompressedStreamExample
Public Sub MyMainMethod()
' Because Xceed.Compression.Formats is an optional assembly not automatically
' unlocked by Xceed Zip for .NET, we must explicitly set our license key to it
' before use or else an exception will be thrown.
Xceed.Compression.Formats.Licenser.LicenseKey = "<your Xceed Zip for .NET license key>"
End Sub
Public Sub Example()
' Setup a destination data stream. This can be any Stream object for any destination as
' long as data can be written to it. No 'seek' or 'read' capabilities are needed.
Dim destinationStream As New FileStream("D:\Data.gz", FileMode.Create, FileAccess.Write, FileShare.None)
' Setup a source data stream. This can be any Stream object from any source as
' long as data can be read from it. No 'seek' or 'write' capabilities are needed.
Using sourceStream As New FileStream("D:\Data.dat", FileMode.Open, FileAccess.Read, FileShare.Read)
' Optional: the compression level can be specified.
Dim compressionLevel As CompressionLevel = CompressionLevel.Normal
' Create a GZip compressed stream that wraps around our destination stream
Using gzipCompressedStream As New GZipCompressedStream(destinationStream, compressionLevel)
' The GZipCompressedStream automatically closes the destination
' stream. So there is no need to declare the stream within a using
' statement or to call Close() once we are done with the stream.
'
' If you do not want the inner stream to be closed by the GZipCompressedStream,
' set its Transient property to true.
' Optional: Prevent XceedCompressedStream from closing 'destinationStream' automatically
'gzipCompressedStream.Transient = true;
Dim bytesRead As Integer
' Setup a 32K buffer
Dim buffer(32 * 1024 - 1) As Byte
' Read from the source stream until there is no more data
bytesRead = sourceStream.Read(buffer, 0, buffer.Length)
Do While bytesRead > 0
' Compress the data by writing into the compressed stream
' Compressed data will be written into its InnerStream, in our case, 'destinationStream'
gzipCompressedStream.Write(buffer, 0, bytesRead)
bytesRead = sourceStream.Read(buffer, 0, buffer.Length)
Loop
End Using
End Using
End Sub
End Class
End Namespace