TAbCustomZipBrowser

type TAbCustomZipBrowser = class(TAbBaseBrowser)

protected

  FPassword: AnsiString;

  FOnRequestLastDisk: TAbRequestDiskEvent;

  FOnRequestNthDisk: TAbRequestNthDiskEvent;

  FOnRequestBlankDisk: TAbRequestDiskEvent;

  FTarAutoHandle: Boolean;

  function GetItem(); virtual;

  function GetStream;

  function GetZipfileComment;

  procedure InitArchive; override;

  procedure SetFileName(); override;

  procedure SetStream();

  procedure SetOnRequestLastDisk();

  procedure SetOnRequestNthDisk();

  procedure SetOnRequestBlankDisk();

  procedure SetPassword();

  procedure SetZipfileComment(); virtual;

  property Password: AnsiString; [rw]

  property OnRequestLastDisk: TAbRequestDiskEvent; [rw]

  property OnRequestNthDisk: TAbRequestNthDiskEvent; [rw]

  property OnRequestBlankDisk: TAbRequestDiskEvent; [rw]

public

  constructor Create(); override;

  destructor Destroy; override;

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

  property Stream: TStream; [rw]

  property ZipArchive: TAbArchive; [r]

  property ZipfileComment: AnsiString; [rw]

  property TarAutoHandle: Boolean; [rw]

end;

TAbCustomZipBrowser

TAbBaseBrowser

TAbBaseComponent

TObject