ђђђђђђ+   ђђђђђђ+   ђђђђђ+  ђђ+   ђђ+
                 ђђ+---ђђ+ ђђ+---ђђ+ ђђ+--ђђ+ ђђ|   ђђ|
                 ђђ|   ђђ| ђђ|   ђђ| ђђђђђђђ| ђђ|   ђђ|
                 ђђ|   ђђ| ђђ|   ђђ| ђђ+--ђђ| +ђђ+ ђђ++
                 +ђђђђђђ++ +ђђђђђђ++ ђђ|  ђђ|  +ђђђђ++
                  +-----+   +-----+  +-+  +-+   +---+
        Object Oriented Archive Viewer for Turbo Pascal 7.0 v. 3

This unit let you peek into archives as if it were directories.
With the commands FindFirst and FindNext you get all the information
you need (name, size and date) for easy archive-handling.
Currently the supported archivetypes are Zip, Arj, Arc, Lzh and Zoo,
but it's very easy to expand them.

FileName        : OOAV3.ZIP
Magicname       : OOAV
Available via   : -
Size            : 10 Kb
Shareware-price : FREE

Object-Oriented Archive-viewer, version 3
-----------------------------------------
This Object-Oriented Archive-viewer (OOAV) is copyright (c) by
Edwin Groothuis, MavEtJu software. You are free to use it
if you agree with these three rules:

  1. You tell me you're using this unit.

  2. You give me proper credit in the documentation. (Like:
     "This program uses the Object-Oriented Archive-viewer
     (c) Edwin Groothuis, MavEtJu software".

  3. If you make Archive-objects for other archive-types, don't
     hesitate to inform me so I can add them to the unit and
     redistribute it!

   That's all!

How to use this unit:
---------------------
(see also the file ArchTest.pas)

  - Declare a variable Arch of the | var Arch:TArchive;
    type TArchive                  | begin
  - Call it's constructor          |   Arch.Init;
  - Tell the unit which file you   |   if not Arch.Name('TEST.ZIP')
    want to view. This function    |   then begin
    returns a boolean. If this     |     writeln('TEST.ZIP is not
    boolean is false, then the     |              a valid archive');
    file couldn't be identified    |     exit;
    as a valid archive.            |   end;
  - Just like the dos-functions    |   Arch.FindFirst(sr);
    FindFirst and FindNext, you    |   while sr.Name<>'' do
    can search through the archive.|   begin
    The parameter you give with it |     writeln(sr.Name);
    is one of the SearchRec-type.  |     Arch.FindNext(sr);
    If there are no more files in  |   end;
    this archive, sr.Name will be  |
    empty. Valid fields are        |
    sr.Name, sr.Size and sr.Time   |
  - Call the destructor            |   Arch.Done;
                                   | end;
                                   |
  - You can call the function      |
    IdentifyArchive() to see what  |
    kind of archive you're dealing |
    with.                          |

What if you want to add more archive-types
------------------------------------------
 - Add the unit name in the second Uses-statement.
 - Find out how to identify it and add that algoritm
   to the IdentifyArchive()-function. Please choose a
   unique and no-nonsens character to return.
 - Add it to the IdentifyArchive()-case in TArchive.Name.
 - Create a FindFirst-method and FindNext-method for this
   object.
 - That's it! Simple, isn't it? (If it isn't, please see the
   files ZipView, ArjView and others for examples ;-)

Author:
-------
  Edwin Groothuis          email:
  Johann Strausslaan 1     edwing@stack.urc.tue.nl
                           (valid until 10-94)
  5583ZA Aalst-Waalre      Edwin_Groothuis@p1.f205.n284.z2.gds.nl
  The Netherlands          2:284/205.1@fidonet
                           115:3145/102.1@pascal-net