Videos im Vollbild

[Delphi-Freak]

Hallo DPler!

Weiß vielleicht jemand, wie man Videos im Vollbild abspielen kann?
Bzw. welche Komponenten soll ich da verwenden (TMediaPlayer und TAnimate als Display???)?

Vielen Dank im Voraus, :thumb:

Delphi-Freak

[Nils_13]

Wenn du es mit dem MediaPlayer machen willst, lass es lieber!

Animate:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin  
try {da Reshandel nicht gesetzt ist, ensteht ein Fehler}    
    Animate1.ResID := 256;  
except  
end;  
Animate1.ResHandle := LoadLibrary('shdocvw.dll');  
Animate1.Active := True;
end;

Für einen Videoplayer ist der MediaPlayer ungeignet! Sei's drum:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin  
MediaPlayer1.FileName:='C:\Download\rsgrow.mpg';  
MediaPlayer1.open;  
MediaPlayer1.Display:=panel1;  
MediaPlayer1.DisplayRect:=Panel1.ClientRect;  
MediaPlayer1.Play;
end;

Ich hoffe ich konnte helfen, wenn nicht schau dich nach so etwas wie 'BASS' um.

:hi:

[Delphi-Freak]

Vielmals Danke! :thumb:
An die Eigenschaft DisplayRect hatte ich nicht gedacht (ist mir noch nie aufgefallen).

Good Evening, me :-D

[dizzy]

Zitat:

Zitat von Nils_13

Ich hoffe ich konnte helfen, wenn nicht schau dich nach so etwas wie 'BASS' um.

Was willst du mit der BASS.DLL bei Videos!? :gruebel:
Lieber das DSPack...

[Delphi-Freak]

@dizzy: Muss ich mir mal anschauen, das DSPack, danke :thumb:

LG

[Nils_13]

Woher kriegt man das DSPack?

:hi:

[Sharky]

Zitat:

Zitat von Nils_13

Woher kriegt man das DSPack?

Klickst Du hier ;-)