[Débutant] Durée d'un fichier video avec vlc.

Durée d'un fichier video avec vlc.

Bonjour,

cela plusieurs semaine sur je suis sur ce problème sans grande avancée.

Voici le code général :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
 
   Private Sub backgroundworker1_dowork(ByVal sender As System.Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles BackgroundWorker1.DoWork
        Try
            Directory.GetFiles(Chemin, "*.*", SearchOption.AllDirectories)
            Dim dossiersTrouvé = Directory.GetDirectories(Chemin)
            For Each ligneD In dossiersTrouvé
                'Label1.Text = ligneD
            Next
            Dim fichiersTrouvé = Directory.GetFiles(Chemin, "*.*", SearchOption.AllDirectories)
            For Each ligneF In fichiersTrouvé
                'Recuperation de l'extention
                Extension = New System.IO.FileInfo(ligneF).Extension
                If Extension <> ".db" Then
                    'Récuperation du Nom du Film sans l'extension
                    Film = Replace(Replace(ligneF, Chemin & "\", ""), Extension, "")
 
                    Dim MonFichier As New FileInfo(Chemin & "\" & Film & Extension)
                    Taille = MonFichier.Length
                    Taille1024 = Taille / 1024
 
                    'Définition de la durée du fichier
                    'Chargement de la localisation du fichier
                    AxVLCPlugin1.addTarget(ligneF, DBNull.Value, AXVLC.VLCPlaylistMode.VLCPlayListInsert, 0)
                    'Mise à Zéro du volume
                    Me.AxVLCPlugin1.Volume = 0
                    'Lance la lecture du fichier
                    Me.AxVLCPlugin1.play()
 
                    'Récupération de la taille
                    Dim Taildure As Integer = Me.AxVLCPlugin1.Length
                    'Conversion Millseconde en Seconde
                    Dim Millsec As Integer = Taildure / 1000
                    'Modificatiion du format, format du Type hh:mm:ss
                    Dim Duree As Date = Date.FromOADate(Millsec / 24 / 3600)
 
 
                    'Arret de la lecture du fichier
                    AxVLCPlugin1.stop()
                    MsgBox(Film & " " & Duree & " " & Taille1024)
                    ' RichTextBox1.Text = RichTextBox1.Text & Film & vbCr
                    ' RichTextBox1.SelectionStart = Len(RichTextBox1.Text)
                End If
            Next
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Sub

Je pense que la récupération de la durée ce fait ici :

Code:

1
2
3
4
5
6
7
 
                    'Récupération de la taille
                    Dim Taildure As Integer = Me.AxVLCPlugin1.Length
                    'Conversion Millseconde en Seconde
                    Dim Millsec As Integer = Taildure / 1000
                    'Modificatiion du format, format du Type hh:mm:ss
                    Dim Duree As Date = Date.FromOADate(Millsec / 24 / 3600)

Cela marche en mode pas à pas, mais en mode autonome j'ai toujours à 00:00:00.
De plus en mode pas à pas j'ai toujours l'information de la durée du premier fichier scanné.

Mes questions :

- Comment avoir la durée en mode en autonome?
- Comment avoir la durée pour chaque fichier?

Nota :

J'ai regardé vers :
http://vlcdotnet.codeplex.com/
http://wiki.videolan.org/ActiveX_Controls

Mais sans grand succès. Peut être que je ne sais pas ou comment faire!!?

Merci de votre aide.

Cordialement.

Trouvé!!! :-)

Bonjour,

Avec un peu de patiente et de persévérance on trouve.

Voilà le code qui me permet d'avoir le temps des fichier que je scanne.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
 'Lance la lecture du fichier
                    If Me.AxVLCPlugin1.PlaylistCount > 1 Then
                        Me.AxVLCPlugin1.playlistNext()
                    Else
                        Me.AxVLCPlugin1.play()
                    End If
 
                    Thread.Sleep(500)
                    'Récupération de la taille
                    Dim Taildure As Integer = Me.AxVLCPlugin1.Length
                    'Conversion Millseconde en Seconde
                    Dim Millsec As Integer = Taildure / 1000
                    'Modificatiion du format, format du Type hh:mm:ss
                    Dim Duree As Date = Date.FromOADate(Millsec / 24 / 3600)

Cette méthode fonction pour mes besoins, après si quelqu'un en a besoin c'est dispo et modifiable.

Encore merci a ceux qui on put m'aider.

Cordialement.

Bonjour,

Quelle est la version de VLC ?

Chez moi (VLC 2.0), "lenght" ne fonctionne pas.

@+

JCB57