TAbZipArchive

type TAbZipArchive = class(TAbArchive)

protected

  FCompressionMethodToUse: TAbZipSupportedMethod;

  FDeflationOption: TAbZipDeflationOption;

  FInfo: TAbZipDirectoryFileFooter;

  FIsExecutable: Boolean;

  FPassword: AnsiString;

  FPasswordRetries: Byte;

  FStubSize: LongWord;

  FExtractHelper: TAbArchiveItemExtractEvent;

  FExtractToStreamHelper: TAbArchiveItemExtractToStreamEvent;

  FTestHelper: TAbArchiveItemTestEvent;

  FInsertHelper: TAbArchiveItemInsertEvent;

  FInsertFromStreamHelper: TAbArchiveItemInsertFromStreamEvent;

  FOnNeedPassword: TAbNeedPasswordEvent;

  FOnRequestLastDisk: TAbRequestDiskEvent;

  FOnRequestNthDisk: TAbRequestNthDiskEvent;

  FOnRequestBlankDisk: TAbRequestDiskEvent;

  procedure DoExtractHelper();

  procedure DoExtractToStreamHelper();

  procedure DoTestHelper();

  procedure DoInsertHelper();

  procedure DoInsertFromStreamHelper();

  function GetItem();

  function GetZipfileComment;

  procedure PutItem();

  procedure DoRequestDisk();

  procedure DoRequestLastDisk(); virtual;

  procedure DoRequestNthDisk(); virtual;

  procedure DoRequestBlankDisk(); virtual;

  procedure ExtractItemAt(); override;

  procedure ExtractItemToStreamAt(); override;

  procedure TestItemAt(); override;

  function FixName(); override;

  function GetSupportsEmptyFolders; override;

  procedure LoadArchive; override;

  procedure SaveArchive; override;

  procedure SetZipfileComment();

  property IsExecutable: Boolean; [rw]

public

  procedure DoRequestImage();

  constructor CreateFromStream(); override;

  destructor Destroy; override;

  function CreateItem(); override;

  property CompressionMethodToUse: TAbZipSupportedMethod; [rw]

  property DeflationOption: TAbZipDeflationOption; [rw]

  property ExtractHelper: TAbArchiveItemExtractEvent; [rw]

  property ExtractToStreamHelper: TAbArchiveItemExtractToStreamEvent; [rw]

  property TestHelper: TAbArchiveItemTestEvent; [rw]

  property InsertHelper: TAbArchiveItemInsertEvent; [rw]

  property InsertFromStreamHelper: TAbArchiveItemInsertFromStreamEvent; [rw]

  property Password: AnsiString; [rw]

  property PasswordRetries: Byte; [rw]

  property StubSize: LongWord; [r]

  property ZipfileComment: AnsiString; [rw]

  property Items []: TAbZipItem; default; [rw]

  property OnNeedPassword: TAbNeedPasswordEvent; [rw]

  property OnRequestLastDisk: TAbRequestDiskEvent; [rw]

  property OnRequestNthDisk: TAbRequestNthDiskEvent; [rw]

  property OnRequestBlankDisk: TAbRequestDiskEvent; [rw]

end;

TAbZipArchive

TAbArchive

TObject