Ultimate Compression Toolkit For Delphi And C++ Builder Developers

1
Muminjon Muminjon 2 months ago in abbrevia c++builder, abbrevia delphi example, android, C++, c++builder compression, cbuilder, compression toolkit, Delphi, ios, object pascal, programming, windows 0

Abbrevia is one of the best quality compression toolkits for Delphi and C++ Builder developers. Supported on many major platforms like OSX, Windows, iOS, and Android.

It supports compressing and decompressing PKZIP, Microsoft CAB, tar, gzip, and bzip2 archives, and can create self-extracting executables. On Windows, it also gives Delphi wrappers for the LZMA, Bzip2, and WavPack SDKs, and PPMd decompression. Moreover, Abbrevia also has several visual controls that simplify displaying and manipulating archives, including treeview and listview components.

If you would like to try out the features of the Abbrevia compression toolkit you better install it now with GetIt

  • Start RAD Studio and open the Tools menu
  • Click GetIt Package Manager
  • and install Abbrevia

Here is a quickstart source code for using TAbZipper & TAbUnZipper:

procedure TAbZipperTests.CreateAndTestBasicZipFile;
var
  ExtractDir, TestFileName : string;
  AbUnZip : TAbUnZipper;
begin
  // Test with Setting BaseDirectory and not specifying AutoSave
  TestFileName := TestTempDir + 'basic.zip';
  if FileExists(TestFileName) then
    DeleteFile(TestFileName);
  Component.FileName := TestFileName;
  Component.BaseDirectory := TestFileDir;
  Component.AddFiles('*.*',faAnyFile);
  Component.Save;
  Component.FileName := '';
  CheckFileExists(TestFileName);

  AbUnZip := TAbUnZipper.Create(nil);
  try
    AbUnZip.FileName := TestFileName;
    // Clean out old Directory and create a new one.
    Extractdir := TestTempDir + 'extracttest';
    if DirectoryExists(ExtractDir) then
      DelTree(ExtractDir);
    CreateDir(ExtractDir);
    // Extract Files.
    AbUnZip.BaseDirectory := ExtractDir;
    AbUnZip.ExtractFiles('*.*');
    // Compare Extracted Files
    CheckDirMatch(TestFileDir,ExtractDir);
  finally
    AbUnZip.Free;
  end;
  DeleteFile(TestFileName);
end;

Be sure to check out the new GetIt directory here!