Avi obtenir la resolution (avifileinfo vfw.h )

Version imprimable

[Résolu] Avi obtenir la resolution (avifileinfo vfw.h )

Bonjour

debutant avec borland ,moins d une semaine mais qqs connaissances annexes , je me suis decidé à creer un petit player , pour le moment tout va bien mais je voudrais affiner la lecture en ajustant la resolution

je souhaiterais egalement recuperer la durée

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
 
void __fastcall TForm1::FormCreate(TObject *Sender)
{
MediaPlayer1->DeviceType = dtAutoSelect;
}
//---------------------------------------------------------------------------
// boite de dialogue et attribution de valeur
//-----------------------------------------------------
void __fastcall TForm1::BtAviSelectClick(TObject *Sender)
{
OpenDialog1->Execute();
OpenDialog1->FileName;
Memo1->Lines->Add(OpenDialog1->FileName);
NomAvi=OpenDialog1->FileName;
ComboBox2->Items->Add(NomAvi);
 
 
    // lancement auto du media apres selection
    TRect rec;
    rec.Left=0;
    rec.top=0;
    rec.Bottom=AviPanel->Height;
    rec.right=AviPanel->Width;
 
    MediaPlayer1->DeviceType = dtAutoSelect;
    MediaPlayer1->FileName = NomAvi;
             // "c:\\test.avi";
    MediaPlayer1->Display = AviPanel;
    MediaPlayer1->Open();
    MediaPlayer1->DisplayRect=rec;
    MediaPlayer1->Play();
 
}
//---------------------------------------------------------------------------
// lancer media player avec avi defini
//---------------------------------------------------------
 
void __fastcall TForm1::AviLancerClick(TObject *Sender)
 
{
MediaPlayer1->Pause();
 
Form1->Left=Screen->Width/2-350;
Form1->Top=Screen->Height/2-350;
Form1->Width = 700;
Form1->Height = 800;
 
AviPanel->Left=384;
AviPanel->Top=72;
AviPanel->Width = 300;
AviPanel->Height = 200;
 
TRect rec;
rec.Left=0;
rec.top=0;
rec.Bottom=AviPanel->Height;
rec.right=AviPanel->Width;
 
MediaPlayer1->DisplayRect=rec;
MediaPlayer1->Play();
}
 
//------------------------------------------------
// avi plein ecran
//---------------------------------------------
void __fastcall TForm1::AviPleinEcranClick(TObject *Sender)
{
MediaPlayer1->Pause();
 
Form1->Left=0;
Form1->Top=0;
Form1->Width = Screen->Width;
Form1->Height = Screen->Height;
 
AviPanel->Left=10;
AviPanel->Top=10;
AviPanel->Width = Form1->Width-20;
AviPanel->Height = Form1->Height-100;
 
TRect rec;
rec.Left=0;
rec.top=0;
rec.Bottom=AviPanel->Height;
rec.right=AviPanel->Width;
 
MediaPlayer1->DisplayRect=rec;
MediaPlayer1->Play();
 
}
 
 
//-------------------------
//  bouton stop
//---------------------------
 
void __fastcall TForm1::PauseClick(TObject *Sender)
{
MediaPlayer1->Pause();
}
//---------------------------------------------------------------------------
//-----------------------------------------------
//    fin mediaplayer
//-----------------------------------------------
//-------------------------------------------------------------

de cette maniere, la video occupe la totalité de l espace predefini sans tenir compte du ratio interne de la video

si vous avez une idée merci

je pense egalement ajouter la gestion de playlist et une barre de progression pour selectionner l endroit de lecture

24/06/2005, 15h11
jagboys

Avi file

Bonjour,
Regardes du coté de l'API multimedia windows :

http://msdn.microsoft.com/library/de..._functions.asp
25/06/2005, 12h19
cedni

j y pige pas grand chose

quelqun pourrait m aiguiller svp ?

AviFileInfo

Bonjour,

Inclus Vfw.h
Utilises le fonction AVIFileInfo pour récuprer la Structure AVIFILEINFO :

Code:

STDAPI AVIFileInfo(PAVIFILE pfile, AVIFILEINFO * pfi, LONG lSize );

Une fois que tu as obtenu pfi (AVIFILEINFO) il suffit de lire cette structure pour avoir la résolution :

Citation:

AVIFILEINFO :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 typedef struct { DWORD dwMaxBytesPerSec; DWORD dwFlags; DWORD dwCaps; DWORD dwStreams; DWORD dwSuggestedBufferSize; DWORD dwWidth; DWORD dwHeight; DWORD dwScale; DWORD dwRate; DWORD dwLength; DWORD dwEditCount; char szFileType[64]; } AVIFILEINFO;
Dans ton cas tu récupéreras dwWidth et dwHeight : résolution en pixels

27/06/2005, 21h33
cedni

merci sympa pourla reponse

j avais compris ca mais je savais pas introduire correctement la fonction

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
 
void __fastcall TForm1::BtAviSelectClick(TObject *Sender)
{
 
 
 
OpenDialog1->Execute();
OpenDialog1->FileName;
Memo1->Lines->Add(OpenDialog1->FileName);
NomAvi=OpenDialog1->FileName;
ComboBox2->Items->Add(NomAvi);
 
 
 
 
 
       // recup infos
 
            //On initialise la bibliothèque
AVIFileInit();
PAVIFILE pFile;
 
char * pPath = NomAvi.c_str();
//On ouvre la vidéo dont le path est pPath et on la place dans le buffer pFile
AVIFileOpen(&pFile,pPath,OF_SHARE_DENY_WRITE,NULL);
 
//Déclaration d'une structure AVIFILEINFO qui contient les infos de la vidéo
AVIFILEINFO pFileInfo;
 
//On récupére les infos dans pFileInfo
AVIFileInfo(pFile,&pFileInfo,sizeof(pFileInfo));
 
 
int Duree = pFileInfo.dwLength;
int Largeur = pFileInfo.dwWidth;
int Hauteur = pFileInfo.dwHeight;
int Scale = pFileInfo.dwScale;
int Rate  = pFileInfo.dwRate;
int Temps = Duree*(Scale/1000)/(Rate/1000);
 
 
 
 
 
Memo3->Lines->Add(Temps);
 
   AnsiString Infos = NomAvi ;
   Infos += " ( ";
   Infos += Largeur;
   Infos += " x ";
   Infos += Hauteur;
   Infos += " )";
Memo3->Lines->Add(Infos);
 
 
//Permet de quitter un AVI ouvert
AVIFileRelease(pFile);
//On ferme la bibliothèque AVI
AVIFileExit();
 
    // lancement auto du media apres selection
 
 
    TRect rec;
    rec.Left=0;
    rec.top=0;
    rec.Bottom=AviPanel->Height;
    rec.right=AviPanel->Width;
 
    MediaPlayer1->DeviceType = dtAutoSelect;
    MediaPlayer1->FileName =  NomAvi;
    //"c:\\test.avi";
    MediaPlayer1->Display = AviPanel;
    MediaPlayer1->Open();
    MediaPlayer1->DisplayRect=rec;
    MediaPlayer1->Play();

je reposterai le code final bientot

il me reste à utiliser le ratio pour l affichage dans le panel et à transformer la duree en seconde en hh:mm::ss

pour ce dernier point, une fonction n existerait pas ?

Secondes en HH:MM:SS

Bonjour,
Je ne sais pas s'il y a des fonctions toute faite pour convertir des secondes en HH:MM:SS.
Mais voici une astuce toute simple :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
        int temp;
        int h,m,s;
 
        h = m = s = 0;
 
        temp = /* Durée que tu récupères en secondes */
 
        if(RoundTo(temp/3600,0) > 0)
        {
                h = RoundTo(temp/3600,0);
                temp = temp - (h * 3600);
        }
 
        if(RoundTo(temp/60,0) > 0)
        {
                m = RoundTo(temp/60,0);
                temp = temp - (m * 60);
        }
 
        s = temp;
 
        // et voila h, m, s

04/07/2005, 20h47
cedni

ah merci c cool
j allais ecrire une fonction en utilisant les modulo mais ca c est impec

j avais pas pensé au round