Entwickler-Ecke

Multimedia / Grafik - Alle Sounds stoppen


XoomIt - So 14.09.03 19:16
Titel: Alle Sounds stoppen
Moin,
in meinem Programm läuft eine Hintergrundmusik ( siehe Programmier Tip "http://www.swissdelphicenter.ch/de/showcode.php?id=1643 [http://www.swissdelphicenter.ch/de/showcode.php?id=1643]" ) und parallel dazu andere Töne. Ich suche nach einem Befehl / einer Möglichkeit alle Töne verstummen zu lassen.
Bei der normalen PlaySound Funktion kann man sich zur Not behelfen, indem man einen "tonlosen" Sound abspielt, bei der "SendMCICommand"-Prozedur ( siehe Tip ) geht das nicht, da ein Sound durch abspielen eines anderen nicht stoppt.
Gibt es da eine möglichst einfache Lösung ( sowas wie KillAllSounds *gg* )
Danke schonmal und bis denn
XoomIt


Moderiert von user profile icontommie-lie: URL-Tag hinzugefügt


FeG - So 14.09.03 20:39
Titel: Re: Alle Sounds stoppen
Hi,

ähh, ohne mich genauer damit befasst zu haben, wie wär's mit dem, was auf SwissDelphiCenter steht?
SendMCICommand('close waveaudio'); ???

MfG,
FeG


XoomIt - Mo 15.09.03 19:42

Nein, funktioniert nicht. Hatte ich schon probiert und mich auch gewundert warum es nicht geht.
Danke trotzdem, und wenn noch wer was weiss, bitte ...
MfG
XoomIt


kasi - Mo 15.09.03 20:41

Versuch es mal in dieser Art

Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
procedure TForm1.Button3Click(Sender: TObject);
begin 
  SendMCICommand('open C:\data\zwitscher\feldspatz.wav type waveaudio alias spatz');
  SendMCICommand('play spatz');
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
  SendMCICommand('open C:\data\zwitscher\Flussseeschwalbe.wav type waveaudio alias schwalbe');
  SendMCICommand('play schwalbe');
end;

procedure TForm1.Button5Click(Sender: TObject);
begin
  SendMCICommand('close schwalbe');
  SendMCICommand('close spatz');
end;


KASI