Code: Alles auswählen
If FSOUND_Init(44100,32,0)= 0
MessageRequester("Fehler","Die Library 'FMOD.DLL' konnte nicht geöffnet werden werden")
End
EndIf
text.s = OpenFileRequester("Open Stream","","*.*|*.*",0)
If text = ""
End
EndIf
x = FSOUND_Stream_Open(text,0,0,0)
If x = 0
MessageRequester("Fehler","Datei konnte nicht geöffnet werden!")
End
EndIf
channel = FSOUND_Stream_Play(#FSOUND_FREE,x)
If channel = -1
MessageRequester("Fehler","Stream konnte nicht gestartet werden!")
End
EndIf
Delay(5000)
If FSOUND_Stream_Stop(x) = 0
MessageRequester("Fehler","Stream konnte nicht gestoppt werden!")
End
EndIf
channel2 = FSOUND_Stream_Play(channel,x)
If channel2 = -1
MessageRequester("Fehler","Stream konnte nicht wiedergestartet werden!")
End
EndIf
Debug channel
Debug channel2
Delay(5000)
FSOUND_Close()