TAbCabArchive

type TAbCabArchive = class(TAbArchive)

protected

  FCabName: AnsiString;

  FCabPath: AnsiString;

  FFCICabInfo: FCICabInfo;

  FFCIContext: HFCI;

  FFDIContext: HFDI;

  FFDICabInfo: FDICabInfo;

  FErrors: CabErrorRecord;

  FItemInProgress: TAbCabItem;

  FItemStream: TStream;

  FIIPName: string;

  FItemProgress: DWORD;

  FNextCabinet: string;

  FNextDisk: string;

  FTempFileID: Integer;

  FCurrentCab: Word;

  FCabSize: LongInt;

  FCompressionType: TAbCabCompressionType;

  FFileCount: Word;

  FFolderThreshold: LongWord;

  FFolderCount: Word;

  FHasPrev: Boolean;

  FHasNext: Boolean;

  FSetID: Word;

  procedure CloseCabFile;

  procedure CreateCabFile;

  function CreateItem(); override;

  procedure DoCabItemProgress();

  procedure DoGetNextCabinet();

  procedure ExtractItemAt(); override;

  procedure ExtractItemToStreamAt(); override;

  function GetItem();

  procedure LoadArchive; override;

  procedure OpenCabFile;

  procedure PutItem();

  procedure SaveArchive; override;

  procedure SetFolderThreshold();

  procedure SetSetID();

  procedure SetSpanningThreshold(); override;

  procedure TestItemAt(); override;

public

  constructor Create(); override;

  constructor CreateFromStream(); override;

  destructor Destroy; override;

  procedure Add(); override;

  procedure NewCabinet;

  procedure NewFolder;

  property CurrentCab: Word; [r]

  property CabSize: LongInt; [r]

  property CompressionType: TAbCabCompressionType; [rw]

  property FolderThreshold: LongWord; [rw]

  property FolderCount: Word; [r]

  property HasPrev: Boolean; [r]

  property HasNext: Boolean; [r]

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

  property ItemProgress: DWORD; [rw]

  property SetID: Word; [rw]

end;

TAbCabArchive

TAbArchive

TObject