Changeset 276 for CoolAudio/Systems/UAudioSystemFMOD.pas

Timestamp:

Oct 4, 2011, 1:18:33 PM (13 years ago)

Author:

george

Message:

• Modified: MPlayer system now play audio files.

File:

• CoolAudio/Systems/UAudioSystemFMOD.pas (modified) (8 diffs)

CoolAudio/Systems/UAudioSystemFMOD.pas

@@ -10 +10 @@
 type
 
-  { TFMODAudioSystem }
+  { TAudioSystemFMOD }
 
-  TFMODAudioSystem = class(TAudioSystem)
+  TAudioSystemFMOD = class(TAudioSystem)
   private
     procedure SetOutputMode(AValue: TOutputDriver); override;
@@ -20 +20 @@
   end;
 
-  { TFMODPlayer }
+  { TPlayerFMOD }
 
-  TFMODPlayer = class(TPlayer)
+  TPlayerFMOD = class(TPlayer)
   private
     FHandle: PFSoundStream;
@@ -41 +41 @@
 implementation
 
-{ TFMODAudioSystem }
+{ TAudioSystemFMOD }
 
-procedure TFMODAudioSystem.SetOutputMode(AValue: TOutputDriver);
+procedure TAudioSystemFMOD.SetOutputMode(AValue: TOutputDriver);
 begin
   inherited SetOutputMode(AValue);
@@ -56 +56 @@
 end;
 
-constructor TFMODAudioSystem.Create;
+constructor TAudioSystemFMOD.Create;
 begin
   inherited Create;
@@ -64 +64 @@
 end;
 
-destructor TFMODAudioSystem.Destroy;
+destructor TAudioSystemFMOD.Destroy;
 begin
   FMOD_Unload;
@@ -70 +70 @@
 end;
 
-{ TFMODPlayer }
+{ TPlayerFMOD }
 
-function TFMODPlayer.GetLength: TDateTime;
+function TPlayerFMOD.GetLength: TDateTime;
 begin
   Result := FVolume;
 end;
 
-function TFMODPlayer.GetPosition: TDateTime;
+function TPlayerFMOD.GetPosition: TDateTime;
 begin
 
 end;
 
-function TFMODPlayer.GetVolume: Real;
+function TPlayerFMOD.GetVolume: Real;
 begin
   Result := FSOUND_GetVolume(0) / 256;
 end;
 
-function TFMODPlayer.GetMuted: Boolean;
+function TPlayerFMOD.GetMuted: Boolean;
 begin
   Result := FSOUND_GetMute(0);
 end;
 
-procedure TFMODPlayer.SetPosition(AValue: TDateTime);
+procedure TPlayerFMOD.SetPosition(AValue: TDateTime);
 begin
   if FPlaying then FSOUND_Stream_SetPosition(FHandle, Trunc(AValue / OneMillisecond));
 end;
 
-procedure TFMODPlayer.SetVolume(AValue: Real);
+procedure TPlayerFMOD.SetVolume(AValue: Real);
 begin
   FSOUND_SetVolume(0, Trunc(AValue * 256));
 end;
 
-procedure TFMODPlayer.SetMuted(AValue: Boolean);
+procedure TPlayerFMOD.SetMuted(AValue: Boolean);
 begin
   FSOUND_SetMute(0, AValue)
 end;
 
-procedure TFMODPlayer.Play;
+procedure TPlayerFMOD.Play;
 begin
   //FHandle := FSOUND_Stream_Open(tmpp, FSOUND_NONBLOCKING, 0, 0);
@@ -113 +113 @@
 end;
 
-procedure TFMODPlayer.Pause;
+procedure TPlayerFMOD.Pause;
 begin
   if FPlaying then
@@ -119 +119 @@
 end;
 
-procedure TFMODPlayer.Stop;
+procedure TPlayerFMOD.Stop;
 begin
   if FPlaying then begin