From 4a0e50ba0cc5bd835aaf942b65149e9613aad86e Mon Sep 17 00:00:00 2001 From: tobigun Date: Fri, 28 Dec 2007 13:08:55 +0000 Subject: experimental positioning support added git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/trunk@753 b956fd51-792f-4845-bead-9b4dfca2ff2c --- Game/Code/Classes/UAudioPlayback_Portaudio.pas | 17 +++++++++++++++-- 1 file changed, 15 insertions(+), 2 deletions(-) (limited to 'Game') 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 } -- cgit v1.2.3