Problem mit Sound abspielen

[Sven_84]

Hallo hab Problem mit Wave Sound abspielen. Hab folgende Syntax benutzt:

Delphi-Quellcode:

var s: string;
begin
GetDir(0, s);
sndPlaySound(PChar(s+'\test.wav'),SND_ASYNC);

Bekomme nen fatalen Fehler aber sonst keinen Hinweis oder Fehler....Was mach ich jetzt???

Gruß
Sven

[Meflin]

Hi,

1. was sagt er denn, der fehler ?
2. s ist immer undefiniert, also nutzlos, ergo existiert der sound vermutlich nicht, zumindest nicht da, von wo dein prog ihn öffnen will
edit: d.h., ich kenn getdir nicht, aber es hat so den eindruck auf mich als ob ;) kann aber auch anders sein...

[Sven_84]

Er steht NUR der fatale Fehler da das is ja mein Problem was ich hab...

die variable s wird doch als variable für den pfad genommen der der ist wo die programmdateien liegen oder???

[Meflin]

Zitat:

Zitat von Sven_84

Er steht NUR der fatale Fehler da das is ja mein Problem was ich hab...

die variable s wird doch als variable für den pfad genommen der der ist wo die programmdateien liegen oder???

also, wie gesagt, ich weis nicht was deine GetDir Funktion tut, in meiner oh ist sie nicht drin, also nehme ich an du hast sie selber geschrieben.
wenn die getdir funktion den variablenwert s nicht verändert, ist s entweder leer, oder zufallsgefüllt (ka was der delphi comiler da genau macht), jedenfalls enthält sie keinerlei pfad.

[3_of_8]

Ich würde es mit Ressourcensounds machen, Beispiel ist hier: http://www.dsdt.info/tipps/?id=353

Ansonsten würde ich vorher nicht dieses getdir zeug machen sondern:

s:=extractfilepath(application.exename);

Damit erhältst du den Pfad deiner Anwendung.