Radio streaming with bass.dll

#include <Bass.au3>
#include <BassConstants.au3>


$bass_dll = DllOpen("BASS.dll")
$bass_dl2 = DllOpen("Basswma.dll")
$BASS_CONFIG_WMA_ASX = 0x10102


_BASS_Init($bass_dll)
_BASS_PluginLoad($bass_dll, "basswma.dll")
_BASS_SetConfig($BASS_CONFIG_WMA_ASX, 1)


If @error Then
	MsgBox(0, "Error", "Could not initialize audio")
	Exit
EndIf


$file = "http://stream.transmissionfm.com:8000/breaks-high.mp3"
Dim $MusicHandle = _BASS_StreamCreateURL($file, 0, 1)


;Check if we opened the URL correctly.
If @error Then
	MsgBox(0, "Error", "Could not load audio file" & @CR & "Error = " & @error)
	Exit
EndIf


;Iniate playback
_BASS_ChannelPlay($MusicHandle, 1)


;endless loop
While 1
;------------------------------------------------------------------------------------------
	Sleep(10);adjusting this to reduce AutoItExe crashs, 10 is optimal on my pc, i think
;------------------------------------------------------------------------------------------
WEnd


Func OnAutoItExit()
;Free Resources
	MsgBox(0,"Exit",'"OnAutoItExit()" was called' & @CRLF & "Error Code: " & _BASS_ErrorGetCode())
	_BASS_Free()
EndFunc;==>OnAutoItExit




Func TestFunc($buffer, $length, $user)
;---------------------------------------------------------------------------
;!!! DO NOT PUT/CHANGE/REMOVE ANYTHING IN HERE OR IT WILL BE UNSTABLE !!!!
;---------------------------------------------------------------------------
EndFunc

#include <Bass.au3>
#include <BassConstants.au3>
#include <BassConstantsEx.au3>


$BASS_CONFIG_WMA_ASX = 0x10102
Global $BASS_DLL = DllOpen("C:\bass.dll")
_BASS_Init($BASS_DLL, 0, -1, 44100, 0, "")
If @error Then
	MsgBox(0, "Error", "Could not initialize audio")
	Exit
EndIf


$BASS_WMA = _BASS_PluginLoad($BASS_DLL, "C:\basswma.dll", 0)
If $BASS_WMA = 0 Then MsgBox(0, "Error", "Could not load plugin: 'WMA Files'" & @CRLF & @CRLF & "Some files may not play.")


$BASS_AAC = _BASS_PluginLoad($BASS_DLL, "C:\bass_aac.dll", 0)
If $BASS_AAC = 0 Then MsgBox(0, "Error", "Could not load plugin: 'AAC Files'" & @CRLF & @CRLF & "Some files may not play.")


_BASS_SetConfig($BASS_DLL,$BASS_CONFIG_WMA_ASX, 1)
_BASS_SetConfig($BASS_DLL,$BASS_CONFIG_NET_PLAYLIST, 1)
$file = "http://www.radioswissclassic.ch/live/aacp.m3u"
Dim $MusicHandle = _BASS_StreamCreateURL($BASS_DLL,$file, 0, 1)
;Check if we opened the URL correctly.
If @error Then
	MsgBox(0, "Error", "Could not load audio file" & @CR & "Error = " & @error)
	Exit
EndIf


;Iniate playback
_BASS_ChannelPlay($BASS_DLL,$MusicHandle, 1)


While 1
	Sleep (10)
WEnd

#include <Bass.au3>
#include <BassConstants.au3>
#include <BassEnc.au3>
#include <BassConstantsEx.au3>
#include <BassEncConstants.au3>
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>


$BASS_CONFIG_WMA_ASX = 0x10102
_BASS_Startup('C:\bass.dll')
_BASS_Init(0, -1, 44100, 0)
If @error Then
	MsgBox(0, "Error", "Could not initialize audio")
	Exit
EndIf


$BASS_WMA = _BASS_PluginLoad("C:\basswma.dll", 0)
If $BASS_WMA = 0 Then MsgBox(0, "Error", "Could not load plugin: 'WMA Files'" & @CRLF & @CRLF & "Some files may not play.")


$BASS_AAC = _BASS_PluginLoad("C:\bass_aac.dll", 0)
If $BASS_AAC = 0 Then MsgBox(0, "Error", "Could not load plugin: 'AAC Files'" & @CRLF & @CRLF & "Some files may not play.")


$BASS_ENC = _BASS_PluginLoad("C:\bassenc.dll", 0)
If $BASS_WMA = 0 Then MsgBox(0, "Error", "Could not load plugin: 'ENC Files'" & @CRLF & @CRLF & "Some files may not play.")


_BASS_SetConfig($BASS_CONFIG_WMA_ASX, 1)
_BASS_SetConfig($BASS_CONFIG_NET_PLAYLIST, 1)


$file = "http://www.radiololgiata.net/media/olgiata.asx"
Dim $MusicHandle = _BASS_StreamCreateURL($file, 0, 1)


;Check if we opened the URL correctly.
If @error Then
	MsgBox(0, "Error", "Could not load audio file" & @CR & "Error = " & @error)
	Exit
EndIf








$Form1 = GUICreate("Form1", 156, 103, 192, 124)
$Start = GUICtrlCreateButton("Start", 8, 8, 139, 25, $WS_GROUP)
$Stop = GUICtrlCreateButton("Stop", 8, 40, 139, 25, $WS_GROUP)
$Rec = GUICtrlCreateButton("Rec", 8, 72, 139, 25, $WS_GROUP)
GUISetState(@SW_SHOW)


While 1
	$nMsg = GUIGetMsg()
	Switch $nMsg
		Case $GUI_EVENT_CLOSE
			_BASS_Free()
			Exit
		Case $Start
			;Iniate playback
			_BASS_ChannelPlay($MusicHandle, 1)
		Case $Stop
			_BASS_ChannelStop($MusicHandle)
		Case $Rec
			If GUICtrlRead ($Rec) = "Rec" Then
				_BASS_Encode_Startup("C:\bassenc.dll")
				_BASS_Encode_Start($MusicHandle,'lame -r -x -b128 -h - "' & @DesktopDir& '\Test.mp3"', 0)
				GUICtrlSetData ($Rec,"Stop Rec")
			Else
				;_BASS_Encode_Stop($MusicHandle)
				GUICtrlSetData ($Rec,"Rec")
				EndIf






	EndSwitch
WEnd

Local $len, $progress
_BASS_StreamFree($MusicHandle)
GUICtrlSetData ($Status, "connecting...")
$MusicHandle = _BASS_StreamCreateURL($Media, 0, $BASS_STREAM_AUTOFREE)
;$BASS_STREAM_BLOCK,$BASS_STREAM_STATUS,$BASS_STREAM_AUTOFREE)
If @error Then
MsgBox(0, "Error", "")
Else
Do
$len = _BASS_StreamGetFilePosition($MusicHandle, $BASS_FILEPOS_END)
If @error Then
MsgBox (16,"Error","")
Else
Local $progress = (_BASS_StreamGetFilePosition($MusicHandle, $BASS_FILEPOS_DOWNLOAD) - _BASS_StreamGetFilePosition($MusicHandle, $BASS_FILEPOS_CURRENT)) * 100 / $len
GUICtrlSetData ($Status, $progress)
EndIf
Until $progress>75
_BASS_ChannelPlay($MusicHandle, 1)