Mediaplayer mit Directx

  • VB.NET

Es gibt 1 Antwort in diesem Thema. Der letzte Beitrag () ist von TheB.

    Mediaplayer mit Directx

    Hallo ich bin momentan an einem Mediaplayer mit Directx am programmieren.
    Er hat bereits alle Funktionen die wichtig sind für einen Player,
    außer das ich bei der Pause-Funktion das Problem habe,
    die Musik-Datei an der pausierenden Stelle wieder weiterspielen zu lassen,
    und das vorspulen mit einer TrackBar ( zu dieser ich noch absolut keine Ahnung habe ?( ).

    Hierzu habe ich mir sobald der Playbutton gedrückt wird die Länge der in dem Fall MP3-Datei in eine globale Variable gespeichert.

    VB.NET-Quellcode

    1. gsLaenge = TimeSpan.FromSeconds(m_Audio.Duration).Minutes.ToString("00") & ":" & CStr(TimeSpan.FromSeconds(m_Audio.Duration).Seconds)


    Sobald nun der Pausebutton gedrückt wird merke ich mir den Punkt an dem die Datei pausiert und schreibe dies ebenfalls in eine globale Variable.
    Auch wird ein globaler boolean auf True gesetzt.

    Hier einmal Pause

    VB.NET-Quellcode

    1. Private Sub cmdPause_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdPause.Click
    3. gsAktuellePos = TimeSpan.FromSeconds(m_Audio.CurrentPosition).Minutes.ToString("00") & ":" & CStr(TimeSpan.FromSeconds(m_Audio.CurrentPosition).Seconds)
    5. m_Audio.Pause()
    6. cmdPlay.Text = ">"
    7. gbEsWarPause = True
    9. End Sub


    Und hier Play

    VB.NET-Quellcode

    1. Public Function Play()
    2. Dim fi As System.IO.FileInfo
    3. Dim finfo As New IO.DirectoryInfo(gsSuchePfad)
    4. Dim sDateiname As String
    6. If gbEsWarPause = False Then
    7. For Each fi In finfo.GetFiles
    8. sDateiname = fi.Name
    9. If Right(sDateiname, 4) = ".mp3" And sDateiname = mFunc.GetSelectedFile Then
    10. If Form1.cmdPlay.Text = ">" Then
    12. ' Start playing.
    14. Form1.cmdPlay.Text = "[]"
    15. m_Audio = New DX.Audio(gsSuchePfad & "\" & gsAusgwFile)
    16. gsLaenge = TimeSpan.FromSeconds(m_Audio.Duration).Minutes.ToString("00") & ":" & CStr(TimeSpan.FromSeconds(m_Audio.Duration).Seconds)
    17. Form1.lblLaenge.Text = gsLaenge
    18. m_Audio.Play()
    19. m_StartTime = Now
    20. Form1.Timer1.Enabled = True
    21. Else
    22. ' Stop playing.
    23. Form1.cmdPlay.Text = ">"
    24. m_Audio.Stop()
    25. m_Audio.Dispose()
    26. m_Audio = Nothing
    27. Form1.Timer1.Enabled = False
    28. Form1.lblTest.Text = ""
    29. End If
    30. End If
    31. Next
    32. Else
    33. For Each fi In finfo.GetFiles
    34. sDateiname = fi.Name
    35. If Right(sDateiname, 4) = ".mp3" And sDateiname = mFunc.GetSelectedFile Then
    36. If Form1.cmdPlay.Text = ">" Then
    37. ' Start playing.
    38. Form1.cmdPlay.Text = "[]"
    39. m_Audio = New DX.Audio(gsSuchePfad & "\" & gsAusgwFile)
    40. gsLaenge = TimeSpan.FromSeconds(m_Audio.Duration).Minutes.ToString("00") & ":" & CStr(TimeSpan.FromSeconds(m_Audio.Duration).Seconds)
    41. Form1.lblLaenge.Text = gsLaenge
    42. m_Audio.Play()
    43. m_StartTime = Now
    44. Form1.Timer1.Enabled = True
    45. End If
    46. End If
    47. Next
    48. End If
    50. End Function



    Wäre stark wenn es einige Ideen zum Punkt Pausieren und Weiterspielen sowie zum Vorspulen geben würde. :thumbsup:

    Gruß TheB


    VB-Tag eingefügt
    -Artentus

    Dieser Beitrag wurde bereits 5 mal editiert, zuletzt von „TheB“ ()

Facebook
Telefonspende