VLC-Player in VB.NET nicht scheinen zu erkennen, beenden der Wiedergabe, mache ich etwas falsch?

Meine Absicht war, mit "_MediaPlayerEndReached" zu machen das player bewegen Sie auf das nächste video, aber anstelle, sobald die Wiedergabe eines Videos abgeschlossen ist passiert nichts, er bleibt einfach stehen (wie im Bild unten).

Anstatt sich auf die nächste video, das es einfach so bleibt:

Zur info: die Clips verwendet für die Tests sind kostenlos Trailer.

Code:

Public Class Form1
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        AxVLCPlugin21.playlist.items.clear()
        AxVLCPlugin21.playlist.add("file:///C:/Users/Adminx/Downloads/The_Hobbit_Full_Length_Trailer_2_HD.mp4")
        AxVLCPlugin21.playlist.play()
    End Sub

    Private Sub AxVLCPlugin21_MediaPlayerEndReached(sender As Object, e As EventArgs) Handles AxVLCPlugin21.MediaPlayerEndReached
        AxVLCPlugin21.playlist.items.clear()
        AxVLCPlugin21.playlist.add("file:///C:/Users/Adminx/Downloads/ShortestVid.avi")
        AxVLCPlugin21.playlist.play()
    End Sub
End Class

InformationsquelleAutor Santa | 2013-01-25

0

Kann man nicht spielen andere Medien-Datei auf der EndReached () - Ereignis.
Die beste Lösung ist, erstellen Sie ein anderes Gewinde am Ende, und dieser thread wird Spielen Sie die neue Datei, nach dem eigentlichen Ende der Medien.
Gleiche wie MediaPlayer-Benutzer-Kontrolle.

Wenn Sie nicht wissen, wie zum erstellen neuer thread, das ist der einfachste Weg:
```
thread = new Thread(() => while(VLC IS PLAYING) {}; PlayNewFile;  )); 
thread.Start();
```
Habe ich nicht getestet, aber es sollte die Arbeit zu tun.

Der thread wartet auf den VLC um das video zu stoppen, und dann den nächsten.

EDIT:

check this out : DMediaPlayer - Einfach VLC frontend

und Lesen Sie in hier: .Net_Interface_to_VLC
- Wie mache ich das???
- Übertrage ich das in der event-Ende erreicht?
- setzen Sie ihn einfach in die Veranstaltung, und die "alten" Befehle nach, während in den thread.
- Das Problem mit Ihrem Vorschlag ist, wenn ich drücken Sie pause auf dem video. Die while-Schleife erkennt VLC als notplaying dann beginnt der nächste clip. Aber der erste clip ist noch nicht wirklich beendet. Gibt es eine andere Methode.
- versuchen Sie, sich für ein anderes Ereignis ist, sollte es ein Ereignis das ausgelöst wird nachdem video beendet (und nicht aufgehört), ansonsten verwenden Sie einfach MediaPlayer
- Ich kann nicht finden, eine, und, ich würde, aber VLC kann spielen eine Menge mehr Formate und generell streams-clips viel besser
- check mein edit bitte
- Seine Blicke nützlich, aber es hilft nicht, mit meinem Projekt, als seine in einer anderen Programmiersprache verfasst. Ich bin mit Visual Basic. Auch kann ich nicht einfach importieren, wie würde ich vlc ' s dlls oder wmplayer. Trotzdem danke
InformationsquelleAutor Guy

Ich habe herausgefunden, wie es zu tun, verwenden Sie einen timer. Vielen Dank für alle Hilfe

Code:

Public Class Form1
    Dim Paused As Boolean = False
    Dim Started As Boolean = False
    Dim PlayedSecond As Boolean = True
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        PlayedSecond = False
        AxVLCPlugin21.playlist.items.clear()
        AxVLCPlugin21.playlist.add("file:///C:/Users/Adminx/Downloads/The_Hobbit_Full_Length_Trailer_2_HD.mp4")
        AxVLCPlugin21.playlist.play()
        Started = True
    End Sub

    Sub playsecond()
            AxVLCPlugin21.playlist.items.clear()
            AxVLCPlugin21.playlist.add("file:///C:/Users/Adminx/Downloads/ShortestVid.avi")
            AxVLCPlugin21.playlist.play()
            PlayedSecond = True
            Started = False
    End Sub

    Private Sub AxVLCPlugin21_pause(sender As Object, e As EventArgs) Handles AxVLCPlugin21.pause
            Paused = True
    End Sub

    Private Sub IsFinished_Tick(sender As Object, e As EventArgs) Handles IsFinished.Tick
        If Not AxVLCPlugin21.playlist.isPlaying And Paused = False And Started = True And PlayedSecond = False Then
            playsecond()
            Started = True
        End If
    End Sub

    Private Sub AxVLCPlugin21_play(sender As Object, e As EventArgs) Handles AxVLCPlugin21.play
        Paused = False
    End Sub
End Class

InformationsquelleAutor Santa

Public Class Form1
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        AxVLCPlugin21.playlist.items.clear()
        AxVLCPlugin21.playlist.add("file:///C:/Users/Adminx/Downloads/The_Hobbit_Full_Length_Trailer_2_HD.mp4")
        AxVLCPlugin21.playlist.playItem(0)
    End Sub

    Private Sub AxVLCPlugin21_MediaPlayerEndReached(sender As Object, e As EventArgs) Handles AxVLCPlugin21.MediaPlayerEndReached
        AxVLCPlugin21.playlist.items.clear()
        AxVLCPlugin21.playlist.add("file:///C:/Users/Adminx/Downloads/ShortestVid.avi")
        AxVLCPlugin21.playlist.playItem(0)
    End Sub
End Class

müssen Sie tun so durch die neuen Beiträge. wenn Sie Ihren code, es wird zurückgesetzt, alle machen Ihre ersten gehen durch die post.
versucht, okay!
Neue Seagate

InformationsquelleAutor Vinh Phu

Schreibe einen Kommentar

Du musst angemeldet sein, um einen Kommentar abzugeben.