TVirtualLayer_OLE

type TVirtualLayer_OLE = class(TVirtualLayer)

protected

  FDirectory: array of TWCBFStructuredStorageDirectoryEntry;

  function intfGetFreeSpace(); override;

  function intfIsWritableMedia; override;

  function intfFindList(); override;

  function intfOpenFile(); override;

  function intfCloseFile(); override;

  function intfRead(); override;

  function intfSeek(); override;

  function intfGetFileSize(); override;

  function intfWrite(); override;

  function intfSetFileSize(); override;

  function intfDeleteFile(); override;

  function intfMakeFolder(); override;

  function intfRemoveFolder(); override;

public

  procedure Format;

  function Initialize; override;

  procedure AfterConstruction; override;

  destructor Destroy; override;

end;

TVirtualLayer_OLE

TVirtualLayer

TObject