Detection du codec video d'un avi (fonction)

Description

MAJ : 25/08/03 : J'ai mis a jour la source du projet. La fonction utilise maintenant un fichier txt (celui de Gspot) pour detecter le code du codec.(fichier joint a la source!!!)

voila le code codec se trouve a l'octec 113 d'un fichier avi, donc on le lit en mode binaire...
c'est tous simple et efficace!!!

Source / Exemple :


Public Function CkelCodec(fichier_avi As String)
Open fichier_avi For Binary As #1
Dim Codec As String * 4
Get #1, 113, Codec
Close #1
Select Case Codec
    Case "divx"
    CkelCodec = "c'est un divx4"
    Case "div3"
    CkelCodec = "c'est un Divx3 (Low Motion)"
    Case "div4"
    CkelCodec = "c'est un Divx3 (Fast Motion)"
    Case "div5"
    CkelCodec = "c'est un Divx5"
    Case "cvid"
    CkelCodec = "c'est un Cinepak Codec By radius"
    Case "dx50"
    CkelCodec = "c'est un Divx 5"
    Case "iv50"
    CkelCodec = "c'est un Intel Indeo r5.0"
    Case "wmv2"
    CkelCodec = "c'est un Windows Media Video 8"
    Case "yvu9"
    CkelCodec ="C'est un Indeo Video Raw 1.1"
    Case "xvid"
    CkelCodec ="C'est un Xvid"
    Case "mrle"
    CkelCodec ="Microsoft RLE"
    Case "yvu9"
    CkelCodec ="C'est un Indeo Video Raw 1.1"
    Case "vdom"
    CkelCodec ="VDOnet VDOWave"
    Case "mpv4"
    CkelCodec = "MS MPEG-4 Video Codec V1"
    Case "mp42"
    CkelCodec ="MS MPEG-4 Video Codec V2"
    Case "i263"
    CkelCodec = "Intel I.263 Video Driver 2.55.012"
    Case "iv41"
    CkelCodec ="Intel Indeo Video Interactive"
    End Select
    
End Function

Pour utiliser la fonction

msgbox  CkelCodec("c:\fichier.avi")
ou encore
text1 = CkelCodec("c:\fichier.avi")

Conclusion :


Ps: Laissez moi un commentaire!!! et une bonne note lol ++

Codes Sources

A voir également

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.