ExplorerListGadget automatisch nächsten Item auswählen ?

[Torr]

So jetzt habe ich ein Problem !
alle 4 sekunden startet ja der nächste Eintrag im Listgadget soweit sogut.
Nun sind meine Dateien aber unterschiedlich lang.
so z.B.
Eintrag 1 340 sek. lang
Eintrag 2 70 sek. lang
usw.
also kann ich dem Addwindowtimer ja nicht die Totale Länge als Attribut übergeben oder doch?
in deinem Beispiel MiB
Addwindowtimer (0,0,Total_Time) ??

Was schreibe ich denn hier wie peinlich
Addwindowtimer ruft ja nur jede Sekunde das Windows auf oder?

also muss ich abwarten bis Datei abgespielt wurde und dann erst nächsten Eintrag auswählen und abspielen?

[man-in-black]

Hi,

du lässt schön die Finger von dem WindowTimer.
Es ist schon richtig, dass er alle Sekunde die aktuelle Spielzeit aktualisiert. Wenn du ihm jetzt gleich die Gesamtzeit
übergibst, wird dir das TextGadget ??:?? nicht aktualisiert.
Hier veränderst du einfach die max_zeit auf die aktuelle Spieldauer des Liedes.

Code: Alles auswählen

...starte Lied
max_time = Total_Time
...spiele Lied

Möchtest du kein Feedback sondern nur das hintereinander Abspielen erreichen, genügt natürlich ein Timer über die Gesamtzeit.
Dieser muss dann für jedes Lied neu gestartet/gelöscht werden.

Code: Alles auswählen

...starte
AddTimer(0,0,spieldauer)
...spielt Lied
RemoveTimer(0,0)
...zum nächsten Lied

Im letzten Fall musst du meinen Beispielcode aber etwas umbauen.

MIB

[Torr]

Dank Dir bin ich jetzt ordentlich schlauer geworden !
Werde deine tollen Anregungen jetzt mal Stück für Stück meinem Programm übergeben
und einzelne Routinen danach neu schreiben.
Wenn ich das geschafft habe DANN MELDE
ich mich .
oh sorry capslock war an eben.

[mk-soft]

Das die Callback von BindEvent in einem eigenen Thread läuft ist so nicht Richtig.
Die Callback läuft auch im Main-Scope wo auch WaitWindowEvent() läuft. Somit gibt es auch keine Problem wenn mit den Gadget-Funktionen etwas aktualisiert wird.

Möchte man mit Threads die GUI aktualisieren für diese oft zu Problemen. Unter Linux funktioniert diese gar nicht, oder Stürzt ab. Unter Mac wird das Fenster teilweise nicht aktualisiert. Bei windows geht es meistens Gut.
Diese kann man aber mit der Funktion PostEvent lösen.

Dazu habe ich mal ein Modul geschrieben wo alles erforderlich um aus Threads die GUI zu aktualisieren beinhaltet...
Link: http://www.purebasic.fr/german/viewtopi ... =8&t=29728

[man-in-black]

Oh,

dann habe ich das wohl verwechselt. Sorry

MIB

[Torr]

Hallo Forum !
ich habe mir am Wochenende Gedanken zu meinem Programm gemacht.
Um es zu kompilieren um es dann auszuführen,
benötigt man Die Multimedia DLL libZPlay und
von TS-Soft den Wrapper(ich glaube so wird das genannt?) für PureBasic.
Ich habe die Routine dokumentiert wo ich nicht weiter komme.
Vielleicht ist es ja möglich ohne der DLL aus zukommen?
Denke mal das ich das Programm noch Optimieren kann auch wegen dem Event-Handling,
bin aber noch am lernen also Anfänger .
Ich bedanke mich jetzt schon mal bei Euch, das ihr mal ein Auge darauf geworfen hast.
hier der Code

Code: Alles auswählen

XIncludeFile "J:\Purebasic531\libzplay.pbi"
EnableExplicit
Enumeration
  #Open_Win
  #Ende
  #Play
  #Pause
  #Stop
  #Tree
  #List
  #Text_File
  #Uhrzeit
  #Status
  #Total_Time
  #Real_Time
  #Edit_Gad
  #Ausgabe
  #Check_List
EndEnumeration

Global File.s
Global EventID
Global Result
Global i.i
Global hZPlay = zplay_CreateZPlay() 
Global ID3.TID3InfoExW
Global TSI.TStreamInfo
Global TST.TStreamTime
Global THT.TStreamHMSTime
Global TSS.TStreamStatus
Global status = TSS\fplay
Global Time$
Global links.i,rechts.i,getbit.i
Global sectot,mintot,tottime,postime
Global sec,min,wahreposition,wp.f,Round
Global realtime,realsec,realmin
Global Playall.i,Max_Zeit.i,Ist_Zeit.i
OpenWindow(#Open_Win, 100,100, 1024, 768, "Testplayer Audio", #PB_Window_SystemMenu)
CanvasGadget(#Ausgabe,715,350,250,200)
ButtonGadget(#Ende,10,10,100,25,"Beenden")
ButtonGadget(#Play,110,10,100,25,"Play")
ButtonGadget(#Pause,210,10,100,25,"Pause")
ButtonGadget(#Stop,310,10,100,25,"Stop")
ExplorerTreeGadget(#Tree,10,40,700,300,"*.mp3",#PB_Explorer_NoFiles)
ExplorerListGadget(#List,10,350,700,300, "*.mp3",#PB_Explorer_NoFolders|#PB_Explorer_NoParentFolder|#PB_Explorer_MultiSelect|#PB_Explorer_List)
TextGadget(#Text_File,50,670,850,25,"")
CheckBoxGadget(#Check_List,715,40, 250, 20, "Play All in List")
If LoadFont(2, "Verdana",9) : EndIf 
For i=3 To 1 Step -1
  RemoveGadgetColumn(#List,i)
Next
SetGadgetItemAttribute(#List,0,#PB_Explorer_ColumnWidth,690) 
AddWindowTimer(0, 1, 25) 
Repeat 
  Time$ = FormatDate("%hh:%ii:%ss", Date())  
  zplay_GetVUData(hzplay,@links,@rechts)  
  zplay_GetPosition(hZPlay,@TST)     
  zplay_GetStreamInfo(hZPlay,@TSI)  
  zplay_GetStatus (hZplay,@TSS)  
  getbit= zplay_GetBitrate(hZPlay,1)
  status = TSS\fplay
  sectot=tottime%60:tottime/60
  mintot=tottime%60:tottime/60
  postime=TST\sec
  sec=postime%60:postime/60 
  min=postime%60:postime/60
  realtime= TSI\length.TStreamTime\sec
  realsec = realtime%60:realtime/60
  realmin = realtime%60:realtime/60
  wahreposition = (min*60)+sec 
  wp.f=wahreposition*100 / TSI\length.TStreamTime\sec 
  round=Int(wp.f)
  Max_Zeit = Int(realsec +(realmin*60)) ; gesamte Länge der Datei in Sekunden
  Ist_Zeit = Int(sec + (min*60))        ; Abspiel Position der Datei in Sekunden
  Repeat 
    EventID=WaitWindowEvent(1)
    Select EventID
      Case #PB_Event_Timer ; Zeige die Daten an.
        If EventTimer() = 1
          If StartDrawing(CanvasOutput(#Ausgabe))
            Box(0,0,OutputWidth(),OutputHeight())
            DrawingMode(#PB_2DDrawing_Transparent)
            DrawingFont(FontID(2))
            FrontColor($000000)
            DrawText(10,10,"Time "+Time$)
            DrawText(10,25,"Status "+status) ; Die DLL gibt hier ihren Status zurück 1= Datei wird abgespielt 0= Abspielen beendet.
            DrawText(10,40,"Gesamt Länge  "+RSet(Str(realtime),2,"0")+":"+RSet(Str(realmin),2,"0")+":"+RSet(Str(realsec),2,"0"))
            DrawText(10,55,"Position Titel     "+RSet(Str(postime),2,"0")+":"+  RSet(Str(min),2,"0")+":"+ RSet(Str(sec),2,"0"))
            DrawText(10,70,"Fortschritt "+StrF(wp.f,2)+ " % ") ; Fortschrittsanzeige in %
            DrawText(10,85,"Play_All " +Playall)               ; zeige mir ob CheckBox aktiviert ist. Hoffe das ist richtig?
            DrawText(10,100,"Zur Zeit in Sek. " +Ist_Zeit)     ;Int(sec + (min*60)))
            DrawText(10,115,"Total in Sek.     "+Max_Zeit)     ;Int(realsec +(realmin*60)))
            StopDrawing()
          EndIf
        EndIf 
    EndSelect
    If EventID=#PB_Event_Gadget
      Select EventGadget()              
        Case #Tree    ;TreeGadget       
          If EventType() = #PB_EventType_LeftClick   
            ; hier wähle ich ein Verzeichnis aus
            SetGadgetText(#List,GetGadgetText(#Tree))             
          EndIf 
        Case #List  ;Listgadget
          If EventType() = #PB_EventType_LeftClick 
            ; hier wähle ich per Maus Klick die Datei aus welche abgespielt werden soll
            ; das funktioniert auch sehr gut.
            File = GetGadgetText(#List)+GetGadgetItemText(#List, GetGadgetState(#List))
            If file <> ""
              SetGadgetText(#Text_File," Datei = " +File)               
              zplay_OpenFile(hZPlay, File, #sfAutodetect)
              zplay_Play(hZPlay)         
            EndIf
          EndIf 
        Case #Pause
          zplay_Pause(hZplay)
        Case #Play
          zplay_Play(hZPlay)
        Case #Stop
          zplay_Stop (hZplay) 
          zplay_Close(hzplay)
        Case #Check_List
          If GetGadgetState(#Check_List) = #PB_Checkbox_Checked  
            Playall = 1
          Else 
            Playall = 0
          EndIf 
          ; ab hier komme ich nicht weiter, ??
          If Playall=1 ; ist checkbox = 1 dann 
            zplay_Stop(hZPlay); erstmal alles stoppen
            File=GetGadgetText(#List)+GetGadgetItemText(#List, GetGadgetState(#List)); hole mir den eintrag heraus (ExplorerListGadget)
            If File <> ""                                                            ; ist File da dann
              zplay_OpenFile(hZPlay,File,#sfAutodetect)                              ; öffne File
              zplay_Play(hZPlay)                                                     ; spiele File ab
              If  Ist_Zeit=Max_Zeit                                                  ; Vergleich ob Ist_Zeit = Max_Zeit ist 
                If GetGadgetState(#List) > -1 And GetGadgetState(#List) < CountGadgetItems(#List)-1 ; jetzt hole ich mmir den nächsten Eintrag im Listgadget aber er springt den 
                                                                                                    ; Eintrag nicht an ?? Oder muss ich den Status überprüfen ??                                                                                                  
                                                                                                    ;
                                                                                                    ;
                                                                                                    ;
                  SetGadgetItemState(#List,GetGadgetState(#List)+1, #PB_Explorer_Selected )    
                  File = GetGadgetItemText(#List,GetGadgetState(#List),0)
                  zplay_OpenFile(hZPlay,File,#sfAutodetect)
                  zplay_Play(hZPlay)
                EndIf 
              EndIf 
            EndIf
          EndIf 
        Case #Ende       
          Result = MessageRequester("Exit", "Close Program ?", #PB_MessageRequester_YesNo)  
          If Result = #PB_MessageRequester_Yes       ; Ja-Schalter wurde gedrückt
            End
          EndIf     
      EndSelect
    EndIf 
    If EventID = #PB_Event_CloseWindow
      End
    EndIf
    
  Until EventID = 0
ForEver

[man-in-black]

Hi,

ich habe deinen Code jetzt nur mal kurz überflogen und auch nicht viel Zeit für Korrekturen.
Aber du hast in deiner Ausführung einen Fehlgedanken.
Alles nach "Case #Check_List" wird nur dann aufgerufen, wenn (primär) der Nutzer mit dem Gadget #Check_List
interargiert. Das heißt, während des Abspielens wird dieser Codeblock nicht nochmal von selbst aufgerufen!
Du musst es also so gestalten, dass außerhalb der Eventverarbeitung der Liedzustand verglichen wird.

Code: Alles auswählen

Repeat
  Event = Waitwindow...
  
  ...
  Select Event
    Case
  ...
  Endselect

  ;dein Code, der sich die aktuelle Liedzeit holt/berechnet und mit der Lieddauer vergleicht

Until Event = #PB ...

Weiterhin hast du der Lib gesagt, Sie solle dein Lied abspielen. Aber direkt dahinter hast du bereits die
Routine fürs Nachrücken gesetzt. Ich habe es jetzt nicht getestet, möcht aber wetten, dass das Lied
im Hintergrund abgespielt wird (Thread). Soll heißen, die Exe bleibt nicht an dieser Codezeile hängen und wartet,
bis das Lied durch ist.

Code: Alles auswählen

zplay_Play(hZPlay)                                                     ; spiele File ab
   If  Ist_Zeit=Max_Zeit  

MFG
MIB