AStream

type AStream = class

protected

  FOnCopyProgress: AStreamCopyProgressEvent;

  function GetPosition; virtual; abstract;

  procedure SetPosition(); virtual; abstract;

  function GetSize; virtual; abstract;

  procedure SetSize(); virtual; abstract;

  function GetReader; virtual; abstract;

  function GetWriter; virtual; abstract;

  procedure TriggerCopyProgressEvent(); virtual;

public

  function Read(); virtual; abstract;

  function Write(); virtual; abstract;

  property Position: Int64; [rw]

  property Size: Int64; [rw]

  function EOF; virtual;

  procedure Truncate; virtual;

  property Reader: AReaderEx; [r]

  property Writer: AWriterEx; [r]

  procedure ReadBuffer();

  function ReadByte;

  function ReadStrB();

  procedure WriteBuffer();

  procedure WriteStrB();

  procedure WriteStrU();

  procedure Assign(); virtual;

  function WriteTo();

  property OnCopyProgress: AStreamCopyProgressEvent; [rw]

end;

AStream

TObject