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:
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 |
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!
Design. Code. Compile. Deploy.
Start Free Trial Upgrade Today
Free Delphi Community Edition Free C++Builder Community Edition
