TAbSpanWriteStream

type TAbSpanWriteStream = class(TAbSpanBaseStream)

protected

  FCurrentImage: LongWord;

  FImageSize: Int64;

  FStream: TStream;

  FThreshold: Int64;

  FOnRequestBlankDisk: TAbRequestDiskEvent;

  procedure NewImage;

public

  constructor Create();

  destructor Destroy; override;

  function Read(); override;

  function Write(); override;

  function WriteUnspanned();

  function Seek(); override;

  function ReleaseStream;

  property CurrentImage: LongWord; [r]

  property OnRequestBlankDisk: TAbRequestDiskEvent; [rw]

end;

TAbSpanWriteStream

TAbSpanBaseStream

TObject