TMediaPlayer - möchte n Video sehn?

[Lifthrasir]

Hallo Leute, bevor man sich beschwert, ich habe die Suchfunktion genutzt aber kein nahe liegendes Thema gefunden, kann aber sein dass ich einen Thread übersehen habe, oder falsche Suchwörter verwende :roll:

Na jedenfalls würde ich gerne einen kleinen einfchen player programmieren, der verschiedene Videodateien abspielt und mir auch das passende Bild dazu zeigt..

Hab mal einfach MediaPlayer1 verwendet, und dazu Animate1, aber weder spielt der Sound noch das Bild?
Welche konkreten Komponente soll ich nehmen, oder wo liegt da einfach der Trick?

Wäre lieb wenn ihr mir trotz meine sehr antwortlastigen Frage antworten würden


Danke sehr,
gez. der Nachwuchs ^^

[Matze]

Hi,

mit TMediaPlayer geht das schon. Zeig doch mal, was du bisher hast bzw. wie du die Dateien öffnest und abspielst. TAnimate musst du übrigens nicht verwenden, du kannst Display auch beispielsweise ein TPanel zuweisen.

[Lifthrasir]

also,ich hab dann mal Pannel1 als Display, hoffe das ist so richtig..

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
begin

With MediaPlayer2 do begin
     Filename := 'C:\Videos\Der Untergang.wma'; 
     DeviceType := dtAVIVideo;
     Display := panel1;
     Open;
     Play;

end;


end;

Hab das soweit in der Hilfe gefunden, im Unterricht behandeln wir sowas nämlich leider gar nicht... :(

[fLaSh11]

Wenn du kein Display angibst, macht er IMHO selbst ein Frame mit Video auf...

[Matze]

Teste als DeviceType mal dtAutoSelect.

[Lifthrasir]

wenn ich kein Display angebe, passiert das gleiche, nämlich leider gar nix... nichtmal Sound kommt raus

[Lifthrasir]

hab DeviceType auf dtAutoSelect aber tut sich einfach nischt... :( :( :(

[Matze]

Dann tippe ich auf einen fehlenden Codec. Kannst du denn das Video im Windows MediaPlayer abspielen?

Edit: Und bitte editiere deine Beiträge, anstelle Mehfach-Posts zu machen.

[EDatabaseError]

Zitat:

Zitat von Lifthrasir

also,ich hab dann mal Pannel1 als Display, hoffe das ist so richtig..

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
begin

With MediaPlayer2 do begin
     Filename := 'C:\Videos\Der Untergang.wma'; 
     DeviceType := dtAVIVideo;
     Display := panel1;
     Open;
     Play;

end;


end;

Hab das soweit in der Hilfe gefunden, im Unterricht behandeln wir sowas nämlich leider gar nicht... :(

Die endung WMA ist ein WindowsMediaAudio ... bei dtAVIVideo brauchst du eine .AVI Datei ;-)

Mfg

[Matze]

Zitat:

Zitat von EDatabaseError

bei dtAVIVideo brauchst du eine .AVI Datei ;-)

Falsch, zumindest nicht allgemein so zu sagen. Es kommt so rüber, als soll man bei avi generell dtAVIVideo wählen. MPEG4-Videos (Endung ebenfalls *.avi) spielt es damit nicht ab, daher würde ich generell dtAutoSelect wählen.

[Lifthrasir]

:stupid: seit dem ich mal den win Moviemaker benutz hab gehen einige Viedeos auf dem WindowsMediaPlayer nicht mehr, aber auf dem VLC-Player (wisst was i mein oder?) gehen alle.. und außerdem hab ich auch welchen versucht, die Windows sonst auf allen Playern abspielt...

[Matze]

VLC bringt selbst eine Menge Codecs mit. Da der TMediaPlayer auf dem WMP aufsetzt, kannst du damit auch "nur" die Dateien wiedergeben, die der WMP abspielen kann. Irgendwas hast du mit deinen Codecs angestellt, was, weiß ich nicht. ;)

Du könntest mal das DSPack testen, damit kann man auch Videos abspielen.

[Lifthrasir]

ok, das scheint soweit hinzukommen, danke erstmal..
Komisch nur, wenn ich diese Zeile nun rausnehme und starte schreibt Delphi, der Pfad kann nicht gefunden werden :shock: Dabei IST DER DA :?: :?:

Mein Rechner muss eine Frau sein......

[fLaSh11]

Oder wandle das Video in ne Avi um. SUPER wäre hier zu empfehlen. hier downladen :)

//P.S.: Vllt musst du dein FileName in "" setzen, weil ein Leerzeichen drin ist?!

[Lifthrasir]

nun hab ich da plötzlich noch den Fehler

I/O error 103

ich glaub ich mal auf Paint n Haus..

[Matze]

[dp]I/O error 103 [/dp]. Nutze doch bitte die Suche für solche Dinge, da wirst du fündig.

[Sunlight7]

Moin!

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
begin

With MediaPlayer2 do begin
     DeviceType := dtAutoSelect; // Wenn schon, dann hier, obwohl das gar net nötig ist
     Filename := 'C:\Videos\Der Untergang.wma';
     // DeviceType := dtAutoSelect; <- Hier falsch
     Display := panel1;
     Open;
     Play;
end;


end;

Vielleicht sollte man mal einen Thread aufmachen, wie benutze ich die Suche richtig :gruebel:

[Matze]

Der TMediaPlayer ist standardmäßig eh auf dtAutoSelect. Ohne richtigen Codec, der ja offensichtlich fehlt, geht das Abspielen generell nicht.

[Sunlight7]

Wenn Du es machst, nachdem Du den Dateinamen zuweist geht es auch net.