Discussion :

[jcs2]

(D7) Avec ce composant je n'arrive pas à obtenir la durée d'une vidéo.
On obtient bien le nombre de frames mais comme on ne connait pas la valeur frames/secondes on est coincé.

Avec le code

Code :

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

1
2
3
4
 if (mcisendcommand( Mediaplayer1.deviceid
                     , MCI_WHERE
                     , MCI_ANIM_WHERE_SOURCE
                     , longint(@rectparm)) <> 0 ) then showmessage('erreur' );

on récupère bien les dimensions de la vidéo, mais je ne vois rien dans la doc donnant le frames/seconde ou directement la durée.

[petitprince]

Essaie ca à tout hazard (chez moi ca marche pas, et j'utilise DSPack pour la vidéo, donc...)

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
procedure THiddenForm.GetProperties(
  FileName: String;
  var MediaFrames, MediaLength, MediaWidth, MediaHeight: Integer);
begin
  MediaPlayer.FileName := FileName;
  MediaPlayer.Wait := False;
  MediaPlayer.Open;
  MediaPlayer.TimeFormat := tfFrames;
  MediaFrames := MediaPlayer.Length;
  MediaPlayer.TimeFormat := tfMilliseconds;
  MediaLength := MediaPlayer.Length;
  MediaPlayer.DisplayRect := Rect(1, 1, 0, 0); {"0, 0" forces resolution autodetect}
  MediaWidth := MediaPlayer.DisplayRect.Right;
  MediaHeight := MediaPlayer.DisplayRect.Bottom;
  if (MediaWidth <= 0) or (MediaHeight <= 0) then begin {invalid values mean not video}
    MediaWidth := 0;
    MediaHeight := 0;
  end;
  MediaPlayer.Close;
end;

[Cl@udius]

Salut !

La propriété Length du TMediaPlayer doit faire l'affaire

Exemple extrait de l'aide de Delphi:

Le code suivant déclare un enregistrement HMSRec avec des champs de quatre octets.Si le format de TimeFormat est tfHMS,le premier champ spécifie les heures,le second les minutes,le troisième les secondes et le quatrième correspond àl'octet non utilisédu format tfHMS.Une variable LongInt est transtypée dans un enregistrement HMSRec,puis les heures,minutes,et secondes de la taille du média chargésont affichées dans les libellés lorsque l'utilisateur clique sur un bouton.

type
HMSRec =record
Hours:byte;
Minutes:byte;
Seconds:byte;
NotUsed:byte;
end;

procedureTForm1.Button1Click(Sender:TObject);
var
TheLength:LongInt;
begin

{Définit le format de l'heure –remarquez que certains périphériques ne prennent pas en charge tfHMS }

MediaPlayer1.TimeFormat :=tfHMS;
{stocke la longueur du média chargé}
TheLength :=MediaPlayer1.Length;
withHMSRec(TheLength)do
{Transtype TheLength en tant qu'enregistrement HMSRec }
begin
Label1.Caption :=IntToStr(Hours);{Affiche Hours dans Label1 }
Label2.Caption :=IntToStr(Minutes);{Affiche Minutes dans Label2 }
Label3.Caption :=IntToStr(Seconds);{Affiche Seconds dans Label3 }
end;
end;

@+

[jcs2]

Merci pour vos réponses.

Apparemment, tout au moins en D7, quelque soit le format indiqué pour la propriété Length de TMediaPlayer, on récupère le nombre de Frames de la vidéo AVI ou MPG.

Code :

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

1
2
3
type TMPTimeFormats = (tfMilliseconds, tfHMS, tfMSF, tfFrames
                      , tfSMPTE24, tfSMPTE25, tfSMPTE30
                      , tfSMPTE30Drop, tfBytes, tfSamples, tfTMSF);

Par contre je ne connaissais pas DSPACK et cela a l'air très concurrentiel par rapport à TMediaPlayer et je vais explorer cela.

[jcs2]

J'ai installé DSPACK selon la méthode indiquée par le fichier ReadME associé. Cela marche impeccable j'ai juste un petit souci.
Je n'arrive pas à obtenir l'aide. Que dois-je faire du fichier../help/help.chm qui documente le package?

Pour ce qui est de la durée d'une vidéo, DSPACK semble la connaître car il l'affiche dans un des exemples fournis.

Cela a l'air d'être une propriété de IMediaSeeking mais comment la récupérer?

D'autre part si DSPACK accepte les fichiers sons MP3, WAV, WMA il n'a pas l'air de connaître OGG. Ai-je loupé quelque chose?

[jcs2]

Ca yest, je l'ai la durée de la vidéo.

Je n'ai toujours pas d'aide pour DSPACK mais en fouillant un peu dans le code j'ai trouvé une propriété Duration

Code :

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

1
2
3
    Duree := FilterGraph.Duration;         // durée en millisecondes
                                           // affiche par ex: '00:03:24,500'
    showmessage( TimeToStr(Duree / MilliSecParJour)+','+ inttostr(Duree mod 1000));