Błąd przy otwieraniu plików

Gdy otwieram za pomocą komponwntu MediaPlayer plik avi lun mpg to pokazuje mi się błąd : No MCI device open. i wskazuje mi na fragment kodu który jest pokazany jako komentarz:

    
    nazwa := form1.ListBox1.Items.Text;
    MediaPlayer.FileName := nazwa;
    // MediaPlayer.Open;
    MediaPlayer.Display := Panel1;
    MediaPlayer.DisplayRect := Panel1.ClientRect;

Wie ktoś co jest przyczyną?</image>

jak na mój gust nie ta kolejność ustawiania parametrów:

MediaPlayer.Display := Panel1;
MediaPlayer.DisplayRect := Panel1.ClientRect;
MediaPlayer.FileName := form1.ListBox1.Items.Text;
MediaPlayer.Open;

bo tak jak zrobiłeś, to wychodzi, że nie ma na czym pokazać filmu.

nadal zaznaczany jest fragment: MediaPlayer.Open;

A do MP podajesz pelna sciezke dostepu czy jak ??

Pełną np. : C:\Documents and Settings\Kuba\Moje dokumenty\Moja muzyka\abc.avi

begin
  MediaPlayer1.FileName := Nazwa;
  MediaPlayer1.Open;
  MediaPlayer1.Display := Panel1;
  MediaPlayer1.DisplayRect := Panel1.ClientRect;  // <== nie jestem pewien czy jest ClientRect
  MediaPlayer1.Play;
end;

Pisane z glowy wiec moga byc bledy ale tak powinno chyba to wygladac ;)

Nie można ustalić typu urządzenia na podstawie podanego rozszerzenia pliku i tym razem podświetlił : MediaPlayer.Display := Panel1;

procedure TForm1.Button1Click(Sender: TObject);
begin
  if OpenDialog1.Execute then
  begin
    MediaPlayer1.FileName := OpenDialog1.FileName;
    MediaPlayer1.Open;
    MediaPlayer1.Display := Panel1;
    MediaPlayer1.DisplayRect := Panel1.ClientRect;
    MediaPlayer1.Play;
  end;
end;

U mnie dzila i kompiluje sie ALL OK :-|

Ustwa jak masz przestawione:
DeviceType na dtAutoSelect

Zmieniłem devicetype na dtAVIVideo i teraz już się nie wywala ale i tak nie otwiera plików.

procedure TForm1.Button1Click(Sender: TObject);
begin
  if OpenDialog1.Execute then
  begin
    MediaPlayer1.FileName := OpenDialog1.FileName;
    MediaPlayer1.Open;
    MediaPlayer1.DisplayRect := Rect(0,0,Panel1.Width,Panel1.Height);
    MediaPlayer1.Play;
  end;
end;

To mi działa.

Działa ale tylko dla plików mpg.

Powiem tak

kiedyś pisałem jakąś odtwarzarkę filmów korzystając z mediaplayera-po jakims czasie wyskakiwał mi ten sam błąd,więc skorzystałem z ds-packa.potem po 2 tygodniach używania ds-packa zaczął wyskakiwać komunikat "error....ponieważ piny nie są połączone..."nie mogłem sobie z tym poradzić mimo reinstalki windowsa,kodeków,delphi i komponentów.wkur... sie,zainstalowałem mediaplayera i chodzi.po tygodniu to samo-błędy.odpaliłem inny projekt,wwaliłem mediaplayera-tym razem chodzi normalnie.otworzyłem mój projekt,wywaliłem mediaplayera i wstawiłem na nowo-chodzi bez zmiany nawet jednej linijki kodu

nie wiem co jest nie tak,ale według mnie nie ma co rozprawiać nad tym fragmentem kodu,spróbuj zrobić to samo,może pomoże