From Lazarus-ccr

Contents 1 About 2 Status: Alpha 3 Author 4 License 5 Download 6 Change Log 7 Getting the latest source from CVS 8 Dependencies / System Requirements 9 Installation 10 Usage

[edit] About

This is a conversion of TurboPower Software's Abbrevia library for the Free Pascal Compiler. Abbrevia is a compression toolkit that supports PKZIP 4, Microsoft CAB, TAR, & gzip formats. The package contains visual components that simplify the manipulation of ZIP files.

[edit] Status: Alpha

Needs testing.

[edit] Author

This package was created and generously made available to the open source community by TurboPower Software

[edit] License

MPL 1.1

[edit] Download

The latest release of FpArchive can be found on the Lazarus CCR Files page.

[edit] Change Log

Version 3.05

- Changed the unit name "types" to "typesarchive" to avoid conflict with Lazarus' unit "types";
- added {$mode delphi} in abfcifdi.pas for compatability.

[edit] Getting the latest source from CVS

cvs -d:pserver:anonymous@cvs.sourceforge.net:/cvsroot/lazarus-ccr login

(press the Enter key when prompted for a password)

cvs -z3 -d:pserver:anonymous@cvs.sourceforge.net:/cvsroot/lazarus-ccr co fparchive

This package is also available from the FreePascal Compiler CVS in projects/contrib/abbrevia

[edit] Dependencies / System Requirements

Small amounts of 386 assembler.

[edit] Installation

Un-tar the file

[edit] Usage

1. For your project open "Project->Compiler Options->Other unit files" and add the path to the FPArchive units;
2. In the "uses" clause of your unit add AbBase, AbBrowse, AbZBrows, AbUnzper;
3. Create an unzip object: UnZip := TAbUnZipper.Create(nil);
4. Set the directory where you want to extrat the files to: UnZip.BaseDirectory := '/path/to/extract';
5. Try to extract all CSV files (for example) from an arhive file:

 try
   UnZip.FileName := '/file/to/extract.zip';
   UnZip.ExtractFiles('*.csv');
 except
   on E: Exception do
   begin
     //some error handling
   end;
 end;

6. Free the created object: UnZip.Free;