TACSCustomOutput

type TACSCustomOutput = class(TComponent)

protected

  CanOutput: Boolean;

  CurProgr: real;

  Thread: TACSThread;

  FInput: TACSCustomInput;

  FOnDone: TACSOutputDoneEvent;

  FOnProgress: TACSOutputProgressEvent;

  Busy: Boolean;

  FOnThreadException: TACSThreadExceptionEvent;

  InputLock: Boolean;

  FBufferSize: Integer;

  FBuffer: PACSBuffer8;

  function GetPriority;

  function GetSuspend;

  function GetProgress;

  procedure SetInput(); virtual;

  procedure SetPriority();

  procedure SetSuspend();

  procedure WhenDone;

  function GetTE;

  function GetStatus;

  function GetDelay;

  procedure SetDelay();

  procedure Notification(); override;

  procedure HandleThreadException();

  procedure SetBufferSize();

public

  procedure Prepare; virtual;

  function DoOutput(); virtual; abstract;

  procedure Done; virtual; abstract;

  constructor Create(); override;

  destructor Destroy; override;

  procedure Pause; virtual;

  procedure Resume; virtual;

  procedure Run;

  procedure Stop;

  property Delay: Integer; [rw]

  property ThreadPriority: TTPriority; [rw]

  property Progress: real; [r]

  property Status: TACSOutputStatus; [r]

  property TimeElapsed: Integer; [r]

published

  property Input: TACSCustomInput; [rw]

  property SuspendWhenIdle: Boolean; [rw]

  property OnDone: TACSOutputDoneEvent; [rw]

  property OnProgress: TACSOutputProgressEvent; [rw]

  property OnThreadException: TACSThreadExceptionEvent; [rw]

  property BufferSize: Integer; [rw]

end;

TACSCustomOutput

TObject