SEARCHCODEC - SOFT QUI PERMET DE TROUVER LE CODEC À UTILISER POUR UN FICHIER AVI DONNÉ

Commentaire de Ludolpif le 01/01/2004 20:37:04

Ouais, c'est sympa... G modifié 2-3 détails sans importance, ça n'apporte pas grand chose de plus, ms c'est pour la forme quoi....
Je poste le Code que j'ai modifié dans le msg d'après...

Commentaire de Ludolpif le 01/01/2004 20:39:54

Private Type CoDecInfos
    strCode As String * 4
    NomCoDec As String
    Editeur As String
End Type

Public Function fctFindCodec(strPathFile As String) As String
    Dim strAVICodeCodec As String       'Code de CoDec présent dans le fichier AVI
    
    On Error GoTo Error1
    
    Open strPathFile For Binary As #1   'Ouvre le fichier avi
        strAVICodeCodec = Space(4)      'Récupère le code de 4 octets du codec à utiliser
        Get #1, 113, strAVICodeCodec    '(Le code dans un fichier avi se trouve sur l'octet 113)
    Close #1                            'Ferme le fichier avi
    
    
    On Error GoTo Error2
    Dim CoDecInfos As CoDecInfos        'Infos sur les CoDecs : 'Codec.txt'
    Open App.Path & "\Codecs.dat" For Input As #1   'Ouvre le fichier contenant les infos des CoDecs connus
        Do While Not EOF(1) 'Parcours le fichier (tant que l'on n'a pas atteint sa fin) pour trouver le bon codec
            Input #1, CoDecInfos.strCode, CoDecInfos.NomCoDec, CoDecInfos.Editeur   'Récupère les infos d'un codec
            If StrComp(CoDecInfos.strCode, strAVICodeCodec, vbTextCompare) >= 0 Then fctFindCodec = CoDecInfos.NomCoDec & " - " & CoDecInfos.Editeur: Exit Do
        Loop
    Close #1
    
    If fctFindCodec = "" Then fctFindCodec = "CoDec Inconnu : " & strAVICodeCodec
    Exit Function
Error1:
    fctFindCodec = "Impossible d'accéder au fihcier spécifié"
    Exit Function
Error2:
    fctFindCodec = "Impossible d'ouvrir la base de données CoDecs.dat"
End Function