ich versuche heute schon den ganzen Tag verzweifelt einen Callback von FMOD hinzubekommen mit FSOUND_Stream_SetEndCallback. Bekomme es aber einfach nicht hin.
Kann mir jemand Helfen?
Danke

Lukaso
Code: Alles auswählen
Procedure.l EndCallBack(*stream.l, *buff.l, len.l, userdata.l)
Debug "EndCallBack"
ProcedureReturn 1
EndProcedure
;/
If FSOUND_Init(44000, 8, 0)
file$ = OpenFileRequester("","","MP3| *.mp3",0)
If file$= "" : FSOUND_Close() : End : EndIf
*hstream = FSOUND_Stream_Open(file$, 0, 0, 0)
FSOUND_Stream_SetEndCallback(*hstream, @EndCallBack(), 0)
OpenWindow(0, 0, 0, 90, 60, #PB_Window_ScreenCentered | #PB_Window_SystemMenu, "")
FSOUND_Stream_Play(0, *hstream)
Repeat
event=WaitWindowEvent()
Until event = #PB_EventCloseWindow
FSOUND_Stream_Stop(*hstream)
FSOUND_Stream_Close(*hstream)
FSOUND_Close()
End
EndIf