Discussion :

[MiGoN]

Salut les devz,

J'ai un souci avec la lecture de fichiers DIVX, XVID avec TMediaPlayer. Quand j'ouvre le fichier concerné, celui-ci semble s'ouvrir et se met en mode lecture (je le vois au notify) par contre rien ne s'affiche sur mon Display. Le problême ne vient pas des codecs vu que je suis sûr de les avoir installé et que Media Player Classic et Media Player 6.4 lisent correctement la même vidéo.

Quelqu'un aurait une idée de se dont j'aurais oublié ?

L'ouverture des vidéos se fait par drag&drop pour le moment. J'ai fais des test avec et sans Display, le résultat reste identique.
Voici mon source si ça peut aider:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
 
//---------------------------------------------------------------------------
 
#include <vcl.h>
#pragma hdrstop
 
#include "Unit1.h"
#include <registry.hpp >
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
TRect rec;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
{
        DragAcceptFiles(Handle, True);
        MediaPlayer1->Notify = true;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormShow(TObject *Sender)
{
    TIniFile *ini = new TIniFile(".\\options.ini");
    Form1->Top = ini->ReadInteger( "Player", "Top", 0 );
    Form1->Left = ini->ReadInteger( "Player", "Left", 0 );
    Form1->Width = ini->ReadInteger( "Player", "Width", 800 );
    Form1->Height = ini->ReadInteger( "Player", "Height", 600 );
    delete ini;
 
    // TRec au format du Panel
    rec.Left = 0;
    rec.Top = 0;
    rec.Bottom = Form1->Height;
    rec.Right = Form1->Width;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::MediaPlayer1Notify(TObject *Sender)
{
    AnsiString ModeStr[] = {"Not ready", "Stopped", "Playing", "Recording", "Seeking", "Paused", "Open"};
    Form1->Caption = ModeStr[(int) MediaPlayer1->Mode];
 
    MediaPlayer1->Notify = true;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::WMDropFiles(TMessage &Message)
{
    HANDLE hd;
    int nbFiles;
    char fileName[256];
 
    hd = (HANDLE)Message.WParam;
    DragQueryFile(hd, 0, fileName, 256 - 1);
 
    MediaPlayer1->FileName = fileName;
    MediaPlayer1->Display = Form1;
    MediaPlayer1->Open();
    MediaPlayer1->DisplayRect = rec;
    MediaPlayer1->Play();
 
    DragFinish(hd);
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::FormMouseDown(TObject *Sender, TMouseButton Button,
      TShiftState Shift, int X, int Y)
{
    ReleaseCapture();
    SendMessage(Handle, WM_SYSCOMMAND, 0xF012, 0);
}
//---------------------------------------------------------------------------

Merci d'avance
MiGoN

[cedni]

il manque pas un include ?
#include <vfw.h>

[kaderscream]

T'aurais pas oublié de mettre la propriété DeviceType a dtAutoSelect!!!???

[MiGoN]

cedni > je ne vois pas pourquoi j'aurais besoin de vfw.h et si je l'avais oublié je pense que j'aurais eu une erreur de compilation

kaderscream > la propriété DeviceType est bien en mode dtAutoSelect. D'ailleurs, pour les vidéos qui ne passent pas, j'ai essayé tous les modes du DeviceType sans succès. J'ai donc laissé dtAutoSelect.

Je commence à désespérer et pense devoir oublié le TMediaPlayer pour passer à autre chose car il a pas l'air très bien fournit.
Je précise tout de même que mon problème vient surtout sur certaines (pas toutes) vidéos Divx et Xvid. J'ai un xvid où c'est en ultra sacadé et quelques divx ou ça passe nickel