Code: Alles auswählen
#Window0=1
If FSOUND_SetDriver(1) =#False :FSOUND_SetDriver(0): EndIf
FSOUND_SetMixer(#FSOUND_MIXER_QUALITY_AUTODETECT)
FSOUND_SetOutput(-1)
If FSOUND_Init(48000, 64,#FSOUND_INIT_GLOBALFOCUS | #FSOUND_INIT_ACCURATEVULEVELS)=0
End
EndIf
file$ = OpenFileRequester("Choose music","","MP3| *.mp3",0)
If file$= ""
FSOUND_Close()
End
EndIf
*hstream = FSOUND_Stream_Open(file$,#FSOUND_MPEGACCURATE,0,0)
OpenWindow(#Window0, 0, 0, 60, 60, #PB_Window_SystemMenu | #PB_Window_MinimizeGadget | #PB_Window_TitleBar , "Fmod-Test")
FSOUND_Stream_Play(1,*hstream)
Repeat
Event=WindowEvent()
Delay(1)
Until Event = #PB_EventCloseWindow
FSOUND_Stream_Close(*hstream)
FSOUND_Close()
End
Geil! Danke! Genau was ich gesucht habSoS hat geschrieben:ohne viel schnickschnackCode: Alles auswählen
#Window0=1 If FSOUND_SetDriver(1) =#False :FSOUND_SetDriver(0): EndIf FSOUND_SetMixer(#FSOUND_MIXER_QUALITY_AUTODETECT) FSOUND_SetOutput(-1) If FSOUND_Init(48000, 64,#FSOUND_INIT_GLOBALFOCUS | #FSOUND_INIT_ACCURATEVULEVELS)=0 End EndIf file$ = OpenFileRequester("Choose music","","MP3| *.mp3",0) If file$= "" FSOUND_Close() End EndIf *hstream = FSOUND_Stream_Open(file$,#FSOUND_MPEGACCURATE,0,0) OpenWindow(#Window0, 0, 0, 60, 60, #PB_Window_SystemMenu | #PB_Window_MinimizeGadget | #PB_Window_TitleBar , "Fmod-Test") FSOUND_Stream_Play(1,*hstream) Repeat Event=WindowEvent() Delay(1) Until Event = #PB_EventCloseWindow FSOUND_Stream_Close(*hstream) FSOUND_Close() End
Da sind aber schon einige Spezialitäten eingebaut. Für die meisten Zwecke reicht es auch noch simpler:ohne viel schnickschnack
Code: Alles auswählen
filename.s = OpenFileRequester("Wähle einen Song","","Ogg MP3 WAV|*.ogg;*.mp3;*.wav|all files|*.*",0)
If filename = "" : End : EndIf
OpenWindow(0, 0, 0, 100, 100, #PB_Window_SystemMenu, "")
FSOUND_Init(44100,32,0) ; 44100 Hz (standard), 32 Softwarekanäle (mehr als genug)
*hstream = FSOUND_Stream_Open(filename,0,0,0) ; öffne Stream
FSOUND_Stream_Play(1,*hstream) ; spiele Stream auf Kanal 1
Repeat
Event=WaitWindowEvent()
Until Event = #PB_EventCloseWindow
FSOUND_Stream_Close(*hstream) ; beende Stream
FSOUND_Close() ; fahre fmod runterCode: Alles auswählen
Buffer$=Space(128)
mciSendString_("OPEN sfx/HotWheels.mp3 TYPE MpegVideo ALIAS MP3",Buffer$,128,0)
mciSendString_("PLAY MP3",0,0,0)
Nur sofern man über den nötigen Codec verfügt, oder?Epyx hat geschrieben:Für nur MP3 abspielen kann man auch auf die FMod.dll verzichten.
Ist sogar noch weniger Code, <g>