Descargar ZLibFramework - Descargar el código fuente de ZLibFramework

ZLibFramework

código fuente de delphi

v1.0.0

Descargar

Zlibframework

Biblioteca de compresión, descompresión y codificación en Base64.

Implementado en el lenguaje Delphi, utiliza el concepto de interfaz fluida para guiar el uso de la biblioteca.
La biblioteca se desarrolló utilizando clases de compresión y descompresión nativa (ZLIB) y la codificación de Delphi Base64.

Base64 : clase de compresión y codificación base y decodificación de base y decodificación y descompresión.
Data : Clase de compresión y descompresión de datos.

Algoritmo de compresión implementado:

Deflate
GZip

Nota: Las funciones siempre devuelven un MD5 antes de codificar y MD5 después de la codificación, que puede usarse para garantizar que un texto en particular haya sido decodificado correctamente y validándose con el MD5 generado antes de la codificación.

¿Qué?

Marco de compresión y descompresión con la opción de codificación Base64.

Compresión de texto:
- En la aplicación de demostración, hay un ejemplo de compresión de un NF-E con 100 artículos vendidos, en un total de 94,543 caracteres:
  Resultado
  - Compresión y codificación base: una reducción de 91,167 caracteres o 96.42% en su tamaño.
  - Compresión: una reducción de 92,012 caracteres o 97.32% en su tamaño.
- Algoritmo de compresión: desinflar
Compresión de imagen
- Mapa de bits
  - En la aplicación de demostración, hay un ejemplo de compresión de una imagen en formato mapa de bits, por un total de 2,391,674 bytes:
    Resultado
    - Compresión y codificación base: una reducción de 645,774 bytes o 27% en su tamaño.
    - Compresión: una reducción de 1,082,249 bytes o 45.25% en su tamaño.
  - Algoritmo de compresión: desinflar
- PNG, JPG
  - Estos tipos de archivos ya han sufrido un proceso de compresión en su creación, el resultado de una nueva compresión no es tan significativo.
  - En la aplicación de demostración, hay un ejemplo de compresión de imagen PNG de formato, con un total de 42,436 bytes:
    Resultado
    - Compresión y codificación base: un aumento de 13,808 bytes o 32.53% en su tamaño.
    - Compresión: una reducción de 255 bytes o 0.60% en su tamaño.
  - Algoritmo de compresión: desinflar

Instalación automatizada

Usando el jefe (Manager de dependencia para Delphi) es posible instalar la biblioteca automáticamente.

 boss install github.com/antoniojmsjr/ZLibFramework

Instalación manual:

Proyecto> Opciones> Compilador Delphi> Target> Todas las configuraciones> Ruta de búsqueda

 ..ZLibFrameworkSource

Usar:

 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 ;