ZLibFramework download - ZLibFramework Quellcode Download

ZLibFramework

Delphi-Quellcode

v1.0.0

Herunterladen

Zlibframework

Komprimierung, Dekompression und Codierungsbibliothek in Base64.

In der Delphi -Sprache implementiert, verwendet es das Konzept der fließenden Schnittstelle, um die Verwendung der Bibliothek zu steuern.
Bibliothek entwickelt mit nativen Komprimierung und Dekompressionsklassen (ZLIB) und Delphi Base64 -Codierung.

Base64 : Basiskomprimierung und Codierungsklasse und Basiskodierung sowie Dekodierung und Dekompression.
Data : Datenkomprimierung und Dekompressionsklasse.

Komprimierungsalgorithmus implementiert:

Deflate
GZip

HINWEIS: Funktionen geben immer einen MD5 vor dem Codieren und MD5 nach dem Codieren zurück, mit denen sichergestellt werden kann, dass ein bestimmter Text korrekt dekodiert und mit dem vor dem Codieren generierten MD5 validiert wurde.

Was?

Komprimierung und Dekompressionsgerüst mit der Basis64 -Codierungsoption.

Textkomprimierung:
- In der Demo-App gibt es ein Beispiel für die Komprimierung eines NF-E mit 100 verkauften Artikeln in insgesamt 94.543 Zeichen:
  Ergebnis
  - Basiskomprimierung und -codierung: Eine Reduzierung von 91.167 Zeichen oder 96,42% in seiner Größe.
  - Komprimierung: Eine Reduzierung von 92.012 Zeichen oder 97,32% in seiner Größe.
- Komprimierungsalgorithmus: Deflate
Bildkomprimierung
- Bitmap
  - In der Demonstrationsanwendung gibt es ein Beispiel für die Komprimierung eines Bildes in Formatbitmap von insgesamt 2.391.674 Bytes:
    Ergebnis
    - Basiskomprimierung und -codierung: Eine Reduzierung von 645.774 Bytes oder 27% in seiner Größe.
    - Komprimierung: Eine Reduzierung von 1.082.249 Bytes oder 45,25% in seiner Größe.
  - Komprimierungsalgorithmus: Deflate
- PNG, JPG
  - Diese Dateitypen haben bereits einen Komprimierungsprozess in ihrer Erstellung erlitten, das Ergebnis einer neuen Komprimierung ist nicht so signifikant.
  - In der Demo -App gibt es ein Beispiel für eine Format -PNG -Bildkomprimierung von insgesamt 42.436 Bytes:
    Ergebnis
    - Basiskomprimierung und -codierung: Ein Anstieg von 13.808 Bytes oder 32,53% in seiner Größe.
    - Komprimierung: Eine Reduzierung von 255 Bytes oder 0,60% in seiner Größe.
  - Komprimierungsalgorithmus: Deflate

Automatisierte Installation

Verwenden des Chefs (Abhängigkeitsmanager für Delphi) können die Bibliothek automatisch installiert werden.

 boss install github.com/antoniojmsjr/ZLibFramework

Manuelle Installation:

Projekt> Optionen> Delphi Compiler> Ziel> Alle Konfigurationen> Suchpfad

 ..ZLibFrameworkSource

Verwenden:

 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 ;