Delphi Sounds Problem

[Dalai]

Wenn der Pfad stimmt, stimmt der Dateiname nicht. Denn die FileExists-Funktion gibt ja nicht ohne Grund False zurück.

MfG Dalai

[Windowscratcher]

@Dalai Ich hab jetzt das hier mal ergänzt (zu Testzwecken)

Code:

procedure PlayMySound(SndName: String); //uses mmSystem
var
  FilePath: String;
begin
  FilePath := ExtractFilePath(ParamStr(0))   + SndName + '.wav';
   ShowMessage(FilePath);
  if FileExists(FilePath) then
      //SndPlaySound(PAnsiChar(FilePath), SND_ASYNC ); //Alternative
     PlaySound(PChar(FilePath), hInstance, SND_ASYNC or SND_FILENAME)
     else //SndPlaySound(PAnsiChar(FilePath), SND_ASYNC ); //Alternative
     PlaySound(PChar(FilePath), hInstance, SND_ASYNC or SND_FILENAME)
end;

Also wird der Befehl ausgeführt, auch wenn "FileExists(Filepath)" false ist. Ich weiß, ich hätte da auch einfach nur den Befehl hinschreiben können, aber ... ich weiß es selber nicht :D

Natürlich kommt der Fehlerton, wie erwartet.
Ich bin unter Windows 7 und da werden ja keine Dateiendungen angezeigt. Muss ich die Datei dann umbenennen und die Dateiendung hinzufügen?

[Dalai]

Zitat:

Zitat von Windowscratcher (Beitrag 1165962)

Ich bin unter Windows 7 und da werden ja keine Dateiendungen angezeigt. Muss ich die Datei dann umbenennen und die Dateiendung hinzufügen?

Lass dir die Dateiendungen anzeigen, alles andere ist Pfusch (verstehe eh nicht, warum MS diesen Unsinn seit Jahren vorgibt, der nur für Verwirrung sorgt und Angriffsflächen bietet). Systemsteuerung > Orderoptionen > Register "Ansicht" > Option "Erweiterungen bei bekannten Dateitypen ausblenden" deaktivieren.

MfG Dalai

[Windowscratcher]

Naja, klappt leider weiterhin nicht...
Mein Vater sagt (er war mal Programmierer, ist aber was länger her :D), der Dateipfad müsste nicht von "C:" aus starten, sondern vom Projektordner. Stimmt das?
Und wie verfahre ich jetzt mit dem Fehler? :? (Tut mir leid, dass ich Druck mache, aber ich habe nicht mehr viel Zeit :/ )

[Dalai]

Zitat:

Zitat von Windowscratcher (Beitrag 1165965)

Naja, klappt leider weiterhin nicht...

Zitat:

Mein Vater sagt [...], der Dateipfad müsste nicht von "C:" aus starten, sondern vom Projektordner. Stimmt das?

Nein. So wie der Pfad da steht, ist er ein absoluter Pfad. Und der Rückgabewert der Funktion FileExists deutet darauf hin, dass es diese Datei nicht gibt. Vom Projektordner aus wäre es ein relativer Pfad, mit denen man immer sehr vorsichtig umgehen muss, denn eine Relation hat immer einen Bezugspunkt.

Zitat:

Und wie verfahre ich jetzt mit dem Fehler?

Gibt es die Datei Modem.wav denn nun in dem angegebenen Verzeichnis, nachdem du die Dateierweiterungen anzeigen lässt? Nicht dass die Datei Modem.wav.wav heißt...

MfG Dalai

[Windowscratcher]

Die Datei existiert und heißt auch nicht Modem.wav.wav. Ich weiß echt nicht, wieso Lazarus so spinnt... Die Datei ist vorhanden, der Pfad ist auch richtig, aber irgendetwas will nicht...

[Dalai]

Mach mal Lazarus zu, öffne es wieder, lade dein Projekt und starte es via Menü Start > Alles neu kompilieren.

Ergänzung:
Gib mal unter Start > Ausführen folgendes ein (am besten den Kram kopieren):

Code:

"%ProgramFiles%\Windows Media Player\wmplayer.exe" "C:\Users\Filip\Documents\Schule\Physik und Technik\Physik und Technik\PT-Projekt\Programm\Modem.wav"

inkl. der Anführungszeichen. Wird die Datei gefunden und abgespielt?

MfG Dalai

[Windowscratcher]

Tut sich nichts, immer noch der Fehlerton...

[Dalai]

Siehe meine Ergänzung im vorigen Post.

[Windowscratcher]

Ja, wird abgespielt.