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.