Class TSoundEngine (unit DXSounds)

Inherits from

TObject

TSoundEngine

Constructors


constructor Create(ADSound: TDirectSound);

TSoundEngine


Functions

procedure Clear;


destructor Destroy;


procedure EffectFile(const Filename: string; Loop, Wait: Boolean);


procedure EffectStream(Stream: TStream; Loop, Wait: Boolean);


procedure EffectWave(Wave: TWave; Loop, Wait: Boolean);


function GetEffect(Index: Integer): TDirectSoundBuffer;


function GetEffectCount: Integer;


procedure SetEnabled(Value: Boolean);


procedure TimerEvent(Sender: TObject);


Properties

property EffectCount : Integer


property Effects : TDirectSoundBuffer


property Enabled : Boolean


Events

Variables

FDSound : TDirectSound;


FEffectList : TList;


FEnabled : Boolean;


FTimer : TTimer;



Constructors


constructor Create(ADSound: TDirectSound);

TSoundEngine


Functions


procedure Clear;


destructor Destroy;


procedure EffectFile(const Filename: string; Loop, Wait: Boolean);


procedure EffectStream(Stream: TStream; Loop, Wait: Boolean);


procedure EffectWave(Wave: TWave; Loop, Wait: Boolean);


function GetEffect(Index: Integer): TDirectSoundBuffer;


function GetEffectCount: Integer;


procedure SetEnabled(Value: Boolean);


procedure TimerEvent(Sender: TObject);


Properties


property EffectCount : Integer


property Effects : TDirectSoundBuffer


property Enabled : Boolean


Events


Variables


FDSound : TDirectSound;


FEffectList : TList;


FEnabled : Boolean;


FTimer : TTimer;