[.NET2] OBTENIR DES INFOS. SUR UN DVD

Exemple d'utilisation


        Dim c As New IfoInfo

        c.Source = "F:\"
        c.GetMainlyIfo()

        Console.WriteLine("Nombre chapitres: " & c.GetNumOfChapters.ToString)

        Dim bencr As Boolean = IfoInfo.VobIsEncrypted("F:\VIDEO_TS\VTS_01_1.VOB")
        Console.WriteLine("Fichiers VOB encryptés: " & bencr.ToString)

        If bencr Then
            Console.WriteLine("Présence macrovision: Vobs encryptés impossible d'accèder à cette information")
        Else
            Console.WriteLine("Présence macrovision: " & IfoInfo.CheckMacrovision("F:\VIDEO_TS\VTS_01_1.VOB"))
        End If

        Console.WriteLine("Région dvd: " & c.GetRegion)

        Dim streams As String() = IfoInfo.GetAudioStreams("F:\VIDEO_TS\VTS_01_0.IFO")
        For i As Integer = 0 To streams.Length - 1
            Console.WriteLine("Flux audio disponible: " & streams(i))
        Next

        Dim subtitles As String() = IfoInfo.GetSubtitles("F:\VIDEO_TS\VTS_01_0.IFO")

        If subtitles.Length > 0 Then
            Dim sb As New Text.StringBuilder()
            For i As Integer = 0 To subtitles.Length - 1
                sb.Append(subtitles(i) & ",")
            Next
            Console.WriteLine("Total de sous-titres: " & subtitles.Length.ToString)
            Console.WriteLine("Liste des language sous-titrés dispo.: " & sb.ToString)
        Else
            Console.WriteLine("Liste des sous-titres: Aucun sous-titrages dispo.")
        End If

Télécharger le zip

02 septembre 2006 16:24:38 :

ajout zip

02 septembre 2006 16:26:07 :

mots-clé