Discussion :

[Triguns]

Bonjour à tous et à toutes!

Voila je souhaiterais lancer une vidéo depuis mon disque dur grâce à un bouton sous VB.NET!

J'ai ajoutée une référence activeX de VLC

voici mon code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
 
        Dim test As New Global.AXVLC.VLCPlugin
 
        Dim VlcOption = New String(9) {":extraintf=http", ":http-host=:8080", ":http-charset=ISO-8859-1", ":http-src='c:\http-fbx'", ":sout='#std'", ":sout-standard-access=udp", ":sout-standard-mux=ts", ":sout-standard-url=212.27.38.253:1234", ":sout-ts-pid-video=68", ":sout-ts-pid-audio=69"}
 
        test.addTarget("D:\Vidéos\Film\Rayponce.avi", VlcOption, Global.AXVLC.VLCPlaylistMode.VLCPlayListReplaceAndGo, -666)
 
        test.play()
 
    End Sub

mais cela ne fonctionne pas! Pourriez Vous m'aider s'il vous plaît

[mido1951]

bonjour,
pour votre cas vous pouvez utiliser le WindowsMediaPlayer c'est mieux que VLC.
et c'est plus facile.

[Triguns]

Oui pourquoi mais aurais tu un exemple de code à me fournir s'il te plait

[Triguns]

C'est bon réussi pour finir

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Public Class Form1
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim test As New Global.AXVLC.VLCPlugin
        test.playlistClear()
        test.addTarget("D:\Vidéo\Film\Rayponce.avi", Nothing, Global.AXVLC.VLCPlaylistMode.VLCPlayListReplaceAndGo, 0)
 
        test.play()
    End Sub
 
End Class