[.net2] obtenir des infos. sur un dvd

Télécharger le projet
Commenter

Description

Voici une classe fournissant quelques méthodes afin de récupérer certaines infos d'un dvd video.
Pour la documentation je me suis largement inspiré de projet open-source C sur sourceforge.
Et ayant fais cette source rapidement suite à une demande, je n'ai pas commenté le code mis à part les comments xml sur les méthodes.

Méthodes fournis dans cette classe
-CheckIfDvd
-GetMainlyIfo
-GetNumOfChapters
-GetRegion
-CheckMacrovision
-GetAudioStreams
-GetSubtitles
-RemoveMacrovision
-RemoveRegionCode
-VobIsEncrypted

Concernant les 2 méthodes suivantes 'RemoveMacrovision' et 'RemoveRegionCode' je décline toutes responsabilitées sur l'utilisation que vous en ferez.

Source / Exemple : 


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

Conclusion :


Si vous avez des questions sur certaines lignes de codes, ne pas hésiter me demander.
Remarques, critiques, notes tout est accepté.
Télécharger le projet

Codes Sources

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (cs_Willi)