MediaPlayer.Duration wird angemeckert

[H.Bothur]

Moin,

ich versuche die Dauer eines Videos über Mediaplayer1.Duration auszulesen, nur leider sagt Delphi 11CE 'undeklarierter Bezeichner: Duration'

Delphi-Quellcode:

    MediaPlayer1.FileName := FilmName;
    DurationMin := MediaPlayer1.Duration div 10000 div 60000;
    DurationSec := MediaPlayer1.Duration div 10000 mod 60000 div 1000;
    FilmLaenge := FloatToStr(DurationMin) +':' +FloatToStr(DurationSec);

Den MediaPlayer habe ich auf die Forms gelegt, der selber wird ja auch nicht angemeckert.

Was habe ich denn da vergessen ??

Hans

[Delphi.Narium]

Weils Duration beim Mediaplayer nicht gibt, dafür aber Length?

Delphi-Quellcode:

procedure GetVideoDuration(const VideoFileName: string);
var
  MediaPlayer: TMediaPlayer;
begin
  MediaPlayer := TMediaPlayer.Create(nil);
  try
    MediaPlayer.FileName := VideoFileName;
    MediaPlayer.Open;
    try
      ShowMessage('Video-Dauer: ' + IntToStr(MediaPlayer.Length) + ' ms');
    finally
      MediaPlayer.Close;
    end;
  finally
    MediaPlayer.Free;
  end;
end;

[H.Bothur]

Danke - es gibt media.duration ... aber der Unterschied zwischen media. und mediaplayer. ist mir natürlich nicht aufgefallen :/

Hans