allow playback from audio stream

git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/trunk@2783 b956fd51-792f-4845-bead-9b4dfca2ff2c

1 files changed, 7 insertions, 0 deletions

diff --git a/src/media/UMedia_dummy.pas b/src/media/UMedia_dummy.pas
index 46cbe6b8..34f85226 100644
--- a/src/media/UMedia_dummy.pas
+++ b/src/media/UMedia_dummy.pas
@@ -38,6 +38,7 @@ implementation
 uses
   SysUtils,
   math,
+  Classes,
   UTime,
   UMusic,
   UPath;
@@ -90,6 +91,7 @@ type
       function Length: real;
 
       function OpenSound(const Filename: IPath): TAudioPlaybackStream;
+      function OpenSoundBuffer(Buffer: TStream; Format: TAudioFormatInfo): TAudioPlaybackStream;
       procedure CloseSound(var PlaybackStream: TAudioPlaybackStream);
       procedure PlaySound(stream: TAudioPlaybackStream);
       procedure StopSound(stream: TAudioPlaybackStream);
@@ -305,6 +307,11 @@ begin
  Result := nil;
 end;
 
+function TAudio_Dummy.OpenSoundBuffer(Buffer: TStream; Format: TAudioFormatInfo): TAudioPlaybackStream;
+begin
+ Result := nil;
+end;
+
 procedure TAudio_Dummy.CloseSound(var PlaybackStream: TAudioPlaybackStream);
 begin
 end;