کسی سورس بنامه فشرده سازی فایلها رو در ویبی.نت داره

[oliya24]

سلام دوستان گرامی خسسته نیاشید اگر کسی این برنامه رو داره وبرام اپلود کنه مدیونش میشم

و اگر بتونه توضیحی هم در مورد الگوریتم فشرده سازی بده ممنونش میشم

[Rezahak]

دوست عزیز به لینک زیر مراجعه کن :
http://msdn.microsoft.com/en-us/library/system.io.compression.gzipstream.aspx

[oliya24]

دوستان این لینک مشکل داره

[Rezahak]

دوست عزیز یک کلاس به نام system.IO.GZipStream در .net برای فشرده سازی تعبیه شده است . لینکی را هم که گذاشتم توضیح و مثال این کلاس روی MSDN بود .

GZipStream Class

.NET Framework 3.5


Other Versions (javascript:;)
http://i3.msdn.microsoft.com/Hash/5fc2d4d93504fe872c01323c3a37c3bb.png




.NET Framework 4 (http://msdn.microsoft.com/en-us/library/system.io.compression.gzipstream(v=VS.100).aspx)
.NET Framework 3.0 (http://msdn.microsoft.com/en-us/library/system.io.compression.gzipstream(v=VS.85).aspx)
.NET Framework 2.0 (http://msdn.microsoft.com/en-us/library/system.io.compression.gzipstream(v=VS.80).aspx)


Updated: August 2009
Provides methods and properties used to compress and decompress streams.



Namespace: System.IO.Compression (http://msdn.microsoft.com/en-us/library/system.io.compression(v=vs.90).aspx)
Assembly: System (in System.dll) Syntax

http://i3.msdn.microsoft.com/Hash/5fc2d4d93504fe872c01323c3a37c3bb.png
VB
C# (javascript: CodeSnippet_SetLanguage('C#');)
C++ (javascript: CodeSnippet_SetLanguage('Visual C++');)
F# (javascript: CodeSnippet_SetLanguage('F#');)
JScript (javascript: CodeSnippet_SetLanguage('JScript');)
http://i3.msdn.microsoft.com/Hash/5fc2d4d93504fe872c01323c3a37c3bb.png

Copy (javascript:CodeSnippet_CopyCode('CodeSnippetConta inerCode0');)

'DeclarationPublic Class GZipStream _ Inherits Stream
'UsageDim instance As GZipStream




Remarks

This class represents the gzip data format, which uses an industry standard algorithm for lossless file compression and decompression. The format includes a cyclic redundancy check value for detecting data corruption. The gzip data format uses the same algorithm as the DeflateStream (http://msdn.microsoft.com/en-us/library/system.io.compression.deflatestream(v=vs.90).aspx) class, but can be extended to use other compression formats. The format can be readily implemented in a manner not covered by patents. This class cannot be used to compress files larger than 4 GB.
Compressed GZipStream objects written to a file with an extension of .gz can be decompressed using many common compression tools; however, this class does not inherently provide functionality for adding files to or extracting files from .zip archives.
The compression functionality in DeflateStream (http://msdn.microsoft.com/en-us/library/system.io.compression.deflatestream(v=vs.90).aspx) and GZipStream is exposed as a stream. Data is read in on a byte-by-byte basis, so it is not possible to perform multiple passes to determine the best method for compressing entire files or large blocks of data. The DeflateStream (http://msdn.microsoft.com/en-us/library/system.io.compression.deflatestream(v=vs.90).aspx) and GZipStream classes are best used on uncompressed sources of data. If the source data is already compressed, using these classes may actually increase the size of the stream.

Notes to Inheritors: When you inherit from GZipStream, you must override the following members: CanSeek (http://msdn.microsoft.com/en-us/library/system.io.compression.gzipstream.canseek(v=vs.90). aspx), CanWrite (http://msdn.microsoft.com/en-us/library/system.io.compression.gzipstream.canwrite(v=vs.90) .aspx), and CanRead (http://msdn.microsoft.com/en-us/library/system.io.compression.gzipstream.canread(v=vs.90). aspx).

Examples

The following example shows how to use the GZipStream class to compress and decompress a directory of files.
http://i3.msdn.microsoft.com/Hash/5fc2d4d93504fe872c01323c3a37c3bb.png
VB
C# (javascript: CodeSnippet_SetLanguage('C#');)
C++ (javascript: CodeSnippet_SetLanguage('Visual C++');)
F# (javascript: CodeSnippet_SetLanguage('F#');)
JScript (javascript: CodeSnippet_SetLanguage('JScript');)
http://i3.msdn.microsoft.com/Hash/5fc2d4d93504fe872c01323c3a37c3bb.png

Copy (javascript:CodeSnippet_CopyCode('CodeSnippetConta inerCode1');)

Imports System.IOImports System.IO.CompressionModule Module1 Sub Main() ' Path to directory of files to compress. Dim dirpath As String = "c:\users\public\reports" Dim di As DirectoryInfo = New DirectoryInfo(dirpath) ' Compress the directory's files. For Each fi As FileInfo In di.GetFiles() Compress(fi) Next ' Decompress all *.gz files in the directory. For Each fi As FileInfo In di.GetFiles("*.gz") Decompress(fi) Next End Sub ' Method to compress. Private Sub Compress(ByVal fi As FileInfo) ' Get the stream of the source file. Using inFile As FileStream = fi.OpenRead() ' Compressing: ' Prevent compressing hidden and already compressed files. If (File.GetAttributes(fi.FullName) And FileAttributes.Hidden) _ <> FileAttributes.Hidden And fi.Extension <> ".gz" Then ' Create the compressed file. Using outFile As FileStream = File.Create(fi.FullName + ".gz") Using Compress As GZipStream = New GZipStream(outFile, CompressionMode.Compress) ' Copy the source file into the compression stream. Dim buffer As Byte() = New Byte(4096) {} Dim numRead As Integer numRead = inFile.Read(buffer, 0, buffer.Length) Do While numRead <> 0 Compress.Write(buffer, 0, numRead) numRead = inFile.Read(buffer, 0, buffer.Length) Loop Console.WriteLine("Compressed {0} from {1} to {2} bytes.", _ fi.Name, fi.Length.ToString(), outFile.Length.ToString()) End Using End Using End If End Using End Sub ' Method to decompress. Private Sub Decompress(ByVal fi As FileInfo) ' Get the stream of the source file. Using inFile As FileStream = fi.OpenRead() ' Get orignial file extension, for example "doc" from report.doc.gz. Dim curFile As String = fi.FullName Dim origName = curFile.Remove(curFile.Length - fi.Extension.Length) ' Create the decompressed file. Using outFile As FileStream = File.Create(origName) Using Decompress As GZipStream = New GZipStream(inFile, CompressionMode.Decompress) ' Copy the compressed file into the decompression stream. Dim buffer As Byte() = New Byte(4096) {} Dim numRead As Integer numRead = Decompress.Read(buffer, 0, buffer.Length) Do While numRead <> 0 outFile.Write(buffer, 0, numRead) numRead = Decompress.Read(buffer, 0, buffer.Length) Loop Console.WriteLine("Decompressed: {0}", fi.Name) End Using End Using End Using End SubEnd Module





Inheritance Hierarchy

System.Object (http://msdn.microsoft.com/en-us/library/system.object(v=vs.90).aspx)
System.MarshalByRefObject (http://msdn.microsoft.com/en-us/library/system.marshalbyrefobject(v=vs.90).aspx)
System.IO.Stream (http://msdn.microsoft.com/en-us/library/system.io.stream(v=vs.90).aspx)
System.IO.Compression.GZipStream

Thread Safety

Any public static (Shared in Visual Basic) members of this type are thread safe. Any instance members are not guaranteed to be thread safe.
Platforms

Windows 7, Windows Vista, Windows XP SP2, Windows XP Media Center Edition, Windows XP Professional x64 Edition, Windows XP Starter Edition, Windows Server 2008 R2, Windows Server 2008, Windows Server 2003, Windows Server 2000 SP4, Windows Millennium Edition, Windows 98, Windows CE, Windows Mobile for Smartphone, Windows Mobile for Pocket PC, Xbox 360, Zune


The .NET Framework and .NET Compact Framework do not support all versions of every platform. For a list of the supported versions, see .NET Framework System Requirements (http://msdn.microsoft.com/en-us/library/8z6watww(v=vs.90).aspx).
Version Information

.NET Framework

Supported in: 3.5, 3.0, 2.0
.NET Compact Framework

Supported in: 3.5
XNA Framework

Supported in: 3.0

See Also

Reference

GZipStream Members (http://msdn.microsoft.com/en-us/library/system.io.compression.gzipstream_members(v=vs.90). aspx)
System.IO.Compression Namespace (http://msdn.microsoft.com/en-us/library/system.io.compression(v=vs.90).aspx)

[Alirezanet]

سلام
به نظر من ساده ترین و بهترین راه استفاده از Ionic هستش که میتونی از لینک مثال ها و Dll اون رو دریافت کنی .
موفق باشی!
http://barnamenevis.org/showthread.php?t=210178