ZLibFramework 다운로드 ZLibFramework 소스 코드 다운로드

ZLibFramework

델파이 소스 코드

v1.0.0

다운로드

zlibframework

Base64의 압축, 감압 및 코딩 라이브러리.

델파이 언어로 구현 된이 회사는 유창한 인터페이스 개념을 사용하여 라이브러리 사용을 안내합니다.
라이브러리는 기본 압축 및 감압 클래스 (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

자동화 된 설치

Boss (Delphi의 종속성 관리자)를 사용하면 라이브러리를 자동으로 설치할 수 있습니다.

 boss install github.com/antoniojmsjr/ZLibFramework

수동 설치 :

프로젝트> 옵션> 델파이 컴파일러> 대상> 모든 구성> 검색 경로

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