Habe mir einen Web-Radio-Player mit der Bass.dll zusammengebastelt ... funktioniert auch ganz prima.
Nun würde ich gern noch einen Klangeffekt (vorzugsweise "Compressor") da irgendwie einbauen ... nur fehlt mir dafür einfach ALLES.
http://www.un4seen.com/doc/#bass/BASS_ChannelSetFX.html
Vielleicht hat ja einer diesen CodeSchnippsel parat.
Hier ein lauffähiges Extrakt meines Codes ... das Label "Effekte" ist mein Problem.
Die Bass.dll sollte im Script-Verzeichnis liegen.
gruss
gero
Code: Select all
#SingleInstance force
SetWorkingDir %A_ScriptDir%
SenderAdresse:="http://sc-blues.1.fm:8030/" ; Swiss Jazz Radio
Gui,Add,Button,x10 y10 w80 gPlay,play
Gui,Add,Button,x+10 yp wp gEFFEKT,Effekt
Gui,Add,Button,x+10 wp gSTOP,stop
Gui,Add,Button,x+10 wp gEXIT,exit
Gui,show,,Web-Radio
return
EFFEKT:
;????????????????
DllCall("bass.dll\BASS_ChannelSetFX", hStream,BASS_FX_DX8_COMPRESSOR,0 )
return
PLAY:
BASS_DLLCALL := DllCall("LoadLibrary", "Str", A_ScriptDir . "\bass.dll")
IF (DllCall("bass.dll\BASS_Init", "Int", -1, "UInt", 44100, "UInt", 0, "Ptr", A_ScriptHwnd, "Ptr", 0))
{
hStream := DllCall("bass.dll\BASS_StreamCreateURL", "Str", SenderAdresse, "UInt", 0, "UInt", A_IsUnicode ? BASS_UNICODE := 0x80000000 : 0, "Ptr", 0, "Ptr", 0, "UInt")
DllCall("bass.dll\BASS_ChannelPlay", "UInt", hStream, "Int", 1)
}
return
STOP:
DllCall("bass.dll\BASS_Stop")
DllCall("bass.dll\BASS_Free")
return
EXIT:
GuiClose:
DllCall("bass.dll\BASS_Free")
exitapp
