51c54f54ac
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@2133 8e941d3f-bd1b-0410-a28a-d453659cc2b4
133 lines
2.7 KiB
ObjectPascal
133 lines
2.7 KiB
ObjectPascal
{
|
|
A generic library for playing sound with modular backends
|
|
|
|
In the future it might be extended to be able to modify and save sound files in
|
|
multiple formats too.
|
|
|
|
Copyright: Felipe Monteiro de Carvalho 2010-2011
|
|
}
|
|
unit fpsound;
|
|
|
|
{$mode objfpc}
|
|
|
|
interface
|
|
|
|
uses
|
|
Classes, SysUtils;
|
|
|
|
type
|
|
TSoundDocument = class;
|
|
|
|
TSoundFormat = (sfWav, sfMP3);
|
|
|
|
TSoundReader = class
|
|
public
|
|
procedure ReadFromStream(AStream: TStream; ADest: TSoundDocument); virtual; abstract;
|
|
end;
|
|
|
|
TSoundPlayerKind = (spOpenAL, spMPlayer, spFMod, spExtra1);
|
|
|
|
TSoundPlayer = class
|
|
public
|
|
procedure Play(ASound: TSoundDocument); virtual; abstract;
|
|
end;
|
|
|
|
{ TSoundDocument }
|
|
|
|
TSoundDocument = class
|
|
private
|
|
AStream: TStream;
|
|
FPlayer: TSoundPlayer;
|
|
public
|
|
constructor Create; virtual;
|
|
destructor Destroy; override;
|
|
procedure LoadFromFile(AFileName: string);
|
|
procedure LoadFromFile(AFileName: string; AFormat: TSoundFormat);
|
|
procedure Play;
|
|
procedure Pause;
|
|
procedure Seek(ANewPos: Double);
|
|
procedure SetSoundPlayer(AKind: TSoundPlayerKind);
|
|
end;
|
|
|
|
procedure RegisterSoundPlayer(APlayer: TSoundPlayer; AKind: TSoundPlayerKind);
|
|
procedure RegisterSoundReader(AReader: TSoundReader; AFormat: TSoundFormat);
|
|
function GetSoundPlayer(AKind: TSoundPlayerKind): TSoundPlayer;
|
|
function GetSoundReader(AFormat: TSoundFormat): TSoundReader;
|
|
|
|
implementation
|
|
|
|
var
|
|
GSoundPlayers: array[TSoundPlayerKind] of TSoundPlayer = (nil, nil, nil, nil);
|
|
GSoundReader: array[TSoundFormat] of TSoundReader = (nil, nil);
|
|
// GSoundWriter: array[TSoundFormat] of TSoundWriter = (nil, nil);
|
|
|
|
procedure RegisterSoundPlayer(APlayer: TSoundPlayer; AKind: TSoundPlayerKind);
|
|
begin
|
|
GSoundPlayers[AKind] := APlayer;
|
|
end;
|
|
|
|
procedure RegisterSoundReader(AReader: TSoundReader; AFormat: TSoundFormat);
|
|
begin
|
|
GSoundReader[AFormat] := AReader;
|
|
end;
|
|
|
|
function GetSoundPlayer(AKind: TSoundPlayerKind): TSoundPlayer;
|
|
begin
|
|
|
|
end;
|
|
|
|
function GetSoundReader(AFormat: TSoundFormat): TSoundReader;
|
|
begin
|
|
|
|
end;
|
|
|
|
{ TSoundDocument }
|
|
|
|
constructor TSoundDocument.Create;
|
|
begin
|
|
|
|
end;
|
|
|
|
destructor TSoundDocument.Destroy;
|
|
begin
|
|
inherited Destroy;
|
|
end;
|
|
|
|
procedure TSoundDocument.LoadFromFile(AFileName: string);
|
|
var
|
|
lExt: String;
|
|
begin
|
|
lExt := ExtractFileExt(AFileName);
|
|
if CompareText(lExt, 'wav') = 0 then LoadFromFile(AFileName, sfWav)
|
|
else
|
|
raise Exception.Create(Format('[TSoundDocument.LoadFromFile] Unknown extension: %s', [lExt]));
|
|
end;
|
|
|
|
procedure TSoundDocument.LoadFromFile(AFileName: string; AFormat: TSoundFormat);
|
|
begin
|
|
|
|
end;
|
|
|
|
procedure TSoundDocument.Play;
|
|
begin
|
|
|
|
end;
|
|
|
|
procedure TSoundDocument.Pause;
|
|
begin
|
|
|
|
end;
|
|
|
|
procedure TSoundDocument.Seek(ANewPos: Double);
|
|
begin
|
|
|
|
end;
|
|
|
|
procedure TSoundDocument.SetSoundPlayer(AKind: TSoundPlayerKind);
|
|
begin
|
|
|
|
end;
|
|
|
|
end.
|
|
|