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 ;