Problem mit TMediaPlayer

[CalganX]

Hi,
also inzwischen habe ich das Gefühl, dass sich Windows gegen mich verschworen hat (werde deswegen auch gleich mal wieder Linux [Knoppix] booten). Nun aber zu meinem Problem:
Im gleichen Verzeichnis, wie das Programm liegt eine Datei, die sich "Reminding.wav" nennt. Diese Datei wird in eine TMediaPlayer-Komponente beim OnCreate des Forms eingelesen:
  MediaPlayer1.FileName := ExtractFilePath(Application.ExeName)+'Reminding.wav'; In einem OnTimer-Ereignis soll dann das ganze abgespielt werden:

Delphi-Quellcode:

  MediaPlayer1.Open;
  MediaPlayer1.Play;

Leider wird die Datei nicht abgespielt. ErrorMessage gibt irgendwas aus bzgl. MCIDevice unterstützt diese Operation nicht...
Hat da jemand eine Idee? Wäre euch für jede Hilfe dankbar!

Chris

[CalganX]

Funktioniert alles wieder. Nach einem neu kompillieren ging alles wieder..

Chris

[chrys]

hallo

wollte wissen wie du das ganze geloest hast und was den fehler ausgeloest hat ... habe drum den gleichen fehler.

[Darty]

Normalerweise passiert sowas wenn die Sound Datei nicht eingelesen werden konnte.

[chrys]

ich lade drum eine AVI datei in den mediaplayer ..... der avi film ist aber glaube ich mit Divx komprimiert. Kann es sein das es wegen dem nicht geht?

hat das schon mal jemand gemacht eine divx datei zu laden mit delphi?

[Darty]

Ah ich hatte nur Sound eingelesen gehabt. Wenn du mit den Media Player von Window auch nicht abspielen lassen kannst, dann wird es auch nicht funktionieren. Ja könnte sein dass es an dem liegt .

[chrys]

doch doch mit dem normalen media player kann ich den film schon lesen ... aber mit der MP konponente nicht.

[Darty]

kann ich mal dein code sehen wie du es aufrufst ?

[chrys]

Code:

procedure TForm34.FormCreate(Sender: TObject);
var topleft,bottomright:TPoint;
begin
Intro.FileName:=ExtractFilePath(Application.ExeName) + 'Movies\SPQR-LOGO.avi';
Intro.Open;
with rec do
   begin
      topleft:=point(0, 0);
      bottomright:=point(panel1.width, panel1.height);
   end;
   Intro.DisplayRect:=rec;
   Intro.Play;
end;

[chrys]

das problem ist ja das wenn ich den filenamen per deffault angebe ... dann geht auf meinem PC alles gut .. nur wenn ich dann das prg auf andern PC starten will dann geht es nicht ... deshalb dachte ich eben das es vielcith daran liegt das ich

Code:

Intro.FileName:=ExtractFilePath(Application.ExeName) + 'Movies\SPQR-LOGO.avi';

benutzen sollte .... aber danach ging es ueberhaupt nicht mehr ....