Changeset 352 for CoolAudio/Systems/WinAPI/UAudioSystemWindows.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/Systems/WinAPI/UAudioSystemWindows.pas (modified) (2 diffs)

CoolAudio/Systems/WinAPI/UAudioSystemWindows.pas

@@ -1 +1 @@
 unit UAudioSystemWindows;
 
-{$mode objfpc}{$H+}
+{$I UCoolAudioConfig.inc}
+{$mode delphi}{$H+}
 
 interface
@@ -187 +188 @@
   Parm: TMCI_Generic_Parms;
 begin
-  FFlags := 0;
-  if FUseNotify then
-  begin
-    if FNotify then FFlags := mci_Notify;
-    FUseNotify := False;
-  end else FFlags := mci_Notify;
-  if FUseWait then
-  begin
-    if FWait then FFlags := FFlags or mci_Wait;
-    FUseWait := False;
-  end;
-  CheckError(mciSendCommand(FDeviceID, mci_Stop, FFlags, Longint(@Parm)));
-  FPlaying := False;
+  if FPlaying then begin
+    FFlags := 0;
+    if FUseNotify then
+    begin
+      if FNotify then FFlags := mci_Notify;
+      FUseNotify := False;
+    end else FFlags := mci_Notify;
+    if FUseWait then
+    begin
+      if FWait then FFlags := FFlags or mci_Wait;
+      FUseWait := False;
+    end;
+    CheckError(mciSendCommand(FDeviceID, mci_Stop, FFlags, Longint(@Parm)));
+    FPlaying := False;
+    Position := 0;
+  end;
 end;