Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
2588 connectés 

 
 


 Mot :   Pseudo :  
 
 Page :   1  2
Page Suivante
Page Précédente
Bas de page 
Auteur Sujet :

le meilleur soft pour classer ses divx

n°258511
antp
Super Administrateur
Champion des excuses bidons
Posté le 29-04-2002 à 19:02:42  profilanswer
 

Reprise du message précédent :
Merci.
Pas super lisible comme code mais bon :/ :D
Va falloir que je traduise tout ça en Pascal...
Là tu utilises des fonctions de Windows du style Video for Windows ?  
À quel endroit du code tu récupères le bitrate ?
Moi en fait j'avais "à la main" été décrypter le Avi (c'est amusant à faire :D)

 

[jfdsdjhfuetppo]--Message édité par antp le 29-04-2002 à 19:03:46--[/jfdsdjhfuetppo]


---------------
mes programmes ·· les voitures dans les films ·· apprenez à écrire
mood
Publicité
Posté le 29-04-2002 à 19:02:42  profilanswer
 

n°258531
Cyme
Est Solarus Oth Mythas
Posté le 29-04-2002 à 19:42:54  profilanswer
 

S'lut .. mayb ya déjà eu c'te réponse .. j'ai pas eu le temps de tout lire sorry .. >> "Where is it" ..


---------------
([: -- Shamakito Corp -- :])
n°258534
shaman3
Posté le 29-04-2002 à 19:53:09  profilanswer
 

Bon c'est vrai que mon code est pas clair, mais decrypter l'avi
"a la main" genre recuperer un octet a un offset predefini du fichier c'est coder comme un porc :)
 
Sinon pour ton probleme tu n'as pas le bitrate direct il faut recuperer la taille de chaque frame avec cette boucle suivante (portion du code du dernier post):
 
for (unsigned int l=0;l < cl_AviStreamInfo[i].dwLength;l++) {
  AVIStreamSampleSize( cl_pAviStream,  l,  &cl_lSamplesize);
  cl_lVideoTaille += cl_lSamplesize;
}
 
cl_lVideoTaille = taille du flux
 
ensuite comme tu as aussi le nombre d'images dans la structure
renvoyé par la fonction AVIStreamInfo ligne :
if(!AVIStreamInfo(cl_pAviStream,&cl_AviStreamInfo[i],sizeof(AVISTREAMINFO))) {
 
De la doc msdn :
AVISTREAMINFO
The AVISTREAMINFO structure contains information for a single stream.  
 
typedef struct {  
    DWORD fccType;  
    DWORD fccHandler;  
    DWORD dwFlags;  
    DWORD dwCaps;  
    WORD  wPriority;  
    WORD  wLanguage;  
    DWORD dwScale;  
    DWORD dwRate;  
    DWORD dwStart;  
    DWORD dwLength;  
    DWORD dwInitialFrames;  
    DWORD dwSuggestedBufferSize;  
    DWORD dwQuality;  
    DWORD dwSampleSize;  
    RECT  rcFrame;  
    DWORD dwEditCount;  
    DWORD dwFormatChangeCount;  
    char  szName[64];  
} AVISTREAMINFO;  
 
dwLength = nombre d'images
Donc plus de probleme pour calculer le bitrate....

 

[jfdsdjhfuetppo]--Message édité par shaman3 le 29-04-2002 à 19:55:24--[/jfdsdjhfuetppo]


---------------
L'agence www.PolyDev.com, entreprise spécialisée dans l'accompagnement et le suivi de vos projets multimédia (3d, 3d web, site web,  logiciels spécialisés).
n°258551
antp
Super Administrateur
Champion des excuses bidons
Posté le 29-04-2002 à 20:17:02  profilanswer
 

Ok merci je verrai tout ça mercredi ou ce week-end :)
 
 

shaman3 a écrit a écrit :

Bon c'est vrai que mon code est pas clair, mais decrypter l'avi
"a la main" genre recuperer un octet a un offset predefini du fichier c'est coder comme un porc :)
 




 
:non: je prends pas un endroit "prédéfinit".
Le AVI a une structure, avec des blocs de 4 octets (DWORD) de type LIST, strf, strh, strl, vids, auds, etc...
J'analyse le tout.
J'ai déjà fait des tests avec des AVI qui ont deux stream audio, ou des AVI où les streams ont pas leur header au même endroit, ça marche nickel.
 
Voilà le code que j'avais fait :
 

Code :
  1. unit functions_avi;
  3. interface
  5. uses
  6.   Windows, Graphics;
  8. type
  10.   FOURCC = array[1..4] of Char;
  11.   TAVIHeader = record
  12.     dwMicroSecPerFrame:     DWORD;
  13.     dwMaxBytesPerSec:       DWORD;
  14.     dwReserved1:            DWORD;
  15.     dwFlags:                DWORD;
  16.     dwTotalFrames:          DWORD;
  17.     dwInitialFrames:        DWORD;
  18.     dwStreams:              DWORD;
  19.     dwSuggestedBufferSize:  DWORD;
  20.     dwWidth:                DWORD;
  21.     dwHeight:               DWORD;
  22.     dwScale:                DWORD;
  23.     dwRate:                 DWORD;
  24.     dwStart:                DWORD;
  25.     dwLength:               DWORD;
  26.   end;
  27.   TStreamHeader = record
  28.     fccType:                FOURCC;
  29.     fccHandler:             FOURCC;
  30.     dwFlags:                DWORD;
  31.     dwReserved1:            DWORD;
  32.     dwInitialFrames:        DWORD;
  33.     dwScale:                DWORD;
  34.     dwRate:                 DWORD;
  35.     dwStart:                DWORD;
  36.     dwLength:               DWORD;
  37.     dwSuggestedBufferSize:  DWORD;
  38.     dwQuality:              DWORD;
  39.     dwSampleSize:           DWORD;
  40.   end;
  41.   TVidsStreamFormat = BITMAPINFO;
  42.   TAudsStreamFormat = record
  43.     wFormatTag:             Word;
  44.     nChannels:              Word;
  45.     nSamplesPerSec:         DWORD;
  46.     nAvgBytesPerSec:        DWORD;
  47.     nBlockAlign:            Word;
  48.     wBitsPerSample:         Word;
  49.     cbSize:                 Word;
  50.   end;
  52. function ExtractAVIInfos(const AVIFileName: string; out ResX, ResY, Length: integer; out FrameRate: single; out VideoCodec, AudioCodec: string): boolean;
  54. implementation
  56. uses
  57.   Sysutils, Dialogs, ShellAPI, classes, StrUtils;
  59. const
  61.   RIFF = $46464952;
  62.   AVI_ = $20495641;
  63.   LIST = $5453494C;
  64.   HDRL = $6C726468;
  65.   AVIH = $68697661;
  66.   STRL = $6C727473;
  67.   STRH = $68727473;
  68.   STRF = $66727473;
  69.   VIDS = $73646976;
  70.   AUDS = $73647561;
  72. var
  73.   DWORDSize: DWORD = SizeOf(DWORD);
  75. function ExtractAVIInfos(const AVIFileName: string; out ResX, ResY, Length: integer; out FrameRate: single; out VideoCodec, AudioCodec: string): boolean;
  76. var
  77.   VideoFile: THandleStream;
  78.   FileHandle: THandle;
  79.   AAVIHeader: TAVIHeader;
  80.   AVidsStreamFormat: TVidsStreamFormat;
  81.   AAudsStreamFormat: TAudsStreamFormat;
  82.   StructHeader, ListHeader: DWORD;
  83.   StructSize, ListSize: DWORD;
  84.   FullHeaderStart, FullHeaderSize: DWORD;
  85.   LastPos: Int64;
  86. begin
  87.   Result := False;
  88.   VideoFile := nil;
  89.   FileHandle := CreateFile(PChar(AVIFileName), GENERIC_READ, FILE_SHARE_READ, nil, OPEN_ALWAYS, 0, 0);
  90.   if FileHandle = INVALID_HANDLE_VALUE then
  91.     Exit;
  92.   try
  93.     VideoFile := THandleStream.Create(FileHandle);
  94.     VideoFile.Seek(0, soFrombeginning);
  95.     VideoFile.Read(StructHeader, DWORDSize);
  96.     VideoFile.Read(StructSize, DWORDSize);
  97.     if (StructHeader <> RIFF) then
  98.       Exit;
  99.     VideoFile.Read(StructHeader, DWORDSize);
  100.     if (StructHeader <> AVI_) then
  101.       Exit;
  102.     VideoFile.Read(StructHeader, DWORDSize);
  103.     VideoFile.Read(StructSize, DWORDSize);
  104.     if (StructHeader <> LIST) then
  105.       Exit
  106.     else
  107.     begin
  108.       FullHeaderStart := VideoFile.Position;
  109.       FullHeaderSize := StructSize;
  110.     end;
  111.     VideoFile.Read(StructHeader, DWORDSize);
  112.     if StructHeader <> HDRL then
  113.       Exit;
  114.     VideoFile.Read(StructHeader, DWORDSize);
  115.     VideoFile.Read(StructSize, DWORDSize);
  116.     if (StructHeader <> AVIH) then
  117.       Exit;
  118.     LastPos := VideoFile.Position;
  119.     VideoFile.Read(AAVIHeader, SizeOf(AAVIHeader));
  120.     ResX := AAVIHeader.dwWidth;
  121.     ResY := AAVIHeader.dwHeight;
  122.     Length := (AAVIHeader.dwTotalFrames * (AAVIHeader.dwMicroSecPerFrame div 1000)) div 60000;
  123.     FrameRate := 1000000 / AAVIHeader.dwMicroSecPerFrame;
  124.     VideoCodec := '';
  125.     AudioCodec := '';
  126.     Result := True;
  127.     ListSize := StructSize;
  128.     while VideoFile.Position < (FullHeaderStart + FullHeaderSize) do
  129.     begin
  130.       VideoFile.Seek(LastPos, soFromBeginning);
  131.       VideoFile.Seek(ListSize, soFromCurrent);
  132.       VideoFile.Read(ListHeader, DWORDSize);
  133.       VideoFile.Read(ListSize, DWORDSize);
  134.       if (ListHeader <> LIST) then
  135.         Exit;
  136.       LastPos := VideoFile.Position;
  137.       VideoFile.Read(StructHeader, DWORDSize);
  138.       if (StructHeader <> STRL) then
  139.         Exit;
  140.       VideoFile.Read(StructHeader, DWORDSize);
  141.       VideoFile.Read(StructSize, DWORDSize);
  142.       if (StructHeader <> STRH) then
  143.         Exit;
  144.       VideoFile.Read(StructHeader, DWORDSize);
  145.       case StructHeader of
  146.         VIDS:
  147.           begin
  148.             VideoFile.Seek(StructSize - DWORDSize, soFromCurrent);
  149.             VideoFile.Read(StructHeader, DWORDSize);
  150.             VideoFile.Read(StructSize, DWORDSize);
  151.             if (StructHeader = STRF) then
  152.             begin
  153.               VideoFile.Read(AVidsStreamFormat, SizeOf(AVidsStreamFormat));
  154.               VideoCodec := Copy(FourCC(AVidsStreamFormat.bmiHeader.biCompression), 1, 4);
  155.             end;
  156.           end;
  157.         AUDS:
  158.           begin
  159.             VideoFile.Seek(StructSize - DWORDSize, soFromCurrent);
  160.             VideoFile.Read(StructHeader, DWORDSize);
  161.             VideoFile.Read(StructSize, DWORDSize);
  162.             if (StructHeader = STRF) then
  163.             begin
  164.               VideoFile.Read(AAudsStreamFormat, SizeOf(AAudsStreamFormat));
  165.               AudioCodec := AudioCodec + IntToHex(AAudsStreamFormat.wFormatTag, 4);
  166.             end;
  167.           end;
  168.       end;
  169.     end;
  170.   finally
  171.     VideoFile.Free;
  172.     CloseHandle(FileHandle);
  173.   end;
  174. end;
  176. end.

 

[jfdsdjhfuetppo]--Message édité par antp le 29-04-2002 à 20:17:57--[/jfdsdjhfuetppo]


---------------
mes programmes ·· les voitures dans les films ·· apprenez à écrire
n°260728
thekiller
Posté le 03-05-2002 à 14:54:53  profilanswer
 

:hello:  
 
tres bon prog :)
 
bon cependant quelque remarque :
 
le bitrate ne sert a rien
eux faudrais pouvoir rajouter c commentaire perso
aussi si le site de recherche est hs on fait comment ?
 
 
a+


---------------
Mon feedback
n°260738
bentotoro
Posté le 03-05-2002 à 15:04:48  profilanswer
 

Ya aussi un autre soft dont personne n'a parlé : DVDProfiler !
 
Excellent : Jacquettes, résumés, exportation sous différents formats, GRATUIT !!!
 
http://www.dvdprofiler.com

n°260765
antp
Super Administrateur
Champion des excuses bidons
Posté le 03-05-2002 à 15:44:34  profilanswer
 

thekiller a écrit a écrit :

 
le bitrate ne sert a rien
eux faudrais pouvoir rajouter c commentaire perso
aussi si le site de recherche est hs on fait comment ?




 
Heu le bitrate peut être utile pour les divx, y a plein de monde qui le voulait, je peux pas satisfaire tout le monde :D
T'as qu'à mettre la zone du DVD dedans :p
Les commentaires persos y a une zone "Commentaires" pour ça :D
Et le site de recherche, bhen si il est HS j'y peux rien moi ... C'est lequel qui est HS ?


---------------
mes programmes ·· les voitures dans les films ·· apprenez à écrire
n°260879
thekiller
Posté le 03-05-2002 à 18:32:43  profilanswer
 

je parle pas du tient mais de lui --->  http://www.basedvdivx.com/
 
 
 :lol:


---------------
Mon feedback
n°260904
antp
Super Administrateur
Champion des excuses bidons
Posté le 03-05-2002 à 19:33:03  profilanswer
 

Ha bhen pour l'autre ça ne sert à rien de faire des remarques vu que le gars ne repasse plus jamais sur le forum :D


---------------
mes programmes ·· les voitures dans les films ·· apprenez à écrire
n°260969
thekiller
Posté le 03-05-2002 à 21:55:52  profilanswer
 

antp a écrit a écrit :

Ha bhen pour l'autre ça ne sert à rien de faire des remarques vu que le gars ne repasse plus jamais sur le forum :D  



ah bon :(
 
ben il est pas mal pourtant :)
tu veux que je test le tient, est-il aussi intuitif ?


---------------
Mon feedback
mood
Publicité
Posté le 03-05-2002 à 21:55:52  profilanswer
 

n°260976
antp
Super Administrateur
Champion des excuses bidons
Posté le 03-05-2002 à 22:17:35  profilanswer
 

Aussi intuitif je sais pas, mais moi je trouve le mien plus complet, plus joli et plus ergonomique... Mais bon mon avis n'est pas très objectif je pense :D
 
De toute façon la prochaine beta (mise en ligne demain je pense) pourra importer les fichiers de BaseDVDivx, donc si tu veux passer de BaseDVDivx à mon soft par après ce sera possible ;)

 

[jfdsdjhfuetppo]--Message édité par antp le 03-05-2002 à 22:18:16--[/jfdsdjhfuetppo]


---------------
mes programmes ·· les voitures dans les films ·· apprenez à écrire
n°260977
thekiller
Posté le 03-05-2002 à 22:20:44  profilanswer
 

antp a écrit a écrit :

Aussi intuitif je sais pas, mais moi je trouve le mien plus complet, plus joli et plus ergonomique... Mais bon mon avis n'est pas très objectif je pense :D
 
De toute façon la prochaine beta (mise en ligne demain je pense) pourra importer les fichiers de BaseDVDivx, donc si tu veux passer de BaseDVDivx à mon soft par après ce sera possible ;)  
 
 



ben en faite je m'en fou je test depuis aujourd'hui, par contre y a des films que je ne trouve pas :(
avec le tient je vois pas ou il faut exporter ! ta pas icq ?


---------------
Mon feedback
n°284938
sorg
trop sur HFR depuis 2001
Posté le 14-06-2002 à 12:01:28  profilanswer
 

ok, je vais tester

n°284965
antp
Super Administrateur
Champion des excuses bidons
Posté le 14-06-2002 à 12:45:48  profilanswer
 

c'est quoi ce up de vieux topic :heink:

Message cité 1 fois

---------------
mes programmes ·· les voitures dans les films ·· apprenez à écrire
n°1379568
xolth
Ranx.. znort!
Posté le 15-03-2008 à 17:54:25  profilanswer
 

antp a écrit :

c'est quoi ce up de vieux topic :heink:


Comment savais-tu que j'allais le faire???
[:xolth]

Message cité 1 fois
n°1758879
felix158
glop glop
Posté le 15-12-2011 à 22:04:25  profilanswer
 

xolth a écrit :


Comment savais-tu que j'allais le faire???
[:xolth]


 
En effet, c'est troublant...

Message cité 1 fois
n°1759047
Mistral_ w​inner
Aucun rapport.
Posté le 16-12-2011 à 21:43:55  profilanswer
 

felix158 a écrit :


 
En effet, c'est troublant...


Qu'est-ce qui est troublant ? Ton up de pres de 4 ans [:neuropsy:1]


---------------
Life is like a pubic hair on a toilet seat. Eventually you'll get pissed off...
mood
Publicité
Posté le   profilanswer
 

 Page :   1  2
Page Suivante
Page Précédente
Haut de page 

Aller à :
Ajouter une réponse
 

Sujets relatifs
Pb conversion divx avec Tmpeg[Divx 5 : me taper pas ! ] Y a pas kkun qui a fait un bon tuto ?
DivX 3.11 et 5.01 ??? installer les deux ? compatibilite ?DivX Box dans ma voiture !
archos jukebox 6000 durée d'1 transfert d'un divx sur l'USB ?DivX avec son 5.1 sous XP
Couper un divxprobleme divx mac
kelkin sait il encoder en divx 5 ?HELP Hollywod + Elsa GloriaII + sortie Tv + audio + Divx???
Plus de sujets relatifs à : le meilleur soft pour classer ses divx

Forum MesDiscussions.Net, Version 2010.2
(c) 2000-2011 Doctissimo
Page générée en 0.089 secondes

Copyright © 1997-2022 Hardware.fr SARL (Signaler un contenu illicite / Données personnelles) / Groupe LDLC / Shop HFR