1. 首页
  2. 编程语言
  3. C
  4. delphi.fast.zlib.v.1.21

delphi.fast.zlib.v.1.21

上传者: 2021-04-19 18:43:16上传 ZIP文件 96.03KB 热度 30次
号称比 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).
下载地址
用户评论
码姐姐匿名网友 2025-04-01 02:20:05

很不错的开源压缩组件。

码姐姐匿名网友 2025-03-31 13:46:30

不错的开源控件,一直在用

码姐姐匿名网友 2025-03-31 23:16:11

做网络通讯的时候一直在用,只是原来的版本太旧了,所以才换这个

码姐姐匿名网友 2025-03-31 19:06:27

很好,有库的源码和例子

码姐姐匿名网友 2025-03-31 09:40:31

抓到BCB6底下用,不错。。。