Class TWave (unit WWave)

Inherits from

TComponent

EWaveException = class(Exception);

Constructors


constructor create(aOwner : TComponent);



Functions

function Execute : boolean;


function StopSound : boolean;

Can't lock resource} (* raise EWaveException.

destructor Destroy;


function GetResourceType : string;


function GetWaveName : string;


procedure SetResourceType(Value : string);


procedure SetWaveName(Value : string);


procedure SetWhereWave(Value : TWhereWave);


Properties

property Options : TWaveOptions


property ResourceType : string


property WaveName : string


property WhereWave : TWhereWave


Events

Variables

FOptions : word;


FPalyOptions : TWaveOptions;


FResourceType : PChar;


FWaveName : PChar;


FWhereWave : TWhereWave;



Constructors


constructor create(aOwner : TComponent);


Functions


function Execute : boolean;


function StopSound : boolean;

Can't lock resource} (* raise EWaveException.Create('Can not lock resource');


destructor Destroy;


function GetResourceType : string;


function GetWaveName : string;


procedure SetResourceType(Value : string);


procedure SetWaveName(Value : string);


procedure SetWhereWave(Value : TWhereWave);


Properties


property Options : TWaveOptions


property ResourceType : string


property WaveName : string


property WhereWave : TWhereWave


Events


Variables


FOptions : word;


FPalyOptions : TWaveOptions;


FResourceType : PChar;


FWaveName : PChar;


FWhereWave : TWhereWave;