FMOD - Null Durchblick :(

[Leo]

Mh ich blick bei den ganzen Beispielen nicht durch ...

Kann mir jemand mal ein Beispiel geben, wo man einfach nur ein Lied auswählt, und dieses wird abgespielt...

Das würd mir sehr helfen

[SoS]

ohne viel schnickschnack

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

[Leo]

ohne viel schnickschnack

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 hab

[Froggerprogger]

ohne viel schnickschnack

Da sind aber schon einige Spezialitäten eingebaut. Für die meisten Zwecke reicht es auch noch simpler:

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 runter

[Epyx]

Für nur MP3 abspielen kann man auch auf die FMod.dll verzichten.
Ist sogar noch weniger Code, <g>

Code: Alles auswählen

 Buffer$=Space(128) 
 mciSendString_("OPEN sfx/HotWheels.mp3 TYPE MpegVideo ALIAS MP3",Buffer$,128,0) 
 mciSendString_("PLAY MP3",0,0,0) 

[traumatic]

Für nur MP3 abspielen kann man auch auf die FMod.dll verzichten.
Ist sogar noch weniger Code, <g>

Nur sofern man über den nötigen Codec verfügt, oder?
Weiß jemand, wann das der Fall ist?

[ts-soft]

@Traumatic
Wenn der Windows Media Player installiert ist, also fast immer.