Einzelnen Beitrag anzeigen

Flax

Registriert seit: 12. Mär 2003
76 Beiträge
 
Delphi 7 Enterprise
 
#17

Re: Mediaplayer - 'Kein MCI-Gerät geöffnet'

  Alt 27. Jan 2005, 10:51
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
  Mit Zitat antworten Zitat