ich habe ein Problem, ich möchte eine Fuktion in meinem Programm, die es Erlaubt zwischen 2 Sachen hin- und herzuschalten. Ich habe eine Art Playlist in meinem MP3 Player, man zieht einfach MP3 hinein, diese werden danach alle hintereinander abgespielt, ohne dass der Player jetzt neu anfängt zu Spielen. Jetzt möchte ich dies Abschaltbar machen, dass bei jeder neuen MP3 die hineingezogen wird, diese Gleich abgespielt wird und die alte stoppt.
Die Playlist läuft so:
Ich Schreibe alles in eine Liste:
Code: Alles auswählen
*dropped = DropFiles ()
num.l = DragQueryFile_ (*dropped , $FFFFFFFF, temp$, 0)
f$ = ""
If anstellen = 0
ClearList(playlist())
EndIf
For files = 0 To num - 1
AddElement(playlist())
playlist() = GetDropFile (*dropped, files)
Next
Disablemenu(0)
files.l = CountList(playlist())
ResetList(playlist())
count.l = 0
CreateThread(@Listplaying(), 0)
FreeDropFiles (*dropped) Code: Alles auswählen
Procedure Listplaying()
Repeat
If FSOUND_Stream_GetLength(hstream) = FSOUND_Stream_GetPosition(hstream)
SelectElement(playlist(), count)
Fmod_Close()
Fmod_Open(playlist())
Fmod_Play()
count + 1
EndIf
Delay(1)
Until files = count And FSOUND_Stream_GetLength(hstream) = FSOUND_Stream_GetPosition(hstream)
SetGadgetState(#Gadget_1, icon_stop)
EndProcedureMFG Lukaso[/list]