utiliser le lecteur VLC [ RESOLU ]

Bonjour ,

J'ai suivis la vidéo pour utiliser un open file dialog et j'ai réussi a faire ouvrir un film avec Windows Medias Player en changant la propriété URL ; MAIS dans le lecteur il n'y a pas la propriété URL juste MRL er baseURL .J'ai testé les 2 mais rien ne se lanse ...

Merci

Bonne journée

Salut,

Après une petite recherche sur internet sur le contrôle axVLCPlugin, j'ai put trouvé qu'il faut utiliser l'action Exécuter du code vb.net, et mette le code suivant :

Code:

axVLCPlugin1.addtarget("C:\Mon Film.Avi", ":vout-filter=output-filter", 12, 0) ' On ajoute une vidéo à la liste des lectures
axVLCPlugin1.play() ' On joue la vidéo

Dans un premier temps on ajoute une vidéo à la playliste du lecteur, et ensuite on la lit

pour plus d'information regarde cette page : http://wiki.videolan.org/ActiveX#Introduction

@+

re ,
EHH , moi , j'utilise un OpenFileDialog et le fichier est "enregistré" dans la variable %(var_file_location)% mon code donne donc :

axVLCPlugin1.addtarget("%(var_file_location)%", ":vout-filter=output-filter", 12, 0) ' On ajoute une vidéo à la liste des lectures
axVLCPlugin1.play() ' On joue la vidéo

et là erreur de génération

Mon plugin VLC est : axVLCPlugin21

Merci
cordialement

Google est ton ami

Après une recherche sur AxVLCPlugin2, j'ai trouve cela :

Code:

axVLCPlugin21.playlist.add("%(var_file_location)%")
axVLCPlugin21.playlist.play()

NB = n'oublie pas, dans le concepteur de fenêtre, de mettre la propriété Visible sur True ^^

re ,

Pour la propriété visible sur True je n'ai pas oublié comme avec WMP .

J'ai mis ton code :
axVLCPlugin21.playlist.add("%(var_file_location)%")
axVLCPlugin21.playlist.play()
et erreur de génération ...


Merci

Euuuuh, si tu essayes ça :

Code:

axVLCPlugin21.playlist.add(var_file_location)

???

Sinon, dans le panneau Erreur de génération, clic droit, Ouvrir le dernier rapport de génération, et envoi-moi son contenu ^^

re ,

IDEM :

Project : film_selec_manu
Last build the mardi 29 juin 2010 at 10:59
Building failed : errors number: 3
File code : C:\Program Files\Veler Software\SoftwareZator 2011 Bêta\Temp\Code.vb
Project setting :
Type : ApplicationWindows
Debug : Classique
FormStart : WindowsForm1.szw
SplashScreen :
Optimize : True
----------------------------------------------------------------
3 - Line 0, Column 0, Error BC2007 : option 'win32manifest:"D:\Mes documents\Programmation\Mes Projets SoftwareZator_2011\film_selec_manu_vlc\Bin\film_selec_manu.manifest"'; non reconnue ignorée
4 - Line 295, Column 0, Error BC30451 : Le nom 'axVLCPlugin21' n'est pas déclaré.
5 - Line 296, Column 0, Error BC30451 : Le nom 'axVLCPlugin21' n'est pas déclaré.
----------------------------------------------------------------
' NOTE :
' TOUTES MODIFICATIONS APPORTEES A CE FICHIER CODE NE SERONT PAS PRISES EN COMPTE LORS DE LA REGENERATION DU PROJET.
'------------------------------------------------------------------------------
' <auto-generated>
' Ce code a été généré par un outil.
' Version du runtime :2.0.50727.4927
'
' Les modifications apportées à ce fichier peuvent provoquer un comportement incorrect et seront perdues si
' le code est régénéré.
' </auto-generated>
'------------------------------------------------------------------------------
Option Strict Off
Option Explicit On
Imports System
Imports System.ComponentModel
Imports System.Windows.Forms
<Assembly: Reflection.AssemblyTitle("film_selec_manu")>
<Assembly: Reflection.AssemblyDescription("Permet de lire un film ou une musique")>
<Assembly: Reflection.AssemblyCompany("François Production")>
<Assembly: Reflection.AssemblyProduct("film_selec_manu.exe")>
<Assembly: Reflection.AssemblyCopyright("Copyright © 2010 François Production")>
<Assembly: Reflection.AssemblyTrademark("FP")>
<Assembly: Reflection.AssemblyVersion("1.0.0.0")>
<Assembly: Reflection.AssemblyFileVersion("1.0.0.0")>
<Assembly: Runtime.InteropServices.ComVisible(True)>

'Ce Namespace a été généré par SoftwareZator 2011 Edition Professionnel Bêta (2.0.0.0)
Namespace film_selec_manu

Public Class Film_f
Inherits System.Windows.Forms.Form

Public WithEvents axVLCPlugin21 As AxAXVLC.AxVLCPlugin2

Public WithEvents timer1 As System.Windows.Forms.Timer

Public WithEvents components As System.ComponentModel.IContainer

Public Sub New()
MyBase.New
Me.InitializeComponent
End Sub

Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(Film_f))
Me.axVLCPlugin21 = New AxAXVLC.AxVLCPlugin2
Me.timer1 = New System.Windows.Forms.Timer(Me.components)
CType(Me.axVLCPlugin21,System.ComponentModel.ISupportInitialize).BeginInit
Me.SuspendLayout
'
'axVLCPlugin21
'
Me.axVLCPlugin21.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right),System.Windows.Forms.AnchorStyles)
Me.axVLCPlugin21.Enabled = true
Me.axVLCPlugin21.Location = New System.Drawing.Point(12, 12)
Me.axVLCPlugin21.Name = "axVLCPlugin21"
Me.axVLCPlugin21.OcxState = CType(resources.GetObject("axVLCPlugin21.OcxState"),System.Windows.Forms.AxHost.State)
Me.axVLCPlugin21.Size = New System.Drawing.Size(567, 349)
Me.axVLCPlugin21.TabIndex = 0
'
'timer1
'
Me.timer1.Interval = 1
'
'Film
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6!, 13!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(591, 442)
Me.Controls.Add(Me.axVLCPlugin21)
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.Fixed3D
Me.Icon = CType(resources.GetObject("$this.Icon"),System.Drawing.Icon)
Me.Name = "Film"
Me.ShowIcon = false
Me.ShowInTaskbar = false
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
Me.Text = "Lecture de " & var_file_location & " ."
CType(Me.axVLCPlugin21,System.ComponentModel.ISupportInitialize).EndInit
Me.ResumeLayout(false)
End Sub
End Class

Public Class WindowsForm1_f
Inherits System.Windows.Forms.Form

Public WithEvents button1 As System.Windows.Forms.Button

Public WithEvents button2 As System.Windows.Forms.Button

Public WithEvents openFileDialog1 As System.Windows.Forms.OpenFileDialog

Public WithEvents components As System.ComponentModel.IContainer

Public Sub New()
MyBase.New
Me.InitializeComponent
End Sub

Private Sub InitializeComponent()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(WindowsForm1_f))
Me.button1 = New System.Windows.Forms.Button
Me.button2 = New System.Windows.Forms.Button
Me.openFileDialog1 = New System.Windows.Forms.OpenFileDialog
Me.SuspendLayout
'
'button1
'
Me.button1.Location = New System.Drawing.Point(226, 358)
Me.button1.Name = "button1"
Me.button1.Size = New System.Drawing.Size(75, 23)
Me.button1.TabIndex = 2
Me.button1.Text = "Quitter"
Me.button1.UseVisualStyleBackColor = true
'
'button2
'
Me.button2.Font = New System.Drawing.Font("Tahoma", 14.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte))
Me.button2.ForeColor = System.Drawing.Color.FromArgb(CType(CType(255,Byte),Integer), CType(CType(128,Byte),Integer), CType(CType(0,Byte),Integer))
Me.button2.Location = New System.Drawing.Point(146, 129)
Me.button2.Name = "button2"
Me.button2.Size = New System.Drawing.Size(222, 58)
Me.button2.TabIndex = 3
Me.button2.Text = "Choisir le fichier"
Me.button2.UseVisualStyleBackColor = true
'
'openFileDialog1
'
Me.openFileDialog1.Filter = "Fichiers|*.mp3;*.wma;*.wav;*.mp4;*.avi;*.mpg;*.vob;*.wmv"
Me.openFileDialog1.InitialDirectory = "%(MY_VIDEO)%"
'
'WindowsForm1
'
Me.ClientSize = New System.Drawing.Size(531, 393)
Me.Controls.Add(Me.button2)
Me.Controls.Add(Me.button1)
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.Fixed3D
Me.Icon = CType(resources.GetObject("$this.Icon"),System.Drawing.Icon)
Me.MaximizeBox = false
Me.Name = "WindowsForm1"
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
Me.Text = "Lecteur de vidéos ."
Me.ResumeLayout(false)
End Sub

<System.STAThreadAttribute()> _
Public Shared Sub Main()
System.Windows.Forms.Application.EnableVisualStyles()
Dim OKOKOK As Boolean
For Each a As System.Diagnostics.Process In System.Diagnostics.Process.GetProcesses()
If a.ProcessName = "film_selec_manu" Then
If OKOKOK Then
System.Diagnostics.Process.GetCurrentProcess.Kill
Else
OKOKOK = True
End If
End If
Next
If My.Computer.Registry.GetValue("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\NET Framework Setup\NDP\v3.5", "Version", Nothing) Is Nothing Then
System.Windows.Forms.MessageBox.Show("The .Net Framework 3.5 was not found. film_selec_manu can't start without it. Please install the .Net Framework 3.5 and try again.", "film_selec_manu", MessageBoxButtons.OK, MessageBoxIcon.Error)
System.Diagnostics.Process.Start("http://www.microsoft.com/downloads/details.aspx?FamilyId=333325FD-AE52-4E35-B531-508D977D32A6&displaylang=fr")
End
End If
My.Resources.Culture = Globalization.CultureInfo.InvariantCulture : My.Resources.Culture = My.Resources.Culture
System.Windows.Forms.Application.SetCompatibleTextRenderingDefault(False)
For Each arg As String In System.Environment.GetCommandLineArgs
If Not arg = System.Windows.Forms.Application.ExecutablePath Then
Redim Preserve ALL_ARGUMENTS_APPLICATIONS(ALL_ARGUMENTS_APPLICATIONS.Length) : ALL_ARGUMENTS_APPLICATIONS(ALL_ARGUMENTS_APPLICATIONS.Length - 1) = arg
End If
Next
System.Windows.Forms.Application.Run(New WindowsForm1_f)
End Sub
End Class
Public Module VARIABLES_AZERTY_ABCDE_ALPHA_BETA_DELTA_SOFTWAREZATOR_VARIABLES
Public VARIABLES_SOFTWAREZATOR_CURRENT_PLUGIN_VARIABLES As String
Public liste_fichier() As Object = New Object(-1){} ' Contient la liste des fichiers .
Public var_file_exist As Object '
Public var_file_location As Object '
Public var_time As Object '
Public var_url As Object '
Public X As Object ' Son nobre varie en fonction des fichiers sélèctionnés
Public ALL_ARGUMENTS_APPLICATIONS() As Object = New Object(-1){}
Public ALLUSERPROFILE As Object = CStr(Environment.GetEnvironmentVariable("ALLUSERPROFILE"))
Public APPDATA As Object = CStr(Environment.GetEnvironmentVariable("APPDATA"))
Public CLASSPATH As Object = CStr(Environment.GetEnvironmentVariable("CLASSPATH"))
Public CommonProgramFiles As Object = CStr(Environment.GetEnvironmentVariable("CommonProgramFiles"))
Public COMPUTERNAME As Object = CStr(Environment.GetEnvironmentVariable("COMPUTERNAME"))
Public ComSpec As Object = CStr(Environment.GetEnvironmentVariable("ComSpec"))
Public FP_NO_HOST_CHECK As Object = CStr(Environment.GetEnvironmentVariable("FP_NO_HOST_CHECK"))
Public HOMEDRIVE As Object = CStr(Environment.GetEnvironmentVariable("HOMEDRIVE"))
Public HOMEPATH As Object = CStr(Environment.GetEnvironmentVariable("HOMEPATH"))
Public LOCALAPPDATA As Object = CStr(Environment.GetEnvironmentVariable("LOCALAPPDATA"))
Public LOGONSERVER As Object = CStr(Environment.GetEnvironmentVariable("LOGONSERVER"))
Public NUMBEROFPROCESSORS As Object = CStr(Environment.GetEnvironmentVariable("NUMBEROFPROCESSORS"))
Public OS As Object = CStr(Environment.GetEnvironmentVariable("OS"))
Public PATH As Object = CStr(Environment.GetEnvironmentVariable("PATH"))
Public PATHEXT As Object = CStr(Environment.GetEnvironmentVariable("PATHEXT"))
Public PROCESSOR_ARCHITECTURE As Object = CStr(Environment.GetEnvironmentVariable("PROCESSOR_ARCHITECTURE"))
Public PROCESSOR_IDENTIFIER As Object = CStr(Environment.GetEnvironmentVariable("PROCESSOR_IDENTIFIER"))
Public PROCESSOR_LEVEL As Object = CStr(Environment.GetEnvironmentVariable("PROCESSOR_LEVEL"))
Public PROCESSOR_REVISION As Object = CStr(Environment.GetEnvironmentVariable("PROCESSOR_REVISION"))
Public ProgramData As Object = CStr(Environment.GetEnvironmentVariable("ProgramData"))
Public ProgramFiles As Object = CStr(Environment.GetEnvironmentVariable("ProgramFiles"))
Public [PUBLIC] As Object = CStr(Environment.GetEnvironmentVariable("PUBLIC"))
Public SESSIONNAME As Object = CStr(Environment.GetEnvironmentVariable("SESSIONNAME"))
Public SystemDrive As Object = CStr(Environment.GetEnvironmentVariable("SystemDrive"))
Public SystemRoot As Object = CStr(Environment.GetEnvironmentVariable("SystemRoot"))
Public TEMP As Object = CStr(Environment.GetEnvironmentVariable("TEMP"))
Public TMP As Object = CStr(Environment.GetEnvironmentVariable("TMP"))
Public USERDOMAIN As Object = CStr(Environment.GetEnvironmentVariable("USERDOMAIN"))
Public USERNAME As Object = CStr(Environment.GetEnvironmentVariable("USERNAME"))
Public USERPROFILE As Object = CStr(Environment.GetEnvironmentVariable("USERPROFILES"))
Public windir As Object = CStr(Environment.GetEnvironmentVariable("windir"))
End Module
Public Module VARIABLES_AZERTY_ABCDE_ALPHA_BETA_DELTA_FORMS_SOFTWAREZATOR_VARIABLES
Private _Film As Film_f = New Film_f
Public Property Film As Film_f
Get
Return _Film
End Get
Set(ByVal value As Film_f)
_Film = value
End Set
End Property
Private _WindowsForm1 As WindowsForm1_f = New WindowsForm1_f
Public Property WindowsForm1 As WindowsForm1_f
Get
Return _WindowsForm1
End Get
Set(ByVal value As WindowsForm1_f)
_WindowsForm1 = value
End Set
End Property
End Module

Partial Public Class Film_f
Public Sub App_open(ByVal sender As Object, ByVal e As System.EventArgs)Handles MyBase.HandleCreated
Try
Me.timer1.Start()
Catch err As Exception
System.Windows.Forms.MessageBox.Show(Err.Message, "film_selec_manu", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
End Sub
Public Sub App_exit(ByVal sender As Object, ByVal e As System.EventArgs)Handles MyBase.HandleDestroyed
Try
Me.timer1.Stop()
Catch err As Exception
System.Windows.Forms.MessageBox.Show(Err.Message, "film_selec_manu", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
End Sub
Public Sub timer1_Tick(ByVal sender As Object, ByVal e As System.EventArgs)Handles timer1.Tick
Try
Catch err As Exception
System.Windows.Forms.MessageBox.Show(Err.Message, "film_selec_manu", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
End Sub
End Class
Partial Public Class WindowsForm1_f
Public Sub but_valid(ByVal sender As Object, ByVal e As System.EventArgs)Handles button2.Click
Try
If Me.openFileDialog1.ShowDialog() = System.Windows.Forms.DialogResult.OK Then liste_fichier = Me.openFileDialog1.FileNames Else liste_fichier = New Object(-1) {}
For X = 0 To liste_fichier.Length - 1
var_file_location = "" & liste_fichier(X) & ""
Next
If var_file_location = "" Then
System.Windows.Forms.MessageBox.Show("Vous devez indiquer le chemain complet vers le fichier à ouvrir :" & System.Environment.NewLine & "exemple : D:\vidéos\film.wmv" & System.Environment.NewLine & "", "Sélèction vide .", MessageBoxButtons.OK, MessageBoxIcon.Warning).ToString
Else
var_file_exist = My.Computer.FileSystem.FileExists("" & var_file_location & "")
If var_file_exist = "False" Then
System.Windows.Forms.MessageBox.Show("Le fichier " & var_file_location & "" & System.Environment.NewLine & "est éroné ou manquant ." & System.Environment.NewLine & "Merci de vérifier le chemain d'accés .", "Fichier introuvable !!", MessageBoxButtons.OK, MessageBoxIcon.Error).ToString
Else
System.Windows.Forms.MessageBox.Show("Le fichié " & var_file_location & " est valide .", "Fichié trouvé !", MessageBoxButtons.OK, MessageBoxIcon.Information).ToString
Film.DialogResult = System.Windows.Forms.DialogResult.Cancel : Film.Close()
If "" <> "Dialog" Then Film = New Film_f
Film.Show()
axVLCPlugin21.playlist.add(var_file_location)
axVLCPlugin21.playlist.play()
End If
End If
Catch err As Exception
System.Windows.Forms.MessageBox.Show(Err.Message, "film_selec_manu", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
End Sub
Public Sub App_quit(ByVal sender As Object, ByVal e As System.EventArgs)Handles button1.Click
Try
Application.Exit()
Catch err As Exception
System.Windows.Forms.MessageBox.Show(Err.Message, "film_selec_manu", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
End Sub
End Class
End Namespace
Namespace My.Resources
'Cette classe a été générée automatiquement par la classe StronglyTypedResourceBuilder.
'''<summary>
''' Une classe de ressource fortement typée destinée, entre autres, à la consultation des chaînes localisées.
'''</summary>
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Resources.Tools.StronglyTypedResourceBuilder", "2.0.0.0"), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _
Global.Microsoft.VisualBasic.HideModuleNameAttribute()> _
Public Module Resources
Private resourceMan As Global.System.Resources.ResourceManager
Private resourceCulture As Global.System.Globalization.CultureInfo
'''<summary>
''' Retourne l'instance ResourceManager mise en cache utilisée par cette classe.
'''</summary>
<Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
Public ReadOnly Property ResourceManager() As Global.System.Resources.ResourceManager
Get
If Object.ReferenceEquals(resourceMan, Nothing) Then
Dim temp As Global.System.Resources.ResourceManager = New Global.System.Resources.ResourceManager("film_selec_manu.Resources", GetType(Resources).Assembly)
resourceMan = temp
End If
Return resourceMan
End Get
End Property
'''<summary>
''' Remplace la propriété CurrentUICulture du thread actuel pour toutes
''' les recherches de ressources à l'aide de cette classe de ressource fortement typée.
'''</summary>
<Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
Public Property Culture() As Global.System.Globalization.CultureInfo
Get
Return resourceCulture
End Get
Set(ByVal value As Global.System.Globalization.CultureInfo)
resourceCulture = value
End Set
End Property

End Module
End Namespace

Ok, j'ai compris, j'aurai du te préciser quelque chose:

Alors voila, au lieu de faire mettre axVLCPlugin21 on va mettre Film.axVLCPlugin21

Pourquoi? Parce que en fait, ton axVLCPlugin21 ne se trouve pas dans la même fenêtre que là où tu as mi l'action "Exécuter du code vb.net", j'étais partie sur le principe que c'était dans la même fenêtre ^^

Et dans le cas où axVLCPlugin21 aurait été dans la même fenêtre, tu peux faire axVLCPlugin21.playlist..etc ou bien Me.axVLCPlugin21 (ce qui évite de confondre par exemple le contrôle axVLCPlugin21 et la variable axVLCPlugin21, si tu en as déclaré une portant ce nom là).

Voila =)

@+

re ,

Merci ça marche nikel avec les musiques en .MP3 mais rien ne se passe avec un filme en .mp4 ???

Le problème praincipal est résolu .On progresse ......

Merci

EHH : les .mpg fonctionne

Personnellement j'ai testé avec un AVI et ça fonctionnait très bien, on voyait l'image, lol, les MP4 sont-ils lisibles par VLC? Là je ne pense pas que je soit dans la mesure de t'aider réellement =/

re ,

Mon VLC lis TOUS les formats audio et vidéos de mon PC . Chez moi , je n'ai que le son avec les AVI en utilisant mon appli.

La question parincipale étant résolue , ce sujet est donc RESOLU .

Merci pour vôtre aide

Bonne journée .

Salut,

J'y pense d'un coup, peut-être que VLC fonctionne sur un système de Plugins. Il embarque avec lui le MP3 et AVI, mais les autres sont peut-être ailleurs ? (dans d'autre DLL), et là, bin courage pour les utiliser avec SZ >.<"

re ,

je vais regarder dans le prog de VLC sinon pour le moment je vais rester avev Windows Medias Player .

Merci

cordialement
leréparateur de PC ...

re ,

J'ai réussi !!!

Pour le moment , je me suis contenté de copier TOUS ce qui est dans le dossier d'installation de VLC ( VLC ) en ignorant les fichiers d'jà présent et ça marche . reste a effacer ce qui sers a rien .

Bonne journée .

Ouuuuuh, trop fort, j'avais deviné pour le système de plugin

rerere,

Les 2 fichiers a ajouter sont : " avcodec-51.dll " et " libz-1-2.dll " .

les fichiers vidéos lu sont : .mp4 ; .mpg ; .avi ; .wmv ; .flv ( et d'autres que je n'ai PAS ).
les fichiers audio lu sont : TOUS ; les classiques : .mp3 ; .wmv ; .wma ... et les moins classiques : .XM ; ...

Voilà

Merci

Ce sujet est donc complètement RESOLU .