Mit dem Mediaplayer MP4 abspielen

[HPB]

Guten Tag Delphianer,
ich versuche über den Mediaplayer MP4-Dateien wieder zugeben.
Bekomme aber die Fehlermldung das dass "MCI-Gerät" nicht gefunden wird.
AVI-Dateien werden problemlos abgespielt.

Was muss denn beim Mediaplayer eingestellt werden um MP4-Dateien apzuspielen?

Oder gibt es andere Komponenten die dies besser können?
Danke für Eure Mühen im voraus.
HPB

[SneakyBagels]

Lass das mit dem Mediaplayer am besten direkt sein. Ich bin mir nicht sicher aber ich glaube der nutzt die auf dem PC installierten Videocodecs-e.
Wenn deine Anwendung auf einem PC ohne Codecs XY läuft, wars das mit dem Video.

Vielleicht hilft dir ja EWeiss' Projekt: http://www.delphipraxis.net/192329-kvideo-player.html

[himitsu]

Der TMediaPlayer der VCL?

Er kann nur ganz bestimmte "uralte" Formate, wie z.B. unkomprimierte AVI und WAV.

[SneakyBagels]

Zitat:

Er kann nur ganz bestimmte "uralte" Formate

Also noch schlimmer als ich vermutet habe.

[HPB]

Guten Delphianer,
vielen Dank für die raschen Antworten.
Da ich meine kleinen Hilfe-Filmchen in einem Formular des Programms
anzeigen lassen möchte, kann und möchte ich den VLC-Player nicht benutzen.
Also werde ich meine Programm-Hilfe-Filmchen in AVI umwandeln.
Dann klappt es auch.
Gruß HPB

[himitsu]

Den VCL kann man auch als ActiveX ins eigene Programm einbinden, wenn ich mich nicht irre.
Vorausgesetzt der VLC ist da auch installiert. (k.A. ob man die "Komponente" auch ohne Installation nutzen kann, wenn man die DLLs/Dateien des VLC mit in sein Programmverzeichnis legt, aber vermutlich nicht)

[Daniel]

Wenn Du den VLC-Player nicht nutzen magst, ist das natürlich Deine Entscheidung, an der ich nicht rütteln möchte.
Lediglich für das Protokoll: Du kannst dem VLC-Player das Handle einer Zeichenfläche geben und dann wird das Video genau dort angezeigt - inkl. Skalierung, wenn Du das möchtest. Bei mir läuft es in einem Panel.

[HPB]

Zitat:

Zitat von Daniel (Beitrag 1375059)

Wenn Du den VLC-Player nicht nutzen magst, ist das natürlich Deine Entscheidung, an der ich nicht rütteln möchte.
Lediglich für das Protokoll: Du kannst dem VLC-Player das Handle einer Zeichenfläche geben und dann wird das Video genau dort angezeigt - inkl. Skalierung, wenn Du das möchtest. Bei mir läuft es in einem Panel.

Guten Tag Daniel,
das liest sich ganz gut. Kannst Du den Teil des Projektes hier einstellen (Formular usw.)
damit ich davon lernen bzw. übernehmen kann?
Mit Gruß HPB

[t.roller]

VLC mit DELPHI
http://www.delphipraxis.net/150992-l...hi-nutzen.html

[HolgerX]

Hmm..

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

Für einen (älteren, unter D6) selbst geschriebenen Videoplayer nutze ich die DSPACK Komponenten, welche auch nur DirectX kapseln und somit aber alle Codecs verwenden kann, welcher auch der MediaPlayer von MS verwendet.

Ob es eine direkt verwendbare Lib für MP4 Videos gibt, welche ohne Installation verwendbar ist? K.A.

[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:

Zitat von t.roller (Beitrag 1375115)

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.

[Thomas.]

Mit dem Wrapper hast Du natürlich Recht.
Allerdings: die Treiber, die von meinen Videos verlangt werden, sind alle auf dem System vorhanden. Diese Videos können daher auch von allen Windows-Applikationen gespielt werden.

In Delphi 7SE konnte ich mit TWindowsMediaplayer problemlos (fast) alles spielen. Den scheint es in meiner Delphiversion nicht zu geben.
Damit habe ich mir die vorliegenden Probleme halt aufgehalst.

Ich würde auch eine Bezahlversion kaufen - gerne sogar. Wenn ich sicher wäre, dass ich dann diese Probleme nicht habe.
Darüber finde ich allerdings keine Informationen...

[mkinzler]

Wenn der Codec fehlt, fehlt er auch bei den anderen Playern, welche dieses verwenden. Bringen diese eigene mit (z.B. VLC) funktioniert es trotzdem.
Ggf. andere Komponenten nehmen (z.B. VLC-Wrapper).

[t.roller]

VLC spielt fast alles:
http://prog.olsztyn.pl/paslibvlc/
http://prog.olsztyn.pl/paslibvlc/download.php?v=2.2.8

[Thomas.]

Zu "TWindowsMediaPlayer":
Ich hatte vergessen, dass ich den vor unendlichen Zeiten auch in der alten Delphi-Version gesondert installieren hatte müssen - als ActiveX Komponente.
Wie das geht, habe ich hier herausgefunden: http://chapmanworld.com/windows-media-player-in-delphi/.

Ich hoffe, der Hint hilft auch zukünftigen Suchenden.