aboutsummaryrefslogtreecommitdiffstats
path: root/Game/Code/Classes
diff options
context:
space:
mode:
Diffstat (limited to '')
-rw-r--r--Game/Code/Classes/UAudioPlayback_Portaudio.pas17
1 files changed, 15 insertions, 2 deletions
diff --git a/Game/Code/Classes/UAudioPlayback_Portaudio.pas b/Game/Code/Classes/UAudioPlayback_Portaudio.pas
index 36bebc8a..c2694e6d 100644
--- a/Game/Code/Classes/UAudioPlayback_Portaudio.pas
+++ b/Game/Code/Classes/UAudioPlayback_Portaudio.pas
@@ -46,9 +46,12 @@ type
function GetLength(): real; override;
function GetStatus(): TStreamStatus; override;
- function ReadData(Buffer: PChar; BufSize: integer): integer;
-
function IsLoaded(): boolean;
+
+ // functions delegated to the decode stream
+ function GetPosition: real;
+ procedure SetPosition(Time: real);
+ function ReadData(Buffer: PChar; BufSize: integer): integer;
end;
type
@@ -269,6 +272,16 @@ begin
end;
end;
+function TPortaudioPlaybackStream.GetPosition: real;
+begin
+ result := decodeStream.Position;
+end;
+
+procedure TPortaudioPlaybackStream.SetPosition(Time: real);
+begin
+ decodeStream.Position := Time;
+end;
+
{ TAudioPlayback_Portaudio }