ZLibFramework скачать - Загрузка исходного кода ZLibFramework

ZLibFramework

Исходный код Делфи

v1.0.0

Скачать

Zlibframework

Сжатие, декомпрессия и библиотека кодирования в Base64.

Реализованный на языке Delphi, он использует концепцию интерфейса свободного, для руководства использованием библиотеки.
Библиотека разработана с использованием нативных классов сжатия и декомпрессии (Zlib) и Delphi Base64 кодирования.

Base64 : базовый сжатие и класс кодирования и базовый декодирование и декодирование и декомпрессия.
Data : класс сжатия данных и декомпрессия.

Реализованный алгоритм сжатия:

Deflate
GZip

ПРИМЕЧАНИЕ. Функции всегда возвращают MD5 перед кодированием и MD5 после кодирования, который можно использовать для обеспечения того, чтобы определенный текст был декодирован правильно и проверял с помощью MD5, сгенерированного до кодирования.

Что?

Структура сжатия и декомпрессии с опцией кодирования BASE64.

Сжатие текста:
- В демонстрационном приложении есть пример сжатия 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% в его размере.
  - Алгоритм сжатия: дефлятный

Автоматическая установка

Используя босс (Manager для Delphi), можно автоматически установить библиотеку.

 boss install github.com/antoniojmsjr/ZLibFramework

Ручная установка:

Проект> Параметры> Delphi Compiler> Target> Все конфигурации> Путь поиска

 ..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 ;