TSEModuleBase

type TSEModuleBase = class(TObject)

protected

  FSEAudioMaster: TSE2AudioMasterCallback;

  FEffect: TSE2ModStructBase;

  FSampleRate: Single;

  FBlockSize: Integer;

  FPins: TSEPins;

  function GetPinProperties(); virtual;

  function GetName(); virtual;

  function GetUniqueId(); virtual;

  procedure Open; virtual;

  procedure Close; virtual;

  procedure Resume; virtual;

  procedure VoiceReset(); virtual;

  procedure SampleRateChanged; virtual;

  procedure BlockSizeChanged; virtual;

  procedure PlugStateChange(); virtual;

  procedure InputStatusChange(); virtual;

  procedure MidiData(); virtual;

  procedure GuiNotify(); virtual;

  procedure HandleEvent(); virtual;

  function Dispatcher(); virtual;

public

  constructor Create(); virtual;

  destructor Destroy; override;

  function ResolveFileName();

  procedure AddEvent();

  procedure RunDelayed();

  function CallHost();

  class procedure GetModuleProperties(); virtual;

  property Effect: PSE2ModStructBase; [r]

  property Pin []: TSEPin; [r]

  property SampleClock: Cardinal; [r]

  property TotalPinCount: Integer; [r]

  property InputPinCount: Integer; [r]

  property OutputPinCount: Integer; [r]

  property SampleRate: Single; [r]

  property BlockSize: Integer; [r]

  property OnOpen: TNotifyEvent; [rw]

  property OnClose: TNotifyEvent; [rw]

  property OnProcess: TSE2ProcessEvent; [rw]

  property OnEvent: TSE2EventEvent; [rw]

  property OnMidiData: TSEMidiDataEvent; [rw]

  property OnProgramChange: TNotifyEvent; [rw]

  property OnSampleRateChange: TNotifyEvent; [rw]

  property OnBlockSizeChange: TNotifyEvent; [rw]

  property OnPlugStateChange: TSEPlugStateChangeEvent; [rw]

  property OnInputStateChanged: TSEInputStateChangedEvent; [rw]

end;

TSEModuleBase

TObject