TZipFile

type TZipFile = class(TComponent)

protected

  endofcdrecord: TEndOfCentralDirectoryRecord;

  endofcdrecordstartpos: LongWord;

  FActive: Boolean;

  FCompression: TCompressionMethod;

  FFileName: String;

  fileheaderlist: ;

  fileindex: LongWord;

  FOnFileChanged: TFileChangedEvent;

  FReCompression: TReCompressionMethod;

  fs: TFileStream;

  function EndOfCDRecordPosition;

  function FileNameIndex();

  function GetSearchResult();

  function GetStreamCrc32();

  function MakeLocalFileHeader();

  function ReadLocalFileHeader();

  function ShowCDFileHeaderReport();

  function ShowEndOfCDRecordReport;

  function ShowLocalFileHeaderReport();

  procedure AddCDFileHeader();

  procedure DateTimeToDosDateTime();

  procedure DosDateTimeToDateTime();

  procedure GetCDFileHeaders;

  procedure GetEndOfCDRecord;

  function GetFileSize;

  procedure Reset;

  procedure SetActive();

  procedure SetFileName();

public

  fileheadercount: LongWord;

  constructor Create();

  destructor Destroy; override;

  procedure Activate;

  function GetFileStream();

  function FileCount;

  function FileExists();

  function FindFirst();

  function FindNext();

  procedure AppendFileFromDisk();

  procedure AppendStream();

  procedure DeleteFile();

  procedure UpdateFile();

  function Report;

published

  property Active: Boolean; [rw]

  property Compression: TCompressionMethod; [rw]

  property ReCompression: TReCompressionMethod; [rw]

  property FileName: String; [rw]

  property FileSize: Int64; [r]

  property OnFileChanged: TFileChangedEvent; [rw]

end;

TZipFile

TComponent

TObject