Video Dateien im Vollbildmodus abspielen?

[Michael Graban]

Hallo zusammen

Wie kann ich mit Delphi dem Windows MediaPlayer sagen das er eine Videodatei im Vollbildmodus abspielen soll?

Ich würde mich freuen wenn mir da einer weiterhelfen könnte.
Danke schon mal für die Antworten.

Cu Micha

[Christoph Buric]

Hi!

Das geht mit folgendem Quelltext:

<Pre>
var sounddatei:string;

begin

mediaplayer1.filename:=sounddatei;
mediaplayer1.open;
mediaplayer1.displayrect:=animate1.clientrect;
mediaplayer1.play;

end;

</pre>

Die Avi-Datei wird dann in der Größe von Animate1 abgespielt. Ziehst du die Animate-Komponente über den gesamten Bildschirm auf, so wird die Avi-Datei im Vollbildmodus abgespielt.

Mfg. Buroo

[Christoph Buric]

Hi!

Dies geht mit folgenden Quelltext:

<pre>procedure TForm1.Button1Click(Sender: TObject);<br>
var sounddatei:string;<br>
begin<br>
with mediaplayer1 do begin
filename:=sounddatei;
open;
displayrect:=animate1.clientrect;
play;
end;<br>
end;</pre>

<b>Voraussetzung ist:

*) TMediaplayer-Komponente muss ins Formular eingegeben werden.
*) TAnimate-Komponente muss ins Formular eingegeben werden.
*) TButton-Komponente muss ins Formular eingegeben werden.
*) Mediaplayer1.autoopen muss auf false gestellt werden.
*) Mediaplayer1.display muss animate1 zugewiesen werden.
*) Mediaplayer1.autoenable muss auf false gestellt werden.
*) Mediaplayer1.autorepeat muss auf true gestellt werden.
*) Mediaplayer1.devicetype muss auf dtautoselect gestellt werden.
*) Mediaplayer1.visible kann optional auf false gestellt werden.</b>

Die Avi-Datei wird dann in der Größe abgespielt wie auch die Maße der TAnimateKomponente sind. Du musst dich halt ein wenig spielen bis du es so hast wie du es willst, die Grundlage ist der obige Quelltext.

Mfg. Buroo

[Heiko Mergl]

Ich benutze die Komponente DSPack dazu ,
spielt auch mehr Formate