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

Signaler
Messages postés
135
Date d'inscription
lundi 26 janvier 2009
Statut
Membre
Dernière intervention
24 novembre 2014
-
Messages postés
7
Date d'inscription
lundi 26 avril 2004
Statut
Membre
Dernière intervention
24 novembre 2006
-
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.

https://codes-sources.commentcamarche.net/source/19128-searchcodec-soft-qui-permet-de-trouver-le-codec-a-utiliser-pour-un-fichier-avi-donne

Messages postés
7
Date d'inscription
lundi 26 avril 2004
Statut
Membre
Dernière intervention
24 novembre 2006

Le code fonctionne bien mais lorsque je compare avec "GSpot21", je n'ai pas le même résultat. GSpot donne comme résultat DX50/divx // Divx 5.0 alors que votre code me donne DIVX // Divx 4. Pourquoi?

J'utilise Divx 5.0.5 2 passe

Merci
Messages postés
138
Date d'inscription
samedi 11 mai 2002
Statut
Membre
Dernière intervention
17 mai 2007

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
Messages postés
138
Date d'inscription
samedi 11 mai 2002
Statut
Membre
Dernière intervention
17 mai 2007

Private Sub Form_Load()
Me.Height = 675
End Sub

Private Sub mnuQuit_Click()
End
End Sub

Private Sub mnuTrouverCodec_Click()

With CommonDialog1 'Affiche une boite de dialogue
.Filter = "avi|*.avi" 'Filtre de Fichier
.ShowOpen 'Mode Ouvrir Fichier pour le CommonDialog
End With

Call MsgBox(fctFindCodec(CommonDialog1.FileName), vbInformation, "SearchCoDec") 'Chercher et afficher le résultat
End Sub
Messages postés
138
Date d'inscription
samedi 11 mai 2002
Statut
Membre
Dernière intervention
17 mai 2007

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...
Messages postés
135
Date d'inscription
lundi 26 janvier 2009
Statut
Membre
Dernière intervention
24 novembre 2014

Pas mal comme source, le seul ennui c'est qu'il faut que le codec soit renseigné dans le .txt.

Si tu essayes avec un .AVI encodé en SBC (DivX 3.11 - 2 passes) il ne trouve rien parce que le codec n'est pas ds la liste du .txt.

Mais c'est pas pour ça que ton prog n'est pas bien hein ;-)