TCustomAsioHostNative

type TCustomAsioHostNative = class(TComponent)

protected

  FCore: TAsioHostCore;

  FOnCreate: TNotifyEvent;

  FOnDestroy: TNotifyEvent;

  FOnReset: TNotifyEvent;

  FOnDriverChanged: TNotifyEvent;

  FOnLatencyChanged: TNotifyEvent;

  FOnSampleRateChanged: TNotifyEvent;

  FOnBuffersChanged: TNotifyEvent;

  FOnBufferSwitch: TBufferSwitchEvent;

  FAsioDriverList: TDavAsioDriverList;

  FActive: Boolean;

  FDriverIndex: Integer;

  FDriverName: string;

  function GetDriverList;

  procedure SetActive(); virtual;

  procedure SetDriverIndex(); virtual;

  procedure ActiveChanged; virtual;

  procedure BuffersChanged; virtual;

  procedure DriverIndexChanged; virtual;

  procedure BufferSwitchHandler();

  procedure LatencyChangedHandler();

  procedure ResetHandler();

  procedure SampleRateChangedHandler();

public

  constructor Create(); override;

  destructor Destroy; override;

  function GetNumDrivers; virtual;

  procedure Reset; virtual;

  procedure SetIgnoredDriver();

  property Active: Boolean; [rw]

  property AsioTime: TAsioTimeSub; [r]

  property BufferSize: Cardinal; [r]

  property CanDos: TAsioCanDos; [r]

  property DriverIndex: Integer; [rw]

  property DriverList: TStrings; [r]

  property DriverName: string; [r]

  property DriverVersion: Integer; [r]

  property InputChannelCount: Integer; [r]

  property InputLatency: Integer; [r]

  property OutputChannelCount: Integer; [r]

  property OutputLatency: Integer; [r]

  property SampleRate: Double; [r]

  property Supports: TAsioSupports; [rw]

  property OnBuffersChanged: TNotifyEvent; [rw]

  property OnBufferSwitch: TBufferSwitchEvent; [rw]

  property OnDriverChanged: TNotifyEvent; [rw]

  property OnLatencyChanged: TNotifyEvent; [rw]

  property OnReset: TNotifyEvent; [rw]

  property OnSampleRateChanged: TNotifyEvent; [rw]

end;

TCustomAsioHostNative

TObject