TAbSpanReadStream

type TAbSpanReadStream = class(TAbSpanBaseStream)

protected

  FCurrentImage: LongWord;

  FIsSplit: Boolean;

  FLastImage: LongWord;

  FStream: TStream;

  FOnRequestNthDisk: TAbRequestNthDiskEvent;

  procedure GotoImage();

  procedure SetOnRequestImage();

public

  constructor Create();

  destructor Destroy; override;

  function Read(); override;

  function Write(); override;

  function Seek(); override;

  procedure SeekImage();

  property OnRequestImage: TAbRequestImageEvent; [w]

  property OnRequestNthDisk: TAbRequestNthDiskEvent; [rw]

end;

TAbSpanReadStream

TAbSpanBaseStream

TObject