易语言怎么调用zlib的deflate压缩

Posted 2023-04-21

参考技术A 先来看看zlib都提供了那些函数,都在zlib.h中,看到一堆宏不要晕,其实都是为了兼容各种编译器和一些类型定义.死死抓住那些主要的函数的原型声明就不会受到这些东西的影响了.关键的函数有那么几个:(1)intcompress(Bytef*dest,uLongf*destLen,constBytef*source,uLongsourceLen);把源缓冲压缩成目的缓冲,就那么简单,一个函数搞定(2)intcompress2(Bytef*dest,uLongf*destLen,constBytef*source,uLongsourceLen,intlevel);功能和上一个函数一样,都一个参数可以指定压缩质量和压缩数度之间的关系(0-9)不敢肯定这个参数的话不用太在意它,明白一个道理就好了:要想得到高的压缩比就要多花时间(3)uLongcompressBound(uLongsourceLen);计算需要的缓冲区长度.假设你在压缩之前就想知道你的产度为sourcelen的数据压缩后有多大,可调用这个函数计算一下,这个函数并不能得到精确的结果,但是它可以保证实际输出长度肯定小于它计算出来的长度(4)intuncompress(Bytef*dest,uLongf*destLen,constBytef*source,uLongsourceLen);解压缩(看名字就知道了:)(5)deflateInit()+deflate()+deflateEnd()3个函数结合使用完成压缩功能,具体用法看example.c的test_deflate()函数.其实compress()函数内部就是用这3个函数实现的(工程zlib的compress.c文件)(6)inflateInit()+inflate()+inflateEnd()和(5)类似,完成解压缩功能.(7)gz开头的函数.用来操作*.gz的文件,和文件stdio调用方式类似.想知道怎么用的话看example.c的test_gzio()函数,很easy.(8)其他诸如获得版本等函数就不说了.总结:其实只要有了compress()和uncompress()两个函数,在大多数应用中就足够了.

Delphi 使用 ZLib 压缩和解压 GZip

     ZLib是DEFLATE算法的实现库，它的API同时支持gzip文件格式以及一个简化的数据流格式。zlib数据流格式、DEFLATE以及gzip文件格式均已被分别标准化为 RFC 1950、RFC 1951、RFC 1952。

    gzip在 HTTP压缩，一种在万维网中加速传输HTML和其他内容的技术。它是在 RFC 2016 中规定的三种标准HTTP压缩格式之一。这个RFC页定义了一种叫做"DEFLATE"的zlib格式，它和gzip格式相同，除了gzip添加了11字节头部和尾部的负载。但是，现在还是建议使用gzip而不是zlib，因为根据 RFC 1950, IE还没有正确的实现该标准，还不能处理zlib格式。

    Delphi 使用 ZLib 压缩和解压 GZip：

uses System.ZLib;

const
  ZLIB_GZIP_WINDOWBITS    = 31;
  ZLIB_DEFLATE_WINDOWBITS = 15;

type
  TZLibCompressionLevel = TZCompressionLevel;

  /// <summary>
  /// 使用 ZLib 压缩流
  /// </summary>
  /// <param name="Source">要压缩的数据流</param>
  /// <param name="Dest">压缩后的数据流</param>
  /// <param name="Level">压缩级别</param>
  /// <param name="GZipFormat">是否使用 GZip 压缩算法</param>
procedure ZLibCompressStream(Source, Dest: TStream;
  const Level: TZLibCompressionLevel = zcFastest;
  const GZipFormat: Boolean = True); overload;

/// <summary>
/// 使用 ZLib 解压缩流
/// </summary>
/// <param name="Source">要解压的数据流</param>
/// <param name="Dest">解压后的数据流</param>
/// <param name="GZipFormat">是否使用 GZip 压缩算法</param>
procedure ZLibDecompressStream(Source, Dest: TStream;
  const GZipFormat: Boolean = True); overload;
  
procedure ZLibCompressStream(Source, Dest: TStream; const Level: TZLibCompressionLevel; 
    const GZipFormat: Boolean);
var
  WindowBits: Integer;
  Zip: TZCompressionStream;
begin
  if GZipFormat then
    WindowBits := ZLIB_GZIP_WINDOWBITS
  else
    WindowBits := ZLIB_DEFLATE_WINDOWBITS;

  Zip := TZCompressionStream.Create(Dest, Level, WindowBits);
  try
    Zip.CopyFrom(Source, 0);
  finally
    FreeAndNil(Zip);
  end;
end;

procedure ZLibDecompressStream(Source, Dest: TStream; const GZipFormat: Boolean);
var
  WindowBits: Integer;
  UnZip: TDecompressionStream;
begin
  if GZipFormat then
    WindowBits := ZLIB_GZIP_WINDOWBITS
  else
    WindowBits := ZLIB_DEFLATE_WINDOWBITS;

  UnZip := TDecompressionStream.Create(Source, WindowBits);
  try
    Dest.CopyFrom(UnZip, 0);
  finally
    FreeAndNil(UnZip);
  end;
end;