Probleme mit Sound (TMedia Player)

[Jiggah]

Moin erstmal.

Ich stehe unter Zeitdruck. Ich soll morgen mein Programm im Informatikunterricht abgeben. Dieses ist gespickt mit .bmp und .wav. Ich hab das Prog gebrannt auf CD pack das in der Schule ins Laufwerk und
der PC gibt mir eben die Fehlermeldung aus, dass er die Sound nicht finden kann.

Zur Situation:

- Ich habe die Sounds per TMedia Player eingefügt (mit vollem Pfad)
(MediaPlayer1.FileName:='C:\Dokumente und Einstellungen\Jiggy\Desktop\Delphi Award 2007\Sounds\sound.wav'; usw. eben...)
- Ja, meine Sounds sind im gleichen Ordner wie mein Projekt
- Klar, habe ich auch die Sounds auf die CD gepackt

Wäre kool, wenn ihr mir schnell helfen könntet!!!

Danke im Voraus. Peace!

[TOmega]

Der Pfad zu den Sounddateien stimmt natürlich nur auf deinem eigenen PC. Auf einem anderen PC oder der CD findet der Mediaplayer deine Dateien nicht mehr.
Bestimme beim Start den aktuellen Pfad deine Anwendung.

Delphi-Quellcode:

var
 Pfad : string;
...

GetDir(0,Pfad);
MediaPlayer.FileName:=Pfad+'Dateiname';

[TonyR]

Delphi-Quellcode:

GetDir(0,Pfad);

das ist nix gut...
Getdir gibt IMHO glaub ich das aktuelle Arbeitsverzeichnis aus...
Das dürfte natürlich am Anfang das richtige Verzeichnis sein, aber Programme können auch mit einem Anderen Arbeitsverzeichnis aufgerufen werden...
Besser ist:

Delphi-Quellcode:

var
Pfad : string;
...

pfad:=ExtractFilePath(ParamStr(0));
MediaPlayer.FileName:=Pfad+'\Dateiname.wav';

[Jiggah]

var pfad:string;

pfad:=ExtractFilePath(ParamStr(0));

MediaPlayer1.FileName :=Pfad+'Sounds\banjo.wav';
Mediaplayer1.Open;
MediaPlayer1.Play;

Entschuldige das ich so dumm Frage, aber pfad??? Soll der der Pfadname wie z.B. C: rein???
Ich bin eben ein Delphi Noob ^^

[TonyR]

Wenn schon dann 'C:\', Ja.

[TOmega]

Sieh Dir doch einfach an, was die Funktion zurückgibt. Es ist der komplette Pfad zu deinem Programm, natürlich inkl. Laufwerk. Du must nur noch den Namen der Datei dazufügen.

[Jiggah]

Sorry aber ich schein ein schwerer Fall zu sein...Ich versteh das nich ganz!!!

Wenn ich da wieder einen Pfad angebe, kann das Prog doch wieder nur auf meine Source zugreifen oder nicht ???

Ich bin verwirrt ^^ :freak:

[TOmega]

Natürlich brauchst du den kompletten Pfad zu deiner Mediendatei, aber den richtigen. Deshalb kannst du ihn nicht fest vorgeben, sondern musst den aktuellen Pfad deiner Anwendung feststellen und den dann einsetzen. So kannst du deine Anwendung aus jedem beliebigen Ordner starten und die Funktion ExtractFilePath gibt dir den aktuellen Pfad zurück.

[Jiggah]

Ok! Wie soll das aussehen? Meine Sounddateien liegen im Ordner:

C:\Dokumente und Einstellungen\Jiggy\Desktop\Delphi Award 2007\Sounds\Sound.wav

Wie muss der Code jeze genau aussehen??? Könntest mir da unter die Arme greifen???

[TOmega]

Genau so wie oben beschrieben.
Übrigens, wenn du dein Programm auf eine CD brennst sind deine Dateien ja eben nicht mehr in diesem Pfad sodern z.B. in 'E:\'
Wenn du dein Programm aus der Entwicklungsumgebung startest, gibt dir die Funktion ExtractFilePath auch den Pfad 'C:\Dokumente und Einstellungen\Jiggy\Desktop\Delphi Award 2007\Sounds' zurück, wenn du von der CD startest, dann ist das Ergebnis der Funktion eben nur 'E:\'

[Jiggah]

procedure TForm1.Timer1Timer(Sender: TObject);
var pfad:string;
begin

//Abspielen der Hintergrundmusik//

pfad:=ExtractFilePath(ParamStr(0));

MediaPlayer1.FileName :=Pfad+'\banjo.wav';;
Mediaplayer1.Open;
MediaPlayer1.Play;

timer1.enabled:=false;

end;

Das ist jeze mein Code. Antwort vom Programm 'FATALER FEHLER!'!!!
Was tun ???

[IngoD7]

Zitat:

Zitat von Jiggah

procedure TForm1.Timer1Timer(Sender: TObject);
var pfad:string;
begin

//Abspielen der Hintergrundmusik//

pfad:=ExtractFilePath(ParamStr(0));

MediaPlayer1.FileName :=Pfad+'\banjo.wav';;
Mediaplayer1.Open;
MediaPlayer1.Play;

timer1.enabled:=false;

end;

Das ist jeze mein Code. Antwort vom Programm 'FATALER FEHLER!'!!!
Was tun ???

Stimmt denn damit nun der Pfad oder nicht???

Kann doch nicht so schwer sein, mal eben ein Label auf die Form zu klatschen und sich darin den Pfad anzeigen zu lassen.

Wenn dein Programm (das Exe-File) im Verzeichnis C:\X liegt, dann versucht er jetzt deine Datei C:\X\banjo.wav abzuspielen. Liegt da die Sounddatei? Oder liegt die Sounddatei in C:\X\Sounds? Dann --> MediaPlayer1.FileName :=Pfad+'\sounds\banjo.wav';

[TOmega]

Noch ein Hinweis:
Setze das Timer1.Enabled:=false; an den Anfang. Bei kurzen Zeitintervallen wird sonst deine Timer Prozedur aus sich selbst heraus wieder aufgerufen.

[Jiggah]

[Fataler Fehler] Ausgabedatei 'C:\Dokumente und Einstellungen\Jiggy\Desktop\Delphi Award 2007\Endor_Game\endor_game.exe' kann nicht erstellt werden

Nun bekomm ich diese meldung...tut mir leid leute!!! ich bin ein nooooob ^^

[TOmega]

Vielleicht läuft dein Programm noch ?

[Jiggah]

Nein eigentlich nicht...müsste dann ja im Taskmanager angezeigt sein.

[TonyR]

Wenn es nicht an dem gerade Angeschrochenem liegt, dann müsste ja die falsche Quelltextzeile oder eine weitere Fehlermeldung irgendwo zu sehen sein... Zur Not startest du eben mal Delphi oder gleich Windoof neu und probierst es erneut....

[Jiggah]

Das geht trotzdessen nicht. Ich bin echt am verzweifel...Ich glaub das ganze mit dem pfad haut icht hin...

[TonyR]

Wenn er gar nicht erst kompiliert kann es kein Problem mit dem Pfad sein, Sag nochmal genau was passiert!

PS: Fang jetzt hier nicht zu flennen an :wink:

[Jiggah]

jeze kompiliert er aber gibt mir wieder die meldung aus, dass er die angegebene datei nicht finden kann. könnte es helfen, wenn ich das prog quasi blind auf pfad E: schreibe ???

[TonyR]

Delphi-Quellcode:

pfad:=ExtractFilePath(ParamStr(0));
MediaPlayer1.FileName :=Pfad+'\sounds\banjo.wav';

Damit muss es gehen!!!

Wenn nicht dann lässt du dir folgendes nochmal anzeigen

Delphi-Quellcode:

showmessage(Pfad+'\sounds\banjo.wav')

und vergleichst es mit dem Pfad, der wirklich zu Deiner Datei führt! (Das wird ja im Explorer angezeigt)

[TOmega]

Zitat:

Zitat von Jiggah

jeze kompiliert er aber gibt mir wieder die meldung aus, dass er die angegebene datei nicht finden kann. könnte es helfen, wenn ich das prog quasi blind auf pfad E: schreibe ???

Und wenn das Laufwerk F:\ heisst?
Also sorry, hier klinke ich mich jetzt aus.
Es bringt nichts, wenn du blind irgendwelchen code kopierst ohne zu wissen, was er bedeutet. Um das zu verstehen brauchst du nur unter den entsprechenden Befehlen in der OH nachzusehen. Wenn dann noch konkrete Fragen sind, dann gerne, aber viele deiner Fragen zeigen, dass du nicht wirklich weisst, was du da machst.
Dein Lehrer möchte sicher nicht sehen, ob wir das verstanden haben, oder?

[Jiggah]

JAAAAAAAAA Mann ich liebe TonyR!!! THX, ich werd dich bei der Danksagung erwähnen!!

^^ dickes thx

P.S. TOmega tut mir leid, dass es auch Leute gibt, die nicht die Weisheit mit Löffeln gefressen haben. Zum Glück gibt es Leute wie Tony die es anderen beibringen, sonst wärst du heute auch noch nich so weit oder???

Peace out!!! :dancer:

[TonyR]

Es freut mich ja. dass ich dir helfen konnte,
aber ich habe im Prinzip auch nichts anderes geschrieben wie Omega, bloß habe ich eben die Geduld aufgebracht es einmal mehr zu schreiben

Kein Grund für Lob oder Verdammnis an dieser Stelle also hier :wink:

[TOmega]

Ich behaupte nicht die Weisheit mit Löffeln gefressen zu haben, aber du hast den richtigen Quellcode schon am Anfang bekommen und dir nicht mal die Mühe gemacht zu verstehen, was dort steht, sondern hast immer gleich nach einer Minute um Hilfe gerufen. Etwas Eigeninitiative kann nicht schaden. Wenn dir immer jemand alles vorsagt, lernst du nichts.

[IngoD7]

Wenn das hier stimmte...

Zitat:

Zitat von Jiggah

Meine Sounddateien liegen im Ordner:
C:\Dokumente und Einstellungen\Jiggy\Desktop\Delphi Award 2007\Sounds\Sound.wav

... und er das hier bekam ...

Zitat:

Zitat von Jiggah

[Fataler Fehler] Ausgabedatei 'C:\Dokumente und Einstellungen\Jiggy\Desktop\Delphi Award 2007\Endor_Game\endor_game.exe' kann nicht erstellt werden

... dann hat ihm das hier ...

Zitat:

Zitat von TonyR

Delphi-Quellcode:

pfad:=ExtractFilePath(ParamStr(0));
MediaPlayer1.FileName :=Pfad+'\sounds\banjo.wav';

Damit muss es gehen!!!

... auch nicht geholfen.

Abgesehen davon, dass ich ihm das MediaPlayer1.FileName :=Pfad+'\sounds\banjo.wav' zuvor auch schon schrieb. :stupid:

Er hat halt ein wenig weitergebastelt und nun scheint es irgendwie zu funktionieren.

Mir soll's recht sein. :)

//NACHTRAG:
Im übrigen liefert ExtractFilePath den "\" am Ende schon mit.

[Jiggah]

So und um das ganze abzuschließen meine Finalefrage.
Ich habe in meinem Code bevor ich mit pfad:=ExtractFilePath(ParamStr(0)); gearbeitet habe, den Code mediaplayer1.close benutzt um die Sounds zu beenden. Das geht jetzt nicht mehr...Wie schaffe ich da Abhilfe???

P.S. Will ja niemanden verdammen, aber es geht ums Prinzip, ich arbeite gerade mal 8 Wochen mit delphi, normalerweise lernt man da nich mehr als Button bauen. Ich bin eben noch Padavan. Da kann man jawohl n bissl einsehen erwarten oder?

[IngoD7]

Zitat:

Zitat von Jiggah

Ich habe in meinem Code bevor ich mit pfad:=ExtractFilePath(ParamStr(0)); gearbeitet habe, den Code mediaplayer1.close benutzt um die Sounds zu beenden. Das geht jetzt nicht mehr...Wie schaffe ich da Abhilfe???

Das hat normalerweise nichts miteinander zu tun.

Da aber niemand weiß,
a.) wie dein Code jetzt überhaupt aussieht und
b.) was genau ein "Das geht jetzt nicht mehr..." zu bedeuten hat,
wird dir niemand eine Antwort geben können.

Schau mal in die Hilfe bei TMediaPlayer.Close, um danach etwas genauer auszukunden, ob und mit welchem Ergebnis (Eigenschaft TMediaPlayer.Error) die Methode Close aufgerufen wird.