TFSOpenFile

type TFSOpenFile = class(AStream)

protected

  FFileSystem: TfclFileSystem;

  FInfo: TFSEntryInfo;

  FGUID: FS_GUID;

  FPosition: Int64;

  FReader: AReaderEx;

  FWriter: AWriterEx;

  procedure LockFileSystem;

  procedure UnlockFileSystem;

  procedure ReadDirectoryEntry;

  procedure WriteDirectoryEntry();

  function GetReader; override;

  function GetWriter; override;

  function GetSize; override;

  procedure SetSize(); override;

  function GetPosition; override;

  procedure SetPosition(); override;

  function GetGUIDStr;

  function GetGUID();

public

  constructor Create();

  destructor Destroy; override;

  property GUIDStr: RawByteString; [r]

  property GUID []: Word32; [r]

  procedure GetContentType();

  procedure SetContentType();

  function Read(); override;

  function Write(); override;

end;

TFSOpenFile

AStream

TObject