ZLibFramework下载ZLibFramework源代码下载

ZLibFramework

Delphi源码

v1.0.0

下载

zlibframework

基础64中的压缩，减压和编码库。

以Delphi语言实现，它使用Fluent接口的概念来指导库的使用。
使用天然压缩和减压类（ZLIB）和Delphi Base64编码开发的库。

Base64 ：基本压缩和编码类以及基本解码，解码和解压缩。
Data ：数据压缩和减压类。

实施压缩算法：

Deflate
GZip

注意：函数在编码之前始终返回MD5和编码后的MD5，该功能可用于确保特定文本已正确解码并用编码之前生成的MD5验证。

什么？

带有基本64编码选项的压缩和减压框架。

文本压缩：
- 在演示应用程序中，有一个示例，即NF-E有100件商品的压缩，总共有94,543个字符：
  结果
  - 基础压缩和编码：减少91,167个字符，大小减少96.42％ 。
  - 压缩：减少92,012个字符或97.32％的大小。
- 压缩算法：放气
图像压缩
- 位图
  - 在演示应用中，有一个以格式位图压缩图像的示例，总计2,391,674字节：
    结果
    - 基础压缩和编码：减少645,774字节或27％的大小。
    - 压缩：减少1,082,249个字节或45.25％的大小。
  - 压缩算法：放气
- PNG，JPG
  - 这些文件类型已经在创建中遭受了压缩过程，新的压缩结果并不那么重要。
  - 在演示应用中，有一个格式PNG图像压缩的示例，总计42,436个字节：
    结果
    - 基础压缩和编码：增加13,808字节或32.53％的大小。
    - 压缩：减少255个字节或0.60％的大小。
  - 压缩算法：放气

自动安装

使用Boss （Delphi的依赖项管理器）可以自动安装库。

 boss install github.com/antoniojmsjr/ZLibFramework

手动安装：

项目>选项> Delphi编译器>目标>所有配置>搜索路径

 ..ZLibFrameworkSource

使用：

 uses ZLibFramework, ZLibFramework.Types;

 var
  lResultCompress: IZLibResult;
  lMsgError: string;
begin
  try
    lResultCompress := TZLib
      .Base64
        .Compress
          .Deflate
            .Level(TZLibCompressionLevelType.Max)
            .Text( ' 1234567890 ' );

    Application.MessageBox(PWideChar(lResultCompress.TextUTF8), ' C O M P R E S S Ã O ' , MB_OK + MB_ICONINFORMATION);
  except
    on E: EZLibException do
    begin
      lMsgError := Concat(lMsgError, Format( ' Mode: %s ' , [E.Mode.AsString]), sLineBreak);
      lMsgError := Concat(lMsgError, Format( ' Operation: %s ' , [E.Operation.AsString]), sLineBreak);
      lMsgError := Concat(lMsgError, Format( ' Algorithm: %s ' , [E.Algorithm.AsString]), sLineBreak);
      lMsgError := Concat(lMsgError, Format( ' Encoding Fail: %s ' , [BoolToStr(E.EncodingFail, True)]), sLineBreak);
      lMsgError := Concat(lMsgError, Format( ' Message: %d ' , [E.Message]), sLineBreak);
      lMsgError := Concat(lMsgError, Format( ' Hint: %s ' , [E.Hint]));

      Application.MessageBox(PWideChar(lMsgError), ' A T E N Ç Ã O ' , MB_OK + MB_ICONERROR);
    end ;
    on E: Exception do
    begin
      Application.MessageBox(PWideChar(E.Message), ' A T E N Ç Ã O ' , MB_OK + MB_ICONERROR);
    end ;
  end ;
end ;