TArchive

type TArchive = class

public

type

  TFormat = (

  PXLA,

  ASVF,

  ASDb,

  VTDb

);

  TOpenMode = (

  Update,

  ReadOnly,

  Overwrite

);

  TEntryType = (

  AnyFile,

  Image,

  Font

);

  TAccessType = (

  AnyFile,

  Resource,

  Packaged

);

  TRecordEntry = TRecordEntry;

  TDefaultPackagePathProvider = procedure(

  const Sender: TObject;

  var PackagePath: StdString

) of object;

public

  AccessType: TAccessType;

  AccessInstance: SizeUInt;

  DefaultPackagePathProvider: TDefaultPackagePathProvider;

  constructor Create;

  destructor Destroy; override;

  function Refresh;

  function OpenFile();

  function IndexOf();

  function WriteEntry();

  function WriteStream();

  function ReadEntry();

  function ReadStream();

  function ReadMemStream();

  function RenameEntry();

  function RemoveEntry();

  property Format: TFormat; [rw]

  property OpenMode: TOpenMode; [rw]

  property FileName: StdString; [rw]

  property Ready: Boolean; [r]

  property FileSize: Integer; [r]

  property Password: Pointer; [rw]

  property EntryCount: Integer; [r]

  property Entries []: TRecordEntry; default; [r]

end;

TArchive

TObject