delphi.fast.zlib.v.1.21
号称比 DELPHI 自带的 zlib 更快 ...Hello,you can found an optimized version of Zlib 1.2.1 that you can embed into every Delphi executable without use external dlls.Further I have build a little example hoping to aid "young" Delphi programmers getting in trouble with streams...Please let me know if you‘ll discover errors.These objects and sources are targeted for executing into P6+ CPU core, and Delphi5-6-7-x software.Benchmarks show this zlib 40% average faster than native DLL distribution and 100% reliable (original test of zlib 1.1.4 version).How to compress and decompress a file:procedure TForm1.Button1Click(Sender: TObject);var InputStream, OutputStream: TFileStream; DeCompressionStream: TZDecompressionStream; CompressionStream: TZCompressionStream; InputFileName, OutputFileName: string;begin//compress InputFileName := ‘c:image.png‘; OutputFilename := ‘c:image.png.bzip‘; InputStream := TFileStream.Create(InputFileName, fmOpenRead); OutputStream := TFileStream.Create(OutputFileName, fmCreate); CompressionStream := TZCompressionStream.Create(OutputStream, zcFastest); CompressionStream.CopyFrom(InputStream, InputStream.Size); CompressionStream.Free; OutputStream.Free; InputStream.Free;// decompress InputFileName := ‘c:image.png.bzip‘; OutputFilename := ‘c:image2.png‘; //rename to original into final code InputStream := TFileStream.Create(InputFileName, fmOpenRead); OutputStream := TFileStream.Create(OutputFileName, fmCreate); DecompressionStream := TZDecompressionStream.Create(InputStream); OutputStream.CopyFrom(DecompressionStream, 0); DecompressionStream.Free; OutputStream.Free; InputStream.Free;end;Cheers,Roberto Della Pasqua,www.dellapasqua.com.Btw: these sources code of zlib 1.2.1 aren‘t changed by me and now I get some compiler warnings, but don‘t worry: they are only little hints about code sintax (cross-platform C compiler typical behavior).
下载地址
用户评论
很不错的开源压缩组件。
不错的开源控件,一直在用
做网络通讯的时候一直在用,只是原来的版本太旧了,所以才换这个
很好,有库的源码和例子
抓到BCB6底下用,不错。。。