Problem mit TMediaPlayer
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:
Delphi-Quellcode:
In einem OnTimer-Ereignis soll dann das ganze abgespielt werden:
MediaPlayer1.FileName := ExtractFilePath(Application.ExeName)+'Reminding.wav';
Delphi-Quellcode:
Leider wird die Datei nicht abgespielt. ErrorMessage gibt irgendwas aus bzgl. MCIDevice unterstützt diese Operation nicht...
MediaPlayer1.Open;
MediaPlayer1.Play; Hat da jemand eine Idee? Wäre euch für jede Hilfe dankbar! Chris |
Funktioniert alles wieder. Nach einem neu kompillieren ging alles wieder..
Chris |
hallo
wollte wissen wie du das ganze geloest hast und was den fehler ausgeloest hat ... habe drum den gleichen fehler. :freak: |
Normalerweise passiert sowas wenn die Sound Datei nicht eingelesen werden konnte.
|
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? :dancer2: :dancer: :dancer2: |
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 .
|
doch doch mit dem normalen media player kann ich den film schon lesen ... aber mit der MP konponente nicht. :firejump:
|
kann ich mal dein code sehen wie du es aufrufst ?
|
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; |
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:
benutzen sollte .... aber danach ging es ueberhaupt nicht mehr ....
Intro.FileName:=ExtractFilePath(Application.ExeName) + 'Movies\SPQR-LOGO.avi';
|
Alle Zeitangaben in WEZ +1. Es ist jetzt 15:37 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz