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

  FORUM HardWare.fr
  Video & Son

  le meilleur soft pour classer ses divx

 
 


Dernière réponse
Sujet : le meilleur soft pour classer ses divx
Mistral_ winner

felix158 a écrit :


 
En effet, c'est troublant...


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


Votre réponse
Nom d'utilisateur    Pour poster, vous devez être inscrit sur ce forum .... si ce n'est pas le cas, cliquez ici !
Le ton de votre message                        
                       
Votre réponse
[b][i][u][strike][spoiler][fixed][cpp][url][email][img][*]   
 
   [quote]
 
Options

 
Vous avez perdu votre mot de passe ?


Vue Rapide de la discussion
Mistral_ winner

felix158 a écrit :


 
En effet, c'est troublant...


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

felix158

xolth a écrit :


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


 
En effet, c'est troublant...
xolth

antp a écrit :

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


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

antp c'est quoi ce up de vieux topic :heink:
sorg ok, je vais tester
thekiller

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 ?

antp 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]
thekiller

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 ?

antp 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
thekiller je parle pas du tient mais de lui --->  http://www.basedvdivx.com/
 
 
 :lol:
antp

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 ?

bentotoro 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
thekiller :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+
antp 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]
shaman3 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]
Cyme S'lut .. mayb ya déjà eu c'te réponse .. j'ai pas eu le temps de tout lire sorry .. >> "Where is it" ..
antp 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]

Forum MesDiscussions.Net, Version 2010.2
(c) 2000-2011 Doctissimo

Copyright © 1997-2025 Groupe LDLC (Signaler un contenu illicite / Données personnelles)