Delphi Sounds Problem

[himitsu]

[edit]

Zitat:

Danke,Danke,Danke!!!! Jetzt klappt es!

Na dann ist ja alles Gut.


Was mir grade aufgefallen ist.
PlaySound ist natürlich besser und von sndPlaySound sollte man die Finger lassen. Eventuell hat das dann auch keine Probleme mit WAVEs in anderen Bitbreiten.
Wenn man mehr will, dann sollte man sich mal die anderen waveXXX-Funktionen ansehn.

Zitat:

sndPlaySound:

This function offers a subset of the functionality of the PlaySound function; sndPlaySound is being maintained for backward compatibility.

PS: Kann der TMediaPlayer nicht auch WAVEs abspielen?
[/edit]

Delphi-Quellcode:

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;

Ähhhh, du hast du eine Funktion gebaut, welche einen Alternativen Aufruf beinhaltet, hast aber am Ende alles ausgetauscht?

Im If-Then- und im Else-Block steht genau das Selbe drin.
Fazit: Es Das IF vollkommen sinnlos, da beise Male genau das Selbe gemacht wird.

Außerdem, wenn FileExists nichts findes, was soll dann abgespielt werden? Es wurde doch nichts gefunden.


Nonmal nachgefragt, weil ich langsam nicht mehr durchseh:
FileExists liefert immernoch False?

Wenn ja, dann solltest du rausfinden was mit deinem Pfad nicht stimmt und wo deine WAVE-Datei wirklich liegt.
Alles Anderer ist vollkommen sinnlos, denn wenn die Datei nicht dort gefunden werden kann, wohin der Pfad zeigt, dann kann man sonstwas versuchen, diese Datei wird niemals abgespielt.
Was nicht vorhanden ist, das kann auch nicht abgespielt werden.