ZLibFrameworkダウンロードZLibFrameworkソースコードのダウンロード

ZLibFramework

Delphi のソースコード

v1.0.0

ダウンロード

zlibframework

Base64の圧縮、減圧、およびコーディングライブラリ。

Delphi Languageで実装され、流fluentインターフェイスの概念を使用して、ライブラリの使用を導きます。
ライブラリは、ネイティブ圧縮および減圧クラス（ZLIB）とDelphi Base64コーディングを使用して開発されました。

Base64 ：ベース圧縮とコーディングクラスとベースデコードとデコードと減圧。
Data ：データ圧縮と減圧クラス。

実装された圧縮アルゴリズム：

Deflate
GZip

注：関数は、コーディングの前に常にMD5を返し、コーディング後にMD5を返します。これは、特定のテキストが正しくデコードされ、コーディング前に生成されたMD5で検証されていることを確認するために使用できます。

何？

Base64コーディングオプションを使用した圧縮および減圧フレームワーク。

テキスト圧縮：
- デモアプリには、合計94,543文字で100個のアイテムが販売されたNF-Eの圧縮の例があります。
  結果
  - 基本圧縮とコーディング：91,167文字の減少またはそのサイズが96.42％ 。
  - 圧縮：92,012文字の減少またはそのサイズが97.32％ 。
- 圧縮アルゴリズム：deflate
画像圧縮
- ビットマップ
  - デモンストレーションアプリケーションでは、合計2,391,674バイトの形式のビットマップで画像の圧縮の例があります。
    結果
    - ベース圧縮とコーディング：645,774バイトまたはそのサイズが27％の減少。
    - 圧縮：1,082,249バイトまたはそのサイズが45.25％の減少。
  - 圧縮アルゴリズム：deflate
- PNG、JPG
  - これらのファイルタイプは、作成においてすでに圧縮プロセスに苦しんでいますが、新しい圧縮の結果はそれほど重要ではありません。
  - デモアプリには、合計42,436バイトのフォーマットPNG画像圧縮の例があります。
    結果
    - ベースの圧縮とコーディング：13,808バイトまたはそのサイズが32.53％の増加。
    - 圧縮：255バイトの減少またはサイズが0.60％ 。
  - 圧縮アルゴリズム：deflate

自動インストール

ボス（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 ;