diff options
Diffstat (limited to 'src/media/UMedia_dummy.pas')
-rw-r--r-- | src/media/UMedia_dummy.pas | 7 |
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; |