Stream through Proxy Server / get proper TagIDs?

BlitzMax Forums/MaxGUI Module/Stream through Proxy Server / get proper TagIDs?
Grisu
(Posted 2015) [#1]
Hello!

I have issues with my radio app:

1.
Users behind a proxy server can't use it as they need to input their settings (name, pw, port). Is there a http function that I can put "around" the FMod command in order to fix this?

2.
While streaming I'm reading the name of the artist and title from it.
In some cases this only gives "garbage" results. One example is "E! UA Radio". Some other radio apps display the info fine though.

Example:
'----------------------------------------------------------------
' Test App to demonstrate broken strings when reading out TagIds
'----------------------------------------------------------------

SuperStrict 

Framework Maxgui.Drivers
Import Maxgui.ProxyGadgets
Import BRL.EventQueue
Import BRL.Timer    
Import BRL.Retro 
'Import BRL.Pixmap  
'Import BRL.Pngloader
'Import BRL.Jpgloader
'Import BRL.D3D9Max2D
Import BRL.GLGraphics
Import BRL.GLMax2D
Import BRL.Random
Import Bah.FMOD ' Brucey's Mega Warpper, get latest lib version: <a href="http://www.fmod.org/fmod-downloads.html" target="_blank">http://www.fmod.org/fmod-downloads.html</a>


'----------------------------------------------------------------
' Pick a server url here...
'----------------------------------------------------------------
'Global station_url:String="http://firewall.pulsradio.org:80" ' Works!
Global station_url:String="http://etoradio.cc.colocall.com:8500/eradio_hi" ' Broken!
'----------------------------------------------------------------

Const MAINWINDOW_W:Int = 278 
Const MAINWINDOW_H:Int = 154
Const Buttonsize: Int = 32
Const BUTTON_ACTION:Int = EVENT_GADGETACTION

SetGraphicsDriver GLMax2DDriver()

Global SpectrumTimer:TTimer=CreateTimer(1)

Local Style:Int = WINDOW_TITLEBAR | WINDOW_CLIENTCOORDS | WINDOW_CENTER | WINDOW_ACCEPTFILES | WINDOW_RESIZABLE
Global MainWindow:TGadget  = CreateWindow("Proxy & Tag Test" , 0 , 0 , MAINWINDOW_W , MAINWINDOW_H , Null , Style)
SetMinWindowSize(MainWindow,MAINWINDOW_W,MAINWINDOW_H)
SetMaxWindowSize(MainWindow,MAINWINDOW_W,DesktopHeight())

Global MainPanel:TGadget = CreatePanel(0 , 0 , MAINWINDOW_W , MAINWINDOW_H , MainWindow )
SetGadgetLayout MainPanel, EDGE_ALIGNED, EDGE_ALIGNED, EDGE_ALIGNED, EDGE_ALIGNED
Global label_station_name:TGadget=CreateLabel:TGadget("Starting up...",0,3,MAINWINDOW_W,16,MainPanel,LABEL_CENTER)
Global label_station_name2:TGadget=CreateLabel:TGadget("",0,3+16,MAINWINDOW_W,16,MainPanel,LABEL_CENTER)
SetGadgetSensitivity(MainPanel, SENSITIZE_MOUSE) 
SetGadgetSensitivity(label_station_name, SENSITIZE_MOUSE) 
SetGadgetSensitivity(label_station_name2, SENSITIZE_MOUSE) 

?Not Linux
       SetGadgetFont( label_station_name, LookupGuiFont( GUIFONT_SYSTEM, 0, FONT_BOLD) )
?

SetGadgetLayout label_station_name, EDGE_ALIGNED, EDGE_ALIGNED, EDGE_ALIGNED, Null
SetGadgetLayout label_station_name2, EDGE_ALIGNED, EDGE_ALIGNED, EDGE_ALIGNED, Null

Global RadioStationCanvas:TGadget = CreateCanvas(2, MAINWINDOW_H - 100-19 , 274 , 87 , MainPanel )', PANEL_ACTIVE) '110
SetGadgetLayout RadioStationCanvas, Null, Null, EDGE_ALIGNED, Null

SetGraphics( CanvasGraphics( RadioStationCanvas ) )
SetBlend SolidBLEND

' FMOD -------------------------------------------------------------------
Global Infocounter:Int = 0 
Global playing:Int
Global tag:TFMODTag
Global stationsound:TFMODSound
Global system:TFMODSystem = New TFMODSystem.Create() ' <- FModEX Init!
Global stationchannel:TFMODChannel

Local openState:Int=-1
Local percentBuffered:Int
Local starving:Int
Local diskbusy:Int


Global result:Int=system.Init(16, FMOD_INIT_NORMAL)
If result <> FMOD_OK Then 
	Notify "YOUR SOUNDCARD IS DEAD?!", 1 ' Soundcard not found, fatal error!
	End
EndIf

SetGadgetText(label_station_name,"Connecting...") 
SetGadgetText(label_station_name2,station_url) 

stationsound:TFMODSound = system.CreateStreamURL(station_url, FMOD_DEFAULT | FMOD_NONBLOCKING | FMOD_LOWMEM | FMOD_CREATESTREAM)

Repeat

Select WaitEvent() 

Case EVENT_TIMERTICK

  	 Select EventSource()
     Case SpectrumTimer
'		SetGadgetText(label_station_name2,stationsound.GetOpenState:Int(openState:Int, percentBuffered:Int, starving:Int, diskbusy:Int))
        stationsound.GetOpenState:Int(openState:Int, percentBuffered:Int, starving:Int, diskbusy:Int)
		system.update()
     End Select

End Select 


Until (openstate=0) Or (openstate=2) 
Local error:String = FMOD_ErrorString:String(result)

If error = "No errors." And stationsound <> Null Then
	SetGadgetText(label_station_name,"Now Playing Station...") 
	SetGadgetText(label_station_name2,"") 
	stationchannel = system.PlaySound(FMOD_CHANNEL_FREE,stationsound,False) ' start streaming

EndIf 
system.update()
' -------------------------------------------------------------------

Repeat ' Main Loop
	Select WaitEvent()
	Case EVENT_WINDOWCLOSE, EVENT_APPTERMINATE
			End

	Case EVENT_TIMERTICK
		Select EventSource()
				
		Case SpectrumTimer
	          	SetGraphics( CanvasGraphics( RadioStationCanvas ) )
                Cls  

				PRP_Update_Stream_Tags() 
            
	     End Select 
     End Select 

    system.update()
Forever
End


Function PRP_Update_Stream_Tags() 
' Display the stream tag id's 

While True
	Local tag:TFMODTag = stationsound.GetTag(Null, -1)
	If Not tag Then
		Exit
	End If
	
	If tag.GetDataType() = FMOD_TAGDATATYPE_STRING Then
		Print tag.GetName() + " = " +  tag.GetDataAsString()
	Else
		Print tag.GetName() + " = <binary> (" + tag.GetDataLength() + " bytes)"
	End If
Wend 	

Local numTags:Int
Local numTagsUpdated:Int

' Read all the tags regardless of whether they're updated or not. Also show the tag type.
' stationsound.GetNumTags(numTags, numTagsUpdated)
 For Local count:Int = 0 Until numTags
	Local tag:TFMODTag = stationsound.GetTag(Null, count)
	
	Local tagType:String
	
	Select tag.GetTagType()
		Case FMOD_TAGTYPE_UNKNOWN
			tagType = "FMOD_TAGTYPE_UNKNOWN  "
		Case FMOD_TAGTYPE_ID3V1
			tagType = "FMOD_TAGTYPE_ID3V1  "
		Case FMOD_TAGTYPE_ID3V2
			tagType = "FMOD_TAGTYPE_ID3V2  "
		Case FMOD_TAGTYPE_VORBISCOMMENT
			tagType = "FMOD_TAGTYPE_VORBISCOMMENT  "
		Case FMOD_TAGTYPE_SHOUTCAST
			tagType = "FMOD_TAGTYPE_SHOUTCAST  "
		Case FMOD_TAGTYPE_ICECAST
			tagType = "FMOD_TAGTYPE_ICECAST  "
		Case FMOD_TAGTYPE_ASF
			tagType = "FMOD_TAGTYPE_ASF  "
		Case FMOD_TAGTYPE_FMOD
			tagType = "FMOD_TAGTYPE_FMOD  "
		Case FMOD_TAGTYPE_USER
			tagType = "FMOD_TAGTYPE_USER  "
	End Select
	
  Next

If stationchannel Then 

If Infocounter = 0 Then 
SetGadgetText(label_station_name,"Now Playing Station...") 
SetGadgetText(label_station_name2,"") 

If stationsound <> Null Then 'And ini_buffer_status=1 Then 
	Local percentBuffered:Int=0
	Local starving:Int 
	Local openstate:Int
	Local diskbusy:Int
	
	?win32 
	stationsound.GetOpenState:Int(openState:Int, percentBuffered:Int, starving:Int, diskbusy:Int)        
      ?
      ?macos
	stationsound.GetOpenState:Int(openState:Int, percentBuffered:Int, starving:Int, diskbusy:Int)        
      ?
      ?linux
	stationsound.GetOpenState:Int(openState:Int, percentBuffered:Int, starving:Int, diskbusy:Int)        
      ?

	SetGadgetText(Label_station_name2, " @ "+percentBuffered+"%") 

	?debug
	If diskbusy=1 Then DebugLog "FMOD MSG: Disk busy!"
	?
Else 
      SetGadgetText (label_station_name2, "") 
EndIf   
		
?

InfoCounter:Int=1

Else  ' Show Tag info

Local Artist:String=""
Local Title:String=""

'Print "yes, updating this..."

tag:TFMODTag = stationsound.GetTag("TITLE", 0)
If tag <> Null Then 
   Local tmpstr:String

   Try 
    tmpstr:String=tmpstr.FromUTF8String( tag.GetDataAsString() ) 
   Catch a$
   EndTry 

   If Len(tmpstr) > 0 Then 
   Title:String=tmpstr

   tmpstr:String=Left(tmpstr,52) ' Max length Song name!
    SetGadgetText (label_station_name2 , tmpstr)   
   EndIf 

EndIf 

tag:TFMODTag = stationsound.GetTag("ARTIST", 0)
If tag <> Null Then 
   Local tmpstr:String
   Try 
   tmpstr:String=tmpstr.FromUTF8String( tag.GetDataAsString() ) 
   Catch a$ 
   EndTry

   If Len(tmpstr) > 0 Then 
     Artist:String=tmpstr

	 tmpstr:String=Left(tmpstr,46)
     SetGadgetText (label_station_name, tmpstr) 

'   Else 
 '    SetGadgetText(Label_station_name2, "")
  EndIf  
EndIf 

Infocounter = 0 

EndIf ' Infocounter switch 
 

EndIf 'stationchannel

End Function


Function GetFMODOpenstate:String(openstate:Int)
Select openstate 
Case 0
	Return " - Ready!" 'Opened And ready To play. 
Case 1
	Return " - Loading!" 'Initial Load in progress. 
Case 2
	Return " - Error!" 'Failed To open - file Not found, out of memory etc. See Return value of Sound::getOpenState For what happened. 
Case 3
	Return ""'Connecting"' Connecting To remote host (internet sounds only). 
Case 4
	Return " - Buffering!" 'Buffering data. 
Case 5
	Return " - Seeking!" 'Seeking To subsound And re-flushing stream buffer. 
Case 6
	Return ""'Playing" 'Ready And playing, but Not possible To Release at this time without stalling the Main thread. 
Case 7
	Return " - Set Position!" 'Seeking within a stream To a different position. 
Case 8
	Return " - Max!" 'Maximum number of open state types. 
End Select 
End Function
Also I uploaded the example above with source (includes Brucey's updated Fmod wrapper) here: http://www.mediafire.com/download/7vnjobc4y8w6jn1/_TAGTest.zip

Thanks in advance
Grisu