Streamed OggVorbis Player

TOggVorbis
 Method Play()
 Method SetVolume(Volume:Float)
  - from 0.0 till 1.0
 Method State:Int()
  - STATE_INITIAL
  - STATE_PLAYING
  - STATE_PAUSED
  - STATE_STOPPED
 Method Stop()
 Method Pause()
 Method Length:Long()
  - in milliseconds
 Method Seek(Milliseconds:Long)
 Method Position:Long()
  - decode position in milliseconds
 Method Decode()
 Function Load:TOggVorbis(URL:OBject)

SuperStrict

Framework Vertex.OpenAL
Import "OggVorbis.bmx"

Global Device  : Byte Ptr, ..
       Context : Byte Ptr, ..
       Song    : TOggVorbis

Device = alcOpenDevice(Null)
Context = alcCreateContext(Device, Null)
alcMakeContextCurrent(Context)

Song = TOggVorbis.Load("The Dandy Warhols - Bohemian like you.ogg")
Song.Play()
While Song.State() = STATE_PLAYING
	Song.Decode()
	Delay(10)
Wend

alcMakeContextCurrent(Null)
alcDestroyContext(Context)
alcCloseDevice(Device)
End

Linking:Example
ld: archive: /Applications/BlitzMax/mod/vertex.mod/openal.mod/openal32.lib has no table of contents, add one with ranlib(1) (can't load from it)
ld: archive: /Applications/BlitzMax/mod/vertex.mod/openal.mod/alut.lib has no table of contents, add one with ranlib(1) (can't load from it)
Build Error: Failed to link /Users/degac/Desktop/oggvorbis Folder/Example.app/Contents/MacOS/Example
Process complete

	Function LoadWAV:TSound(URL:Object)
		Const CHUNK_RIFF : Int = $46464952, ..
		      CHUNK_WAVE : Int = $45564157, ..
		      CHUNK_FMT  : Int = $20746D66, ..
		      CHUNK_DATA : Int = $61746164
	
		Type TFmt
			Field Compression   : Short
			Field Channels      : Short
			Field SamplingRate  : Int
			Field BytesPerSec   : Int
			Field BlockAlign    : Short
			Field BitsPerSample : Short
	
			Method Read(Stream:TStream)
				Self.Compression = Stream.ReadShort()
				If Self.Compression <> 1 Then Return
		
				Self.Channels      = Stream.ReadShort()
				Self.SamplingRate  = Stream.ReadInt()
				Self.BytesPerSec   = Stream.ReadInt()
				Self.BlockAlign    = Stream.ReadShort()
				Self.BitsPerSample = Stream.ReadShort()
			End Method
	
			Method GetALFormat:Int()
				If Self.Channels = 1 Then
					If Self.BitsPerSample = 8 Then
						Return AL_FORMAT_MONO8
					ElseIf Self.BitsPerSample = 16 Then
						Return AL_FORMAT_MONO16
					Else
						Return 0
					EndIf
	
				ElseIf Self.Channels = 2 Then
					If Self.BitsPerSample = 8 Then
						Return AL_FORMAT_STEREO8
					ElseIf Self.BitsPerSample = 16 Then
						Return AL_FORMAT_STEREO16
					Else
						Return 0
					EndIf
	
				Else
					Return 0
				EndIf
			End Method
		End Type
	
		Local Stream : TStream, ..
		      Chunk  : Int, ..
		      Size   : Int, ..
		      Fmt    : TFMT, ..
		      Length : Int, ..
		      Data   : Byte Ptr, ..
		      Sound  : TSound
	
		If Not TDevice.Device Then Return Null
	
		Stream = ReadStream(URL)
		If Not Stream Then Return Null
	
		Chunk = Stream.ReadInt()
		Size  = Stream.ReadInt()
		If Chunk <> CHUNK_RIFF Then Return Null
	
		Chunk = Stream.ReadInt()
		If Chunk <> CHUNK_WAVE Then Return Null
	
		Chunk = Stream.ReadInt()
		Size  = Stream.ReadInt()
		If Chunk <> CHUNK_FMT Then Return Null
	
		Fmt = New TFmt
		Fmt.Read(Stream)
		If Fmt.Compression <> 1 Then Return Null
		If Size > 16 Then Stream.SkipBytes(Size - 16)
	
		While Not Stream.Eof()
			Chunk = Stream.ReadInt()
			Size  = Stream.ReadInt()
			If Chunk <> CHUNK_DATA Then
				Stream.SkipBytes(Size)
				Continue
			Else
				Exit
			EndIf
		Wend
		If Stream.Eof() Then Return Null
	
		Length = Size/(Fmt.BitsPerSample/8)
		Data = MemAlloc(Size)
		If Stream.Read(Data, Size) <> Size Then
			MemFree(Data)
			Return Null
		EndIf
	
		Stream.Close()

		Sound = New TSound
		Sound.Format       = Fmt.GetALFormat()
		Sound.SamplingRate = Fmt.SamplingRate
		Sound.Size         = Size
		alBufferData(Sound.Buffer, Sound.Format, Data, Size, ..
		             Fmt.SamplingRate)
		MemFree(Data)

		Return Sound
	End Function

	Method SetVolume(Volume:Float)
		alSourcei(Self.Source, AL_GAIN, Volume)
	End Method

	Method SetVolume(Volume:Float)
		alSourcef(Self.Source, AL_GAIN, Volume)
	End Method