Changeset 17 for trunk/Sound.pas

Timestamp:

Jan 8, 2017, 11:21:02 AM (7 years ago)

Author:

chronos

Message:

• Fixed: Build under Linux.

File:

• trunk/Sound.pas (modified) (7 diffs)

trunk/Sound.pas

@@ -4 +4 @@
 
 uses
-  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, MMSystem;
+  Messages, SysUtils, Classes, Graphics, Controls, Forms {$IFDEF WINDOWS}, MMSystem{$ENDIF};
 
 function PrepareSound(FileName: string): integer;
@@ -12 +12 @@
   TSoundPlayer = class(TForm)
   private
-    procedure OnMCI(var m: TMessage); message MM_MCINOTIFY;
+    {$IFDEF WINDOWS}
+    procedure OnMCI(var m: TMessage); message MM_MCINOTIFY;}
+    {$ENDIF}
   end;
 
 implementation
 
-{$R *.DFM}
+{$R *.dfm}
 
 type
@@ -32 +34 @@
 
 constructor TSound.Create(const FileName: string);
+{$IFDEF WINDOWS}
 var
   OpenParm: TMCI_Open_Parms;
+{$ENDIF}
 begin
+  {$IFDEF WINDOWS}
   FDeviceID := 0;
   FFileName := FileName;
@@ -46 +51 @@
     FDeviceID := OpenParm.wDeviceID;
   end
+  {$ENDIF}
 end;
 
 destructor TSound.Destroy;
 begin
+  {$IFDEF WINDOWS}
   if FDeviceID <> 0 then
-    mciSendCommand(FDeviceID, MCI_CLOSE, MCI_WAIT, 0);
+    mciSendCommand(FDeviceID, MCI_CLOSE, MCI_WAIT, 0);}
+  {$ENDIF}
   inherited Destroy;
 end;
 
 procedure TSound.Play(HWND: DWORD);
+{$IFDEF WINDOWS}
 var
   PlayParm: TMCI_Play_Parms;
+{$ENDIF}
 begin
+  {$IFDEF WINDOWS}
   if FDeviceID <> 0 then
   begin
@@ -64 +75 @@
     mciSendCommand(FDeviceID, MCI_PLAY, MCI_NOTIFY, integer(@PlayParm));
   end
+  {$ENDIF}
 end;
 
 procedure TSound.Stop;
 begin
+  {$IFDEF WINDOWS}
   mciSendCommand(FDeviceID, MCI_STOP, 0, 0);
+  {$ENDIF}
 end;
 
 procedure TSound.Reset;
 begin
+  {$IFDEF WINDOWS}
   mciSendCommand(FDeviceID, MCI_SEEK, MCI_SEEK_TO_START, 0);
+  {$ENDIF}
 end;
 
@@ -85 +101 @@
   PlayingSound: TSound;
 
+{$IFDEF WINDOWS}
 procedure TSoundPlayer.OnMCI(var m: TMessage);
 begin
@@ -93 +110 @@
   end;
 end;
+{$ENDIF}
 
 function PrepareSound(FileName: string): integer;