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,

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.

[Delphi-Freak]

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

Good Evening, me

[dizzy]

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!?
Lieber das DSPack...

[Delphi-Freak]

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

LG

[Nils_13]

Woher kriegt man das DSPack?

[Sharky]

Zitat von Nils_13:

Woher kriegt man das DSPack?

Klickst Du hier