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.
