TDAVProcessingComponent

type TDAVProcessingComponent = class(TComponent)

protected

  FBypass: Boolean;

  FEnabled: Boolean;

  FSampleRate: Single;

  FChannels: Integer;

  FTrailingSamples: Integer;

  FProcessS: TDspBaseProcessFuncS;

  FProcessD: TDspBaseProcessFuncD;

  FProcessSA: TDspBaseProcessFuncSA;

  FProcessDA: TDspBaseProcessFuncDA;

  FProcessSAA: TDspBaseProcessFuncSAA;

  FProcessDAA: TDspBaseProcessFuncDAA;

  FProcessQueueS: TDspBaseProcessFuncS;

  FProcessQueueD: TDspBaseProcessFuncD;

  FProcessQueueSA: TDspBaseProcessFuncSA;

  FProcessQueueDA: TDspBaseProcessFuncDA;

  FProcessQueueSAA: TDspBaseProcessFuncSAA;

  FProcessQueueDAA: TDspBaseProcessFuncDAA;

  function GetTrailingSamplesQueue; virtual; abstract;

  procedure SetBypass(); virtual; abstract;

  procedure SetEnabled(); virtual; abstract;

  procedure SetSampleRate(); virtual; abstract;

  procedure SetChannels(); virtual; abstract;

  procedure SetTrailingSamples(); virtual; abstract;

public

  procedure Init; virtual; abstract;

  procedure Reset; virtual; abstract;

  procedure ResetQueue; virtual; abstract;

  procedure NoteOff; virtual; abstract;

  procedure NoteOffQueue; virtual; abstract;

  procedure ProcessMidiEvent(); virtual; abstract;

  procedure ProcessMidiEventQueue(); virtual; abstract;

  property Enabled: Boolean; [rw]

  property Bypass: Boolean; [rw]

  property Channels: Integer; [rw]

  property SampleRate: Single; [rw]

  property TrailingSamples: Integer; [rw]

  property TrailingSamplesQueue: Integer; [r]

  property ProcessS: TDspBaseProcessFuncS; [r]

  property ProcessD: TDspBaseProcessFuncD; [r]

  property ProcessSA: TDspBaseProcessFuncSA; [r]

  property ProcessDA: TDspBaseProcessFuncDA; [r]

  property ProcessSAA: TDspBaseProcessFuncSAA; [r]

  property ProcessDAA: TDspBaseProcessFuncDAA; [r]

  property ProcessQueueS: TDspBaseProcessFuncS; [r]

  property ProcessQueueD: TDspBaseProcessFuncD; [r]

  property ProcessQueueSA: TDspBaseProcessFuncSA; [r]

  property ProcessQueueDA: TDspBaseProcessFuncDA; [r]

  property ProcessQueueSAA: TDspBaseProcessFuncSAA; [r]

  property ProcessQueueDAA: TDspBaseProcessFuncDAA; [r]

end;

TDAVProcessingComponent

TObject