Accueil > > > DETECTION DU CODEC VIDEO D'UN AVI (FONCTION)
 DETECTION DU CODEC VIDEO D'UN AVI (FONCTION)
 Information sur la source
 Description
MAJ : 25/08/03 : J'ai mis a jour la source du projet. La fonction utilise maintenant un fichier txt (celui de Gspot) pour detecter le code du codec.(fichier joint a la source!!!) voila le code codec se trouve a l'octec 113 d'un fichier avi, donc on le lit en mode binaire... c'est tous simple et efficace!!!
 Source
- Public Function CkelCodec(fichier_avi As String)
- Open fichier_avi For Binary As #1
- Dim Codec As String * 4
- Get #1, 113, Codec
- Close #1
- Select Case Codec
- Case "divx"
- CkelCodec = "c'est un divx4"
- Case "div3"
- CkelCodec = "c'est un Divx3 (Low Motion)"
- Case "div4"
- CkelCodec = "c'est un Divx3 (Fast Motion)"
- Case "div5"
- CkelCodec = "c'est un Divx5"
- Case "cvid"
- CkelCodec = "c'est un Cinepak Codec By radius"
- Case "dx50"
- CkelCodec = "c'est un Divx 5"
- Case "iv50"
- CkelCodec = "c'est un Intel Indeo r5.0"
- Case "wmv2"
- CkelCodec = "c'est un Windows Media Video 8"
- Case "yvu9"
- CkelCodec ="C'est un Indeo Video Raw 1.1"
- Case "xvid"
- CkelCodec ="C'est un Xvid"
- Case "mrle"
- CkelCodec ="Microsoft RLE"
- Case "yvu9"
- CkelCodec ="C'est un Indeo Video Raw 1.1"
- Case "vdom"
- CkelCodec ="VDOnet VDOWave"
- Case "mpv4"
- CkelCodec = "MS MPEG-4 Video Codec V1"
- Case "mp42"
- CkelCodec ="MS MPEG-4 Video Codec V2"
- Case "i263"
- CkelCodec = "Intel I.263 Video Driver 2.55.012"
- Case "iv41"
- CkelCodec ="Intel Indeo Video Interactive"
- End Select
-
- End Function
-
-
- Pour utiliser la fonction
-
- msgbox CkelCodec("c:\fichier.avi")
- ou encore
- text1 = CkelCodec("c:\fichier.avi")
Public Function CkelCodec(fichier_avi As String)
Open fichier_avi For Binary As #1
Dim Codec As String * 4
Get #1, 113, Codec
Close #1
Select Case Codec
Case "divx"
CkelCodec = "c'est un divx4"
Case "div3"
CkelCodec = "c'est un Divx3 (Low Motion)"
Case "div4"
CkelCodec = "c'est un Divx3 (Fast Motion)"
Case "div5"
CkelCodec = "c'est un Divx5"
Case "cvid"
CkelCodec = "c'est un Cinepak Codec By radius"
Case "dx50"
CkelCodec = "c'est un Divx 5"
Case "iv50"
CkelCodec = "c'est un Intel Indeo r5.0"
Case "wmv2"
CkelCodec = "c'est un Windows Media Video 8"
Case "yvu9"
CkelCodec ="C'est un Indeo Video Raw 1.1"
Case "xvid"
CkelCodec ="C'est un Xvid"
Case "mrle"
CkelCodec ="Microsoft RLE"
Case "yvu9"
CkelCodec ="C'est un Indeo Video Raw 1.1"
Case "vdom"
CkelCodec ="VDOnet VDOWave"
Case "mpv4"
CkelCodec = "MS MPEG-4 Video Codec V1"
Case "mp42"
CkelCodec ="MS MPEG-4 Video Codec V2"
Case "i263"
CkelCodec = "Intel I.263 Video Driver 2.55.012"
Case "iv41"
CkelCodec ="Intel Indeo Video Interactive"
End Select
End Function
Pour utiliser la fonction
msgbox CkelCodec("c:\fichier.avi")
ou encore
text1 = CkelCodec("c:\fichier.avi")
 Conclusion
Ps: Laissez moi un commentaire!!! et une bonne note lol ++
 Sources du même auteur
 Sources de la même categorie
 Commentaires et avis
 Discussions en rapport avec ce code source dans le forum
video [ par Ninja ]
Je voudrai savoir comment créer un avi,c'est t'a dire utilisation de codec etc... a partir d'image les assembler et créer un avi... aussi exiterai t'i
Lancer un AVI (divx) a parttir d'un prog VB URGENT!! [ par $KuLL-d0zeN_ ]
Salut, si kk1 sait comment faire pour lancer un divx a partir d'un prog vb maaaaaail mooooooooooooooaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa
Convertisseur DVD -> AVI (Divx) :) [ par MOA ]
URL :http://deltasoftfr.free.fr/URL DOWNLOAD : http://deltasoftfr.free.fr/downloads/convertdvdfile.php3#21_betaDESCRIPTION :Utilitaire GUI (Graphical
Convertisseur DVD -> AVI (Divx) :) [ par MOA ]
MERCI DE ME DIRE LES BUGS DU LOGICIELS (V2.1 BETA)URL :http://deltasoftfr.free.fr/URL DOWNLOAD : http://deltasoftfr.free.fr/downloads/convertdvdfile.p
video *.avi sur form [ par {-Yah!-} ]
Comment puis je faire pour mettre ma video *.avi sur ma form directement (pas qu elle se lance sur une autre fentre) ?? Merci d'avance
AVI OU MPG sur form [ par {-Yah!-} ]
Comment puis je faire pour inserer une video sur mon projet? je voudrais que cette video soit lu sur une form speciale et non sur un autre fenetre win
Lire un video .avi [ par Supo ]
Quelle controle y faut prendre pour lire un video AVI?
PLAYER DIVX AVI MPG MP3 WAV MID...+fonction autorun [ par NumZ ]
salutje vous propose mon ptit dernier ici.donc le titre en dis bcp je vous laisse découvrir dans le zip tout est compris vous avez juste a le dl<a hre
detecter codec [ par ticapix ]
bonjourcomment faire pour savoir si un codec video est installé.Je distribue un prgm avec une video compressée avec divx 5.02. comment savoir si l'ord
detecter codec [ par ticapix ]
bonjourcomment faire pour savoir si un codec video est installé.Je distribue un prgm avec une video compressée avec divx 5.02. comment savoir si l'ord
|
Derniers Blogs
 UNE JOLIE-HORLOGE ET PAS QU'UN PEU !UNE JOLIE-HORLOGE ET PAS QU'UN PEU ! par neodante
Pour les possesseurs d'iPhone, ça y est Bijin Tokei - qui se traduit littéralement en Français par " Jolie Horloge " - est arrivé et GRATUITEMENT s'il vous plaît ! Après la version Tokyo, Hokkaido, night club, racing, Gal, "pour les mademoiselles'", . voi...
Cliquez pour lire la suite de l'article par neodante TECHDAYS PARIS 2010 : CONNECTEZ VOS DONNéES à SHAREPOINT 2010 AVEC LES BUSINESS CONNECTIVITY SERVICESTECHDAYS PARIS 2010 : CONNECTEZ VOS DONNéES à SHAREPOINT 2010 AVEC LES BUSINESS CONNECTIVITY SERVICES par ROMELARD Fabrice
Animé par: Gaetan Bouveret et Julien Chomarat Business Connectivity Services (BCS) est dans SharePoint 2010 la version 2 de Business Data Catalog (BDC dans SharePoint 2007). Il s'agit de la solution permettant de visualiser des données provenan...
Cliquez pour lire la suite de l'article par ROMELARD Fabrice [DIVERS] SUIVRE VOS SéRIES PRéFéRéS SUR LA TOILE[DIVERS] SUIVRE VOS SéRIES PRéFéRéS SUR LA TOILE par orion
Comme de nombreux geek, je suis un grand amateur de série TV et je rate régulièrement des épisodes de mes séries préférés. Une solution s'offre à vous avec ce merveilleux site : Tv Gorge - www.tvgorge.com Moteur de recherche à l'appui, vous pouvez ...
Cliquez pour lire la suite de l'article par orion TECHDAYS PARIS 2010 : LA BI DANS SHAREPOINT 2010TECHDAYS PARIS 2010 : LA BI DANS SHAREPOINT 2010 par ROMELARD Fabrice
Animé par: Vincent Bellet et Baptiste Giraudier La BI dans SharePoint 2010, Les nouveaux services d'application dans SP2010 et SQL Server Reporting services 2008 R2. La BI dans SharePoint est généralisée pour tous afin de permettre à tous les coll...
Cliquez pour lire la suite de l'article par ROMELARD Fabrice
Logiciels
 DB-MAIN (9.1.0)DB-MAIN (9.1.0)DB-MAIN is a data-modeling and data-architecture tool. It is designed to help developers and anal... Cliquez pour télécharger DB-MAIN Xilisoft DPG Convertisseur (5.1.37.0120)XILISOFT DPG CONVERTISSEUR (5.1.37.0120)Xilisoft DPG Convertisseur offre aux fans de Nintendo DS une bonne solution leur permettant de dé... Cliquez pour télécharger Xilisoft DPG Convertisseur GraphicsGale (2.01.01)GRAPHICSGALE (2.01.01)GraphicsGale est un logiciel de PixelArt avec de nombreuse fonctionnalités permettant de réalisé ... Cliquez pour télécharger GraphicsGale Architecte 3D (Platinum 2010)ARCHITECTE 3D (PLATINUM 2010)Architecte 3D Platinium vous permet de concevoir facilement les plans votre future maison, de l'é... Cliquez pour télécharger Architecte 3D TeamViewer 5 (TeamViewer 5)TEAMVIEWER 5 (TEAMVIEWER 5)Dépanner un ami,expliquer une manipulation devient un jeu d'enfant.
Prise en main d'un autre ord... Cliquez pour télécharger TeamViewer 5
|