Lire/ecrire tag divx video avi

Soyez le premier à donner votre avis sur cette source.

Snippet vu 17 108 fois - Téléchargée 28 fois

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

Ajouter un commentaire Commentaires
Messages postés
308
Date d'inscription
lundi 16 décembre 2002
Statut
Membre
Dernière intervention
15 juin 2015
1
c a d ? tu parles du téléchargement ? ds ce cas oui, elle est sur un petit serveur russe, très visité on dirait. mais si tu parles du traitement, lire des tags via ton prog utilisant la dll, ah non. mais comme le download est long, vous pourrez maintenant le télécharger ici :
http://membres.lycos.fr/christall/dossier/avitagdll.exe
Messages postés
33
Date d'inscription
mercredi 28 juillet 2010
Statut
Membre
Dernière intervention
28 juillet 2010

attention c long tres tres long le chargement de la dll....
Messages postés
33
Date d'inscription
mercredi 28 juillet 2010
Statut
Membre
Dernière intervention
28 juillet 2010

attention c long tres tres long le chargement de la dll....

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.