Media-Player-Problem

[Tommy1988]

Folgenden Code verwende ich um ein Video auf einem Panel abzuspielen.

Delphi-Quellcode:

MediaPlayer1.filename:=
'pfad\zum\file\file.avi';
MediaPlayer1.open;
MediaPlayer1.display:=Panel1;
MediaPlayer1.play;

So, das wird auch abgespielt, das Problem:
Das Video wird wahnsinnig schnell wiedergegeben?

[toms]

Hallo, ist die Geschwindigkeit nur mit dieser Datei schneller oder auch mit anderen?

[Christian Seehase]

Moin Tommy,

und als ergänzende Frage:
Wie wird sie in anderen Playern abgespielt?

[Nils_13]

Du zeichnest es denke ich indirekt mit Canvas. Wenn du mit FFMpeg ein Video via Canvas zeichnest, hängt es von der Größe der Zeichenfläche ab, wie schnell das Video gespielt wird. Es kann sein, dass das hier das gleiche ist: Probier also die Breite und Höhe des Panels auf die Breite und Höhe des Videos zu setzen.

[Poseidon]

Du meinst also wie (dummes Beispiel)

Delphi-Quellcode:

Panel1.widh:= Video.widh;
Panel2.hight:= Video.hight;

Aber woher erfährtman die Größe des Videos?

[Namenloser]

Zitat von Nils_13:

Du zeichnest es denke ich indirekt mit Canvas. Wenn du mit FFMpeg ein Video via Canvas zeichnest, hängt es von der Größe der Zeichenfläche ab, wie schnell das Video gespielt wird. Es kann sein, dass das hier das gleiche ist: Probier also die Breite und Höhe des Panels auf die Breite und Höhe des Videos zu setzen.

Wie kann man mit Canvas ffmpeg benutzen?

[Nils_13]

Poseidon: Bin kein Multimediaplayer-Fan, aber ich würde mal MediaPlayer.Width und MediaPlayer.Height probieren.
NamenLozer: Mit Scanline.

[Poseidon]

Hab's mal getestet und das Planel hat die größe der Komponente. Habt ihr vieleicht eine andere lösung entzwichen gefunden? Wenn ja sagt sie mir bitte, denn ich habe das selbe Problem mit meinem Mediaplayer (auch TMediaplayer).

[Fussball-Robby]

Die Größe des Videos erhälts du über TMediaPlayer.DisplayRect. Hier ein kleines Beispiel, um die Größe des Panels anzupassen:

Delphi-Quellcode:

procedure ResizeDisplay(MP: TMediaPlayer);
begin
  with MP do
  begin
    Display.Width := DisplayRect.Right - DisplayRect.Left;
    Display.Height := DisplayRect.Bottom - DisplayRect.Top;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  with MediaPlayer1 do
  begin
    Filename := 'pfad\zum\file\file.avi';
    Open;
    Display := Panel1;
    ResizeDisplay(MediaPlayer1);
    Play;
  end;
end;