Hab mir auch beispiel angeschaut.
Das Problem ist bei:
Delphi-Quellcode:
..
procedure TForm1.FormCreate(Sender: TObject);
begin
with MediaPlayer1 do
begin
DeviceType := dtAVIVideo;
FileName := 'ykohl.avi';
Open;
//Play; // Nein ! Löst Problem aus hier! Das ist Mediaplayer nicht mehr richtig ansprechbar!
Notify := True;
end;
end;
..
procedure TForm1.MediaPlayer1Notify(Sender: TObject);
begin
MediaPlayer1.Rewind;
MediaPlayer1.Notify := True;
// Play löst das Problem aus. Danach ist der Player nicht mehr richtig ansprechbar per Schalter und
// sonstigen Programmcode.
MediaPlayer1.Play; // <- Problem
end;
Lösung:
- anderen Player benutzen!
- oder einen Thread schreiben der das Kontrolliert!
- weiter versuchen es doch zum laufen zu bekommen