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]

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 ^^

[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:\'