Mit PB & den Movie befehlen nicht möglich. Such mal im Forum nach ID3
Eigentlich werden hier ja nur Tipps gepostet, keine komplett veränderten Codes. Wie auch immer. Habe den Code so verbessert das er funktionieren sollte.
Ich denke mal du bekommst den rest selbst hin.
Gruß Marvin
Code: Alles auswählen
Enumeration
#Window_0
EndEnumeration
Volume = 100
Enumeration
#String_0
#play ; mit benannten Konstanten lässt es sich leichter arbeiten.
#stop
#pause
#volume
EndEnumeration
If InitMovie() = 0
MessageRequester("Error", "ERROR!", 0)
End
EndIf
If OpenWindow(#Window_0, 110, 110, 300, 200, "Player", #PB_Window_SystemMenu | #PB_Window_MinimizeGadget | #PB_Window_SizeGadget | #PB_Window_TitleBar | #PB_Window_WindowCentered )
EndIf
If CreateMenu(0, WindowID(0))
MenuTitle("Datei")
MenuItem(0, "Öffne Datei")
MenuBar()
MenuItem(2, "Playlist Öffnen")
MenuItem(3, "Playlist Speichern")
MenuBar()
MenuItem(1, "Beenden")
MenuTitle("Abspielen")
MenuItem(5, "Pause")
MenuItem(6, "Stop")
MenuBar()
MenuItem(7, "Wiederholen")
MenuItem(8, "Zufallsmodus")
MenuTitle("Optionen")
MenuBar()
MenuItem(9,"Einstellungen")
EndIf
If CreateGadgetList(WindowID(#Window_0))
StringGadget(#String_0, 15, 15, 270,21,"", #PB_String_ReadOnly)
ButtonGadget(#play, 10, 50, 80, 30,"Play")
ButtonGadget(#stop, 10, 80, 80, 30,"Stop")
ButtonGadget(#pause, 10, 110, 80,30,"Pause")
TrackBarGadget(#volume, 5, 150, 287, 60, 0, 100,#PB_TrackBar_Ticks)
SetGadgetState(#volume,100) ; Änderung hier..
GadgetToolTip(#volume, "Volume")
ListViewGadget(80, 110, 50, 175, 100)
EndIf
Repeat
Select WaitWindowEvent()
Case #PB_Event_CloseWindow
Break ; fenster schliessen wurde gedrückt
Case #PB_Event_Menu
Select EventMenu()
Case 0 ; Öffne Datei
MovieName.s = OpenFileRequester("Bitte wählen sie den gewünschten Musiktitel!", "", "Audiodateien|*.mp3;*.avi;*.wav;*.mid;*.ram;*.wma;*.aif|Alle Dateien|*.*", 1)
If MovieName.s ;überprüfe ob eine Datei ausgewählt wurde
If IsMovie(1)
FreeMovie(1) ; wenn schon ein Movie geladen wurde, muss das alte freigegeben werden
EndIf
LoadMovie(1, MovieName.s)
EndIf
Case 1; Beenden
Break
EndSelect
Case #PB_Event_Gadget
Select EventGadget()
Case #play
If IsMovie(1)
If Not MovieStatus(1) > 0
PlayMovie(1, WindowID(0))
Else
ResumeMovie(1)
EndIf
EndIf
Case #stop
If IsMovie(1)
StopMovie(1)
EndIf
Case #pause
If IsMovie(1)
PauseMovie(1)
EndIf
Case #volume
If IsMovie(1)
MovieAudio(1,GetGadgetState(#volume),0)
EndIf
Case #String_0
; SetGadgetText(0, ReplaceString(GetGadgetText(0),",","."))
EndSelect
EndSelect
ForEver