SEARCHCODEC - SOFT QUI PERMET DE TROUVER LE CODEC À UTILISER POUR UN FICHIER AVI
Rrominet
Messages postés133Date d'inscriptionlundi 26 janvier 2009StatutMembreDernière intervention24 novembre 2014
-
1 janv. 2004 à 18:29
At0mIc
Messages postés7Date d'inscriptionlundi 26 avril 2004StatutMembreDernière intervention24 novembre 2006
-
9 août 2004 à 05:03
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
At0mIc
Messages postés7Date d'inscriptionlundi 26 avril 2004StatutMembreDernière intervention24 novembre 2006 9 août 2004 à 05:03
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
Ludolpif
Messages postés138Date d'inscriptionsamedi 11 mai 2002StatutMembreDernière intervention17 mai 2007 1 janv. 2004 à 20:39
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
Ludolpif
Messages postés138Date d'inscriptionsamedi 11 mai 2002StatutMembreDernière intervention17 mai 2007 1 janv. 2004 à 20:39
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
Ludolpif
Messages postés138Date d'inscriptionsamedi 11 mai 2002StatutMembreDernière intervention17 mai 2007 1 janv. 2004 à 20:37
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...
Rrominet
Messages postés133Date d'inscriptionlundi 26 janvier 2009StatutMembreDernière intervention24 novembre 20141 1 janv. 2004 à 18:29
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 ;-)
9 août 2004 à 05:03
J'utilise Divx 5.0.5 2 passe
Merci
1 janv. 2004 à 20:39
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
1 janv. 2004 à 20:39
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
1 janv. 2004 à 20:37
Je poste le Code que j'ai modifié dans le msg d'après...
1 janv. 2004 à 18:29
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 ;-)