Lire/ecrire tag divx video avi

Commenter

Contenu du snippet

'ce code n'est pas de moi.
'voici comment lire ou écrire les tag dans une vidéo avi, divx et autres.
'il existe une dll très bien, qui fait le boulot. elle est issu du programmeur du soft qui lit et écrit les tags avi : abcavi tag editor
'vous pourrez la récupérer ici :

'http://kibus1.narod.ru/sof/abcavi/avitagsdll.exe

Source / Exemple : 


'ce code n'est pas de moi.
'voici comment lire ou écrire les tag dans une vidéo avi, divx et autres.
'il existe une dll très bien, qui fait le boulot. elle est issu du programmeur du soft qui lit et écrit les tags avi : abcavi tag editor
'vous pourrez la récupérer ici :

'http://kibus1.narod.ru/sof/abcavi/avitagsdll.exe

'voici comment s'en servir, très rapidement. Le fichier d'aide est inclus, ca parle du langage delphi, mais no souci ca fonctionne aussi pour vb. Une fois installé, vous devez la référencer dans le projet, projet/référence...

'si vous voulez lire des tags, comme le tire et les commentaires, on est obligé de récupérer tous les tag, sinon ca marche pas
Private Sub lireTags()
Dim tagg As New ExtendedAVITags 'c'est la déclaration de la dll, n'oubliez pas de la référencer dans le projet
Dim leTitre$, fichier$, x$, lesCommentaires$ 'le $ signifie string
    fichier = "C:\videos\divx.avi"
    tagg.ReadAVITags fichier, leTitre, x, x, x, x, x, x, x, x, lesCommentaires, x, x, x, x, x, x, x, x, x, x, x, x, x, x, x, x, x, x, x, x, x, x, x, x, x, x, x, x, x, x 'la récup de tous les tag est une obligation, sinon "cet argument n'est pas falcultatif" apparaitra en erreur
End Sub

'pour écrire les tags, le titre et des commentaires par exemples
Private Sub ecrireTags()
Dim tagg As New ExtendedAVITags 'c'est la déclaration de la dll, n'oubliez pas de la référencer dans le projet
Dim leTitre$, fichier$, x$, lesCommentaires$
    fichier = "C:\videos\divx.avi"
    leTitre = "matrix"
    lesCommentaires = "mouai, bon film"
    tagg.WriteAVITags fichier, leTitre, x, x, x, x, x, x, x, x, lesCommentaires, x, x, x, x, x, x, x, x, x, x, x, x, x, x, x, x, x, x, x, x, x, x, x, x, x, x, x, x, x, x  'la récup de tous les tag est une obligation, sinon "cet argument n'est pas falcultatif" apparaitra en erreur
End Sub

Private Sub Command1_Click() 'pour tester, mettez un bouton
Call lireTags
Call ecrireTags
End Sub

'la dll peut traitre un nombre monstrueux de tags, ils seront listés qd vous ferez apparaitres les infos express d'une de ces fonctions

Conclusion :


vous devez la référencer dans le projet, projet/référence...

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 (Philippe734)