TAbArchive

type TAbArchive = class(TObject)

public

  FStream: TStream;

  FStatus: TAbArchiveStatus;

protected

  FArchiveName: string;

  FAutoSave: Boolean;

  FBaseDirectory: string;

  FCurrentItem: TAbArchiveItem;

  FDOSMode: Boolean;

  FExtractOptions: TAbExtractOptions;

  FImageNumber: Word;

  FInStream: TStream;

  FIsDirty: Boolean;

  FSpanningThreshold: Int64;

  FItemList: TAbArchiveList;

  FLogFile: string;

  FLogging: Boolean;

  FLogStream: TFileStream;

  FMode: Word;

  FOwnsStream: Boolean;

  FSpanned: Boolean;

  FStoreOptions: TAbStoreOptions;

  FTempDir: string;

  FOnProcessItemFailure: TAbArchiveItemFailureEvent;

  FOnArchiveProgress: TAbArchiveProgressEvent;

  FOnArchiveSaveProgress: TAbArchiveProgressEvent;

  FOnArchiveItemProgress: TAbArchiveItemProgressEvent;

  FOnConfirmProcessItem: TAbArchiveItemConfirmEvent;

  FOnConfirmOverwrite: TAbConfirmOverwriteEvent;

  FOnConfirmSave: TAbArchiveConfirmEvent;

  FOnLoad: TAbArchiveEvent;

  FOnProgress: TAbProgressEvent;

  FOnRequestImage: TAbRequestImageEvent;

  FOnSave: TAbArchiveEvent;

  constructor CreateInit;

  procedure CheckValid;

  function ConfirmPath();

  procedure FreshenAt();

  function FreshenRequired();

  procedure GetFreshenTarget();

  function GetItemCount;

  procedure MakeLogEntry();

  procedure ReplaceAt();

  procedure SaveIfNeeded();

  procedure SetBaseDirectory();

  procedure SetLogFile();

  procedure SetLogging();

  function CreateItem(); virtual; abstract;

  procedure ExtractItemAt(); virtual; abstract;

  procedure ExtractItemToStreamAt(); virtual; abstract;

  procedure LoadArchive; virtual; abstract;

  procedure SaveArchive; virtual; abstract;

  procedure TestItemAt(); virtual; abstract;

  procedure DoProcessItemFailure(); virtual;

  procedure DoArchiveSaveProgress(); virtual;

  procedure DoArchiveProgress(); virtual;

  procedure DoArchiveItemProgress(); virtual;

  procedure DoConfirmOverwrite(); virtual;

  procedure DoConfirmProcessItem(); virtual;

  procedure DoConfirmSave(); virtual;

  procedure DoLoad; virtual;

  procedure DoProgress(); virtual;

  procedure DoSave; virtual;

  function FixName(); virtual;

  function GetSpanningThreshold; virtual;

  function GetSupportsEmptyFolders; virtual;

  procedure SetSpanningThreshold(); virtual;

  property InStream: TStream; [r]

public

  constructor Create(); virtual;

  constructor CreateFromStream(); virtual;

  destructor Destroy; override;

  procedure Add(); virtual;

  procedure AddFiles();

  procedure AddFilesEx();

  procedure AddFromStream();

  procedure ClearTags;

  procedure Delete();

  procedure DeleteAt();

  procedure DeleteFiles();

  procedure DeleteFilesEx();

  procedure DeleteTaggedItems;

  procedure Extract();

  procedure ExtractAt();

  procedure ExtractFiles();

  procedure ExtractFilesEx();

  procedure ExtractTaggedItems;

  procedure ExtractToStream();

  function FindFile();

  function FindItem();

  procedure Freshen();

  procedure FreshenFiles();

  procedure FreshenFilesEx();

  procedure FreshenTaggedItems;

  procedure Load; virtual;

  procedure Move(); virtual;

  procedure Replace();

  procedure Save; virtual;

  procedure TagItems();

  procedure TestTaggedItems;

  procedure UnTagItems();

  procedure DoDeflateProgress(); virtual;

  procedure DoInflateProgress(); virtual;

  procedure DoSpanningMediaRequest(); virtual;

  property OnProgress: TAbProgressEvent; [rw]

  property ArchiveName: string; [r]

  property AutoSave: Boolean; [rw]

  property BaseDirectory: string; [rw]

  property Count: Integer; [r]

  property DOSMode: Boolean; [rw]

  property ExtractOptions: TAbExtractOptions; [rw]

  property IsDirty: Boolean; [rw]

  property ItemList: TAbArchiveList; [r]

  property LogFile: string; [rw]

  property Logging: Boolean; [rw]

  property Mode: Word; [r]

  property Spanned: Boolean; [r]

  property SpanningThreshold: Int64; [rw]

  property Status: TAbArchiveStatus; [r]

  property StoreOptions: TAbStoreOptions; [rw]

  property SupportsEmptyFolders: Boolean; [r]

  property TempDirectory: string; [rw]

  property OnProcessItemFailure: TAbArchiveItemFailureEvent; [rw]

  property OnArchiveProgress: TAbArchiveProgressEvent; [rw]

  property OnArchiveSaveProgress: TAbArchiveProgressEvent; [rw]

  property OnArchiveItemProgress: TAbArchiveItemProgressEvent; [rw]

  property OnConfirmProcessItem: TAbArchiveItemConfirmEvent; [rw]

  property OnConfirmOverwrite: TAbConfirmOverwriteEvent; [rw]

  property OnConfirmSave: TAbArchiveConfirmEvent; [rw]

  property OnLoad: TAbArchiveEvent; [rw]

  property OnRequestImage: TAbRequestImageEvent; [rw]

  property OnSave: TAbArchiveEvent; [rw]

end;

TAbArchive

TObject