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:

Delphi-Quellcode:

  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.
:freak:

[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? :dancer2: :dancer: :dancer2:

[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. :firejump:

[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 ....

[flomei]

Zitat:

Zitat von chrys

Code:

...'Movies\SPQR-LOGO.avi';

Wird das zufällig was mit Latein?

MfG Florian

[Darty]

Ich probiere es morgen aus ... Hatte wie gesagt nur Sound abgespielt damit ... Werde dann morgen mal ne AVI abspielen lassen ..

[Darty]

Soch habe jetzt einfach Geschwind ein Player gebaut nur mal zu sehen ob es überhaupt funktioniert. Ich nutze da den MediaPlayer und es wird auf ein Animate ausgegeben. Und es funktioniert alles wie es soll. Nur komischerweise bei einer bestimmte AVI läuft es im Zeittraffer ab. Aber eine Fehlermeldung konnte ich noch nicht feststellen.
Nun habe ich versucht Fehler zu simulieren. Und dabei könnte die Möglichkeiten sein:

- Wenn MediaPlayer.Autoopen = True gestellt ist, aber keine Datei geladen wurde erhalte ich eine Fehlermeldung

- Wenn ich DeviceType von MediaPlayer verstellt hatte ebenso.


Ich hoffe ich konnte Dir ein wenig damit helfen. Und was ist "rec" bei Dir ?

Naja vielleicht bringt Dir dass etwas wenn Du mein schnell zusammengebautet Player anschauen kannst. Füge es also bei. Und teste es mit Deiner Avi File ob der Fehler noch auftaucht.

[flomei]

Ich hab grad dein Prog ausprobiert und es stürzte einfach ab. Ich hab ne AVI Datei geöffnet und dann tauchte das hier auf:

Zitat:

Ein Programmfehler ist aufgetreten.

Dann tauchte das nächste Fenster auf in dem was von einer avi.dll oder so stand.
Liegt das an Win98?!

MfG Florian :hi:

[Darty]

Zitat:

Zitat von flomei

Ich hab grad dein Prog ausprobiert und es stürzte einfach ab. Ich hab ne AVI Datei geöffnet und dann tauchte das hier auf:

Zitat:

Ein Programmfehler ist aufgetreten.

Dann tauchte das nächste Fenster auf in dem was von einer avi.dll oder so stand.
Liegt das an Win98?!

MfG Florian :hi:

Gegenfrage: Hast Du MediaPlayer auf Dein Rechner ? Läuft dieser mit der besagte Avi File ? Weil wenn dieser nicht installiert ist dann wird das Programm auch nicht funktionieren da es auf dieses aufbaut. Oder sag ich jetzt was falsches ? Habe jetzt in moment keine Möglichkeit das Programm auf Win98SE zu testen, werde ich aber noch nachholen. Wie gesagt hatte ich schnell zusammengebastelt :)

[flomei]

Zitat:

Zitat von M.Knebel

Hast Du MediaPlayer auf Dein Rechner ? Läuft dieser mit der besagte Avi File ?

Zweimal JA!

MfG Florian :hi:

[Darty]

Hmmm ?? Dann dürfte kein Fehler vorkommen ??

Mit was hast Du getestet ? Mit meiner Exe ? Oder haste selber eine Exe Kompiliert ? Source liegen ja bei ..

[flomei]

Neu kompiliert. Funzt immer noch nicht. Siehe Anhang!

MfG Florian :hi:

[Daniel B]

Hallo,

könntest Du bitte die blöde avi mal reinstellen. Wenns nicht zu gross ist, dann könnten es auch noch andere ausprobieren.

Grüsse, Daniel :hi:

[flomei]

21 MB ist zu groß, oder?! Ich hab nur MPG´s.

MfG Florian :hi:

[Daniel B]

Hallo,

Zitat:

Zitat von flomei

21 MB ist zu groß, oder?! Ich hab nur MPG´s.

Eindeutig. ;) Jedenfalls für mich.
Das Programm von M.Knebel läuft bei mir, jedenfalls mit einer .mpeg, .avi habe ich eben nicht und konnte dies nicht testen.

Grüsse, Daniel :hi:

[chrys]

also das program geht ohne probleme! auch die besagt avi datei funzt einwandfrei.

nur das funzte ja auch schon bei mir, nur das es nicht au anderen rechnern gefunzt hat.

ich probiere nochmal das ganze ein wenig genauer zu beschreiben .

also

ich habe eine mediaplayer componente auf ner form.
den path lade ich hiermit im FormCreate

Code:

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

das problem ist nun das wenn ich DEVICETYPE also tAutoSelect einstelle ich den bekannten

Code:

EMCIDeviceError

bekomme.
Wenn ich allerdings als standard path schon das SPQR-LOGO.avi angebe dann funzt alles perfekt. Das ganze kommt mir ziemlich lateinisch vor. :nerd: :freak:

[chrys]

schau mal das program an und schau was hier falsch ist. :coder:

[Darty]

Kannst Du es mal zu Testzwecken in Dein Code ne Label reinmachen und folgendes

Delphi-Quellcode:

  Label1.text:= Intro.FileName;

testen was es angibt. Wenn ich es jetzt richtig verstanden habe findet er die Datei nicht unter Dein angegebene Verzeichnis ? Ich nehme mal an die existiert. Ist mir auch schon passiert dass eine Kleinigkeit falsch war und ich hängenblieb.

[chrys]

so wie das program jetzt ist, sollte es doch gehen. geht das AVI TEST bei irgendjemandem ohne probleme ??

[Daniel B]

Hallo,

Zitat:

Zitat von chrys

so wie das program jetzt ist, sollte es doch gehen. geht das AVI TEST bei irgendjemandem ohne probleme ??

Also bei mir nicht. Aber das von MKnebel schon.

Grüsse, Daniel :hi:

[Darty]

Zitat:

Zitat von chrys

schau mal das program an und schau was hier falsch ist. :coder:

jap .. Habs gerade getestet .. Dass funzt nicht ... Übrigens ist eine WMV und keine AVI ... Aber dass sollte auch gehen. Also folgendes ich selber kann die Datei nur hören aber nicht sehen da mir die entsprechende Komprimierung fehlt siehe da

Code:

Ein entsprechendes Dekomprimierprogramm konnte für diese Datei nicht gedownloadet werden. (Fehler=80040200)

Dass spuckt der normale MediaPlayer aus.
Ok ... Also AutoOpen = True dass bedeutet er startet die Datei sofort, daher brauchst Du dann auch kein MediaPlayer.Play .
Ausser Du würdest AutoOpen = False stellen, dann hätte MediaPlayer.Play einen Sinn. Und das Programm spuckt nur eine Fehlermeldung aus wenn Du es auf True stellst und dann noch Play aufrufst ...
Übrigens woher kriege ich die Komprimierung ?? Weil dass was Du hast, können dann nicht viele sehen :)

[Daniel B]

Hallo,

also ich bekomme zuerst den AVITEST fehler und danach den EMCIDeviceError-Fehler.

Grüsse, Daniel :Hi:

[chrys]

ich weis das das keine AVI ist .... es sollte ja auch das ganz normale standard file von windowsXP sein .... das SAMPLE video ...hat also keine besondere compimierung. ist mir also schleierhaft warum das bei dir nicht geht. :shock: :?:
ich probiere aber jetzt dann grad deinen tipp zu befolgen ...man darf gespannt sein :nerd:

[Darty]

Daniel mach mal bei der Eigenschaft der MediaPlayer das Autoplay auf false ... Dann sollte es funktionieren oder du löscht die play zeile und lässt Autoplay auf true ..

Siehst Du auch ne Bild ? Ich mein kannst Du die WMV auch sehen oder nur hören ?

[chrys]

:spin: :spin: :spin: juhuuu es geht es geht ... :dancer2: :dancer: :dancer2: :dancer: :bounce1: :bounce2: :dancer2: :bouncing4: :firejump: :dancer: :firejump: :chat: :chat: :freak: :party: :party: :party: :love: :love: :lol: :lol: :dancer: :chat: :angle: :bouncing4:

[chrys]

M.Knebel wenn mein spiel dan fertig ist darfst du eine copie haben

SPQR-Informatics

Kannst ja mal gucken gehen unter CIV HISTORIES da findest du bilder.

:coder:

[Darty]

ok ok ... Mein MediaPlayer hatte die Version 6.xxx Und erst ab der Version 7 würde es laut Information die WMV fehlerfrei laufen. Habe mir aber jetzt die Version 9 downgeloaded. Und habe nun keine Probleme mehr. Also mein Programm läuft wie bisher gesagt. Aber Dein Programm musst Du AutoOpen auf False stellen dann geht es auch :)

[Darty]

Zitat:

Zitat von chrys

M.Knebel wenn mein spiel dan fertig ist darfst du eine copie haben

SPQR-Informatics

Kannst ja mal gucken gehen unter CIV HISTORIES da findest du bilder.

:coder:

Dass freut mich sehr :) Darauf bin ich wirklich gespannt und wünsche Dir noch viel Erfolg bei der Programmierung.
Aber bedenke !! So wie in meinen Fall wenn einer ein MediaPlayer hat der kleiner als Version 7 ist wird wohl probleme haben bei dem abspielen von Deiner WMV Datei. Er wird es dann nur hören aber nicht sehen können. Lösung wäre entweder ne anderes Format dass auch ältere Player es darstellen kann, oder eben darauf hinweisen :)

[chrys]

wie gesagt das war nur eine test datei (film) der original ist dann in AVI bzw. DivX :witch:

[Affje800]

ich habe auch ein problem und zwar denke ich, dass es an der wmv datei liegt. kann TMediaplayer wmv öffnen??

[Die Muhkuh]

Zitat:

Zitat von Affje800

ich habe auch ein problem und zwar denke ich, dass es an der wmv datei liegt. kann TMediaplayer wmv öffnen??

Normalweiße ja. Hättest auch selber ausprobieren können :wink:

[Affje800]

ja ich mein ja nur, bei mir geht das videofile, bei 2 anderen nicht.

[Die Muhkuh]

Vielleicht liegts bei dennen am Mediaplayer...

[Affje800]

mit dem code

Delphi-Quellcode:

Form2.MediaPlayer1.FileName:= extractfilepath(paramstr(0)) + '\Data\Intro\Intro.wmv';

kommmt eine exception:

siehe bild.