Mit der Delphi-Komponente Mediaplayer kann man sich seinen eigenen Videoplayer basteln. Legen Sie ein neues Formular (form1) mit einem einfachen Button (button1) an. Die mmsystem und mplayer müssen eingebunden werden. Die Datei meinvideo.mpg muß natürlich vorhanden sein (bzw. Dateinamen ändern).
MediaPlayer1.DisplayRect:=form1.ClientRect dient dazu, das Video an die Größe des Formulars anzupassen. Beim Klick auf den Button1 wird das Video abgespielt.
Der Screenshot (für unser Beispiel rechts) funktionierte übrigens nur, wenn man die Hardwarebeschleunigung der Grafikkarte (Videooverlay) in der Systemsteuerung abschaltet. Sonst erhält man nur ein schwarzes Formular.
Viel Erfolg beim Programmieren !
procedure TForm1.Button1Click(Sender: TObject);
begin
MediaPlayer1.FileName:='meinvideo.mpg';
MediaPlayer1.open;
MediaPlayer1.Display:=form1;
MediaPlayer1.DisplayRect:=form1.ClientRect;
MediaPlayer1.Play;
end;