ZLibFramework

Zlibframework

مكتبة الضغط وإزالة الضغط والترميز في BASE64.

يتم تنفيذه في لغة دلفي ، ويستخدم مفهوم الواجهة بطلاقة لتوجيه استخدام المكتبة.
تم تطوير المكتبة باستخدام فئات الضغط الأصلي وإزالة الضغط (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 ٪ في حجمه.
      • الضغط: تخفيض 1082،249 بايت أو 45.25 ٪ في حجمه.
    • خوارزمية الضغط: انحراف

  • PNG ، JPG

    • لقد عانت أنواع الملفات هذه بالفعل من عملية ضغط في إنشائها ، ونتيجة ضغط جديد ليست مهمة للغاية.

    • في التطبيق التجريبي ، هناك مثال على ضغط صورة PNG التنسيق ، حيث بلغ مجموعها 42،436 بايت:

      نتيجة

      • الضغط الأساسي والترميز: زيادة قدرها 13،808 بايت أو 32.53 ٪ في حجمها.
      • الضغط: تخفيض 255 بايت أو 0.60 ٪ في حجمه.

    • خوارزمية الضغط: انحراف

التثبيت الآلي

باستخدام Boss (مدير التبعية لـ Delphi) ، من الممكن تثبيت المكتبة تلقائيًا.

 boss install github.com/antoniojmsjr/ZLibFramework

التثبيت اليدوي:

Project> Options> 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 ;

العرض التوضيحي

رخصة

ZLibFramework هو برامج مجانية ومفتوحة المصدر مرخصة بموجب