Mit dem Mediaplayer MP4 abspielen

[SneakyBagels]

Zitat:

Ist es nicht so, das auch der VLC nur die auf dem System installierten Codecs verwendet?

Soweit ich weiß bringt der VLC-Player alles selber mit. Das macht ihn u.A. zum besten Player überhaupt.
"Beste" ist hier vielleicht das falsche Wort. Aber er bringt alles mit und man muss nicht wie noch vor 15 Jahren irgendein dubioses Codec-Pack runterladen.

[t.roller]

Man kann auch jeden Player einbetten in ein Panel, wie oben schon erwähnt: Beispiele mit mpc-be64.exe (rechts) und mpc-hc64.exe (links)

[EWeiss]

Zitat von t.roller:

Man kann auch jeden Player einbetten in ein Panel, wie oben schon erwähnt: Beispiele mit mpc-be64.exe (rechts) und mpc-hc64.exe (links)

Kannst du mit meiner Komponente auch egal im Panel oder sonst wo.
Und er hat madVr Support ein muss für Video Player.

Zudem ist man unabhängig von Design..

russ

[Thomas.]

Freunde, ich bin kürzlich von Delphi SE auf die Tokyo Starter Edition umgestiegen und habe damit mehr (Verständnis?-)Probleme als mir lieb ist.
Daher meine Frage, warum das Nachfolgende nicht funktioniert:

Delphi-Quellcode:

mediaplayer1.FileName:='Pfad und Name der Datei'; // C:\videos\filmchen.avi
mediaplayer1.Show;
mediaplayer1.Open;
mediaplayer1.DisplayRect:=Rect(0, 0, 0,0);
mediaplayer1.Display:=panel1;
mediaplayer1.Play;

Kann mir da irgendjemand helfen?
Danke!

[blawen]

Unter FMX starte ich den Player wie folgt:

Delphi-Quellcode:

function TfrmMain.Video_abspielen(AVideo: String): Boolean;
begin
  try
    Result := True;
    MediaPlayer1.Stop;
    MediaPlayer1.FileName :=  GetPathWithVideo + AVideo;  
    MediaPlayer1.CurrentTime := 0;
    MediaPlayerControl1.Visible := True;
    MediaPlayer1.Play;
  Except
    memStatus.Lines.Add('Video nicht gefunden: ' + GetPathWithVideo + AVideo);
    Result := False;
  end;
end;

Unter der VLC dürfte es ähnlich sein.

[mkinzler]

Zitat:

unter der vlc dürfte es ähnlich sein.

vcl

[Thomas.]

Danke für die Hilfe. Hat leider nicht funktioniert.

Das Problem ist: ich höre den Ton, sehe aber kein Bild, egal, was ich herumbastle.

[Thomas.]

Weiteres Herumbasteln hat dazu geführt, dass ich erkenne musste, dass Windows den Treiber des gewünschten Videos nicht kennt (habe das Video aber mit einem am System installierten Videoprogramm hergestellt).

Danach habe ich ein Video als Quelle angegeben, das von Windows mitgeliefert wird (Wildlife.wmv).
Nunmehr läuft das Video. Aber leider in der nativen Größe und lässt sich auch durch diverse Tricks wie

Delphi-Quellcode:

    panel1.Width:=640;
    panel1.Height:=480;
    mediaplayer1.Parent:=panel1;
    mediaplayer1.DisplayRect:=Rect(0, 0, 640,480);
    mediaplayer1.Display:=panel1;

nicht austricksen.

Ich bin begeistert von Delphi Tokyo Starter Edition. NOT.

(Ich hatte das alles schon in Delphi 7SE programmiert und dort lief es problemlos....)

[Thomas.]

Also, nach vielem Suchen und Experimentieren habe ich die Lösung gefunden.
Sie funktioniert allerdings nur mit WMV-Videos. (Dürfte sich um ein Treiberproblem handeln, aber das ist mir im Moment egal)

Delphi-Quellcode:

    panel1.Width:=640;
    panel1.Height:=480;
    MediaPlayer1.FileName := 'meinvideo.wmv';
    mediaplayer1.Display:=panel1;
    mediaplayer1.Open;

    MediaPlayer1.DisplayRect:=Panel1.ClientRect;
    // Obiges stellt dann das Video auf der eingestellten Panel-Größe dar

    // Alternativ (!) dazu funktioniert auch das Folgende.
    // Es stellt die Darstellung auf die native Größe des Videos
    mediaplayer1.DisplayRect := Rect(1, 1, 0, 0);

    mediaplayer1.Play;

[mkinzler]

Zitat:

Ich bin begeistert von Delphi Tokyo Starter Edition. NOT.
(Ich hatte das alles schon in Delphi 7SE programmiert und dort lief es problemlos....)

Mediaplayer ist nur ein Wrapper um das Control von Windows. Das ist das selbe, bei beiden Delphiversionen.
Wenn ein Codec fehlt, funktioniert es nunmal nicht.