Uses mmsystem - .wav abspielen

**Minz**

Hallo,
habe in einem früheren Beitrag gefunden dass man folgendermaßen
wav-dateien abspielen kann:

uses mmsystem;

type
TSoundFlag=(SND_SYNC, SND_ASYNC, SND_LOOP);
...

var flag: TSoundFlag;

flag:=SND_ASYNC;
sndPlaySound('sound.wav',flag);

Da meckert er bei mir inkompatible Typen TSoundFlag und Integer.
Kann mir jemand weiterhelfen?

Gruß Minz

**Garby**

Hallo,

schreibs einfach mal so rein:
sndPlaySound('sound.wav', SND_ASYNC); mfg
Garby

**Minz**

Hab ich schon danke, funktioniert auch,
nur dann kann ich ja nicht bedingungsmäßig
kombinieren.

Gruß Minz

**Garby**

Meinst du vielleicht so?
sndPlaySound('sound.wav', SND_ASYNC or SND_LOOP); In diesem Fall wird der Sound asynchron und in einer Schleife abgespielt.

Garby

**Minz**

nein mein ich auch nicht

das soll nach Bedingungen geschaltet werden.

ich will ja nicht tausend if-abfragen schreiben
wenn async true then sndplaysound(...async)
wenn async and loop true then sndplaysound(...async or loop)
...

umständlich oder?

aaalsoo...deswegen der weg mit dem Datentyp TSoundFlag

alles klaro?

Minz

**teebee**

Hi Minz,

Wenn Du TSoundFlag deklarierst, wird z.B. SND_LOOP vom Compiler intern als 2 betrachtet, und hat mit dem SND_LOOP aus mmsystem nix zu tun (ist dort als 8 definiert).

Warum gehst Du den umständlichen Weg über eine neue Typdefinition überhaupt, die Konstanten SND_ASYNC usw. sind in mmsystem doch schon definiert.

Du wirst um If-Abfragen nicht herumkommen, wenn Du Dir Dein flag zusammenbastelst. (Ist zumindest IMHO nicht umständlicher als Dein Weg.)

Beispiel:

flag := 0;
If async Then flag := flag Or SND_ASYNC;
If loop Then flag := flag Or SND_LOOP;
...
sndPlaySound('xyz.wav',flag);

Funktioniert wohlgemerkt nur _ohne_ Deine Typdefinition.

Gruss, teebee

**teebee**

- versehentlich doppelt gepostet _

**teebee**

btw: sndPlaySound gibt es eigentlich nur noch aus Kompatibilitätsgründen, schau Dir mal die Funktion PlaySound an, damit bist Du wesentlich flexibler, kannst sogar Sounds als Resource in Deine Exe einbinden. Finde ich jedenfalls viel praktischer...

Gruss, teebee

**Minz**

Axo

vielen Dank für die Info.

Werde mir PlaySound dann mal anschauen.
Momentan liegen die Sound-Files so mit im Verzeichnis.
Wenns in der EXE mit drin wäre, wärs natürlich sehr praktisch.

Minz

Uses mmsystem - .wav abspielen

Uses mmsystem - .wav abspielen

Einfacher

Forumregeln

Garby Registriert seit: 17. Mär 2003 Ort: Tirol 199 Beiträge Delphi 2005 Professional	#2 Einfacher 19. Mär 2003, 12:10 Hallo, schreibs einfach mal so rein: sndPlaySound('sound.wav', SND_ASYNC); mfg Garby Walter Wenn zwei dasselbe tun, ist es noch lange nicht dasselbe (Adelphi)
	Zitat

Minz Registriert seit: 19. Dez 2002 476 Beiträge	#3 19. Mär 2003, 12:14 Hab ich schon danke, funktioniert auch, nur dann kann ich ja nicht bedingungsmäßig kombinieren. Gruß Minz
	Zitat

Garby Registriert seit: 17. Mär 2003 Ort: Tirol 199 Beiträge Delphi 2005 Professional	#4 19. Mär 2003, 12:33 Meinst du vielleicht so? sndPlaySound('sound.wav', SND_ASYNC or SND_LOOP); In diesem Fall wird der Sound asynchron und in einer Schleife abgespielt. Garby Walter Wenn zwei dasselbe tun, ist es noch lange nicht dasselbe (Adelphi)
	Zitat

Minz Registriert seit: 19. Dez 2002 476 Beiträge	#5 19. Mär 2003, 15:02 nein mein ich auch nicht das soll nach Bedingungen geschaltet werden. ich will ja nicht tausend if-abfragen schreiben wenn async true then sndplaysound(...async) wenn async and loop true then sndplaysound(...async or loop) ... umständlich oder? aaalsoo...deswegen der weg mit dem Datentyp TSoundFlag alles klaro? Minz
	Zitat

teebee Registriert seit: 17. Jan 2003 Ort: Köln 460 Beiträge Delphi 6 Professional	#7 20. Mär 2003, 13:34 - versehentlich doppelt gepostet _
	Zitat

teebee Registriert seit: 17. Jan 2003 Ort: Köln 460 Beiträge Delphi 6 Professional	#8 20. Mär 2003, 13:39 btw: sndPlaySound gibt es eigentlich nur noch aus Kompatibilitätsgründen, schau Dir mal die Funktion PlaySound an, damit bist Du wesentlich flexibler, kannst sogar Sounds als Resource in Deine Exe einbinden. Finde ich jedenfalls viel praktischer... Gruss, teebee
	Zitat

Minz Registriert seit: 19. Dez 2002 476 Beiträge	#9 20. Mär 2003, 13:42 Axo vielen Dank für die Info. Werde mir PlaySound dann mal anschauen. Momentan liegen die Sound-Files so mit im Verzeichnis. Wenns in der EXE mit drin wäre, wärs natürlich sehr praktisch. Minz
	Zitat