Changeset 352 for CoolAudio/UPlaylist.pas

Timestamp:

Apr 23, 2012, 1:32:52 PM (12 years ago)

Author:

chronos

Message:

• Modified: Supported AudioSystems is configured using include config file.
• Added: Added playlist demo to Demo player.
• Added: Working DSP audiosystem for playing using linux /dev/dsp device. DSP backend support only WAV file so far.

File:

• CoolAudio/UPlaylist.pas (modified) (3 diffs)

CoolAudio/UPlaylist.pas

@@ -6 +6 @@
 
 uses
-  Classes, SysUtils, Contnrs;
+  Classes, SysUtils, Contnrs, UAudioSystem;
 
 type
   TPlaylistItem = class
-
+    FileName: string;
   end;
 
@@ -16 +16 @@
 
   TPlaylist = class(TComponent)
+  public
+    Player: TPlayer;
     Items: TObjectList; // TObjectList<TPlaylistItem>
+    RandomOrder: Boolean;
+    RepeatInfinitely: Boolean;
+    CurrentIndex: Integer;
+    procedure AddFile(FileName: string);
+    procedure Shuffle;
+    procedure Play;
+    procedure PlayNext;
+    procedure PlayPrevious;
     constructor Create(AOwner: TComponent);
     destructor Destroy; override;
@@ -25 +35 @@
 
 { TPlaylist }
+
+procedure TPlaylist.AddFile(FileName: string);
+var
+  NewItem: TPlaylistItem;
+begin
+  NewItem := TPlaylistItem.Create;
+  NewItem.FileName := FileName;
+  Items.Add(NewItem);
+end;
+
+procedure TPlaylist.Shuffle;
+begin
+
+end;
+
+procedure TPlaylist.Play;
+begin
+  Player.FileName := TPlaylistItem(Items[CurrentIndex]).FileName;
+  Player.Play;
+end;
+
+procedure TPlaylist.PlayNext;
+begin
+  Inc(CurrentIndex);
+  if CurrentIndex >= Items.Count then begin
+    CurrentIndex := 0;
+    if RandomOrder then Shuffle;
+    if not RepeatInfinitely then Player.Stop;
+  end;
+  Play;
+end;
+
+procedure TPlaylist.PlayPrevious;
+begin
+  Dec(CurrentIndex);
+  if CurrentIndex < 0 then begin
+    CurrentIndex := Items.Count - 1;
+  end;
+  Play;
+end;
 
 constructor TPlaylist.Create(AOwner: TComponent);