Problem beim Programmbeenden

[looser]

Beim Laden der Form wird eine WAV mittels

playsound ('wave.wav',0,snd_async or snd_loop);

in einer Endlosschleife wiedergegeben.


Beim beenden mittels X (Schließen) Buttons habe ich
im OnClose Ereignis der Form dann stehen

playsound (nil,0,snd_async);

Das Programmfenster schließt, der Sound hört auf aber
in dem Moment geht die CPU-Last der EXE gegen 100%
(und die EXE verschwindet eben auch nicht).

Was mache ich falsch ????

[Alexander]

Ich denke mal, dass das an der Endlosschleife liegt.
Nimm die doch einfach mal heraus und probiere es nochmal und berichte ;-)

[FriFra]

Du kannst Deinen Sound auch ein letztes mal abspielen... ohne loop:

playsound ('wave.wav',0,snd_async);

Damit wäre die Schleife auch abgebrochen.

Vielleicht verursacht ja das "nil" den Fehler...

[looser]

:(
Habe probiert Sound zu starten mit ...

playsound ('wave.wav',0,snd_async or snd_loop);
playsound ('wave.wav',0,snd_async);
playsound ('wave.wav',0,snd_sync);

Sound spielt immer an

wenn ich beim OnClose 'wave.wav' anstatt nil eingebe
hört der Sound nicht mehr auf.

In allen Fällen aber immer 100% CPU-Auslastung und Task
läuft weiter.
:shock:

[APP]

Hallo

OH sagt:

Zitat:

pszSound

A string that specifies the sound to play. If this parameter is NULL, any currently playing waveform sound is stopped. To stop a non-waveform sound, specify SND_PURGE in the fdwSound parameter.

und meint

Delphi-Quellcode:

playsound(0,0,snd_async or snd_loop);

oder

Delphi-Quellcode:

playsound(0,0,SND_PURGE);

statt nil 0

Sollte nun funken.

[looser]

:cry:

SND_PURGE bringt's auch nicht.
CPU geht auf 100% bei EXE.

Heul, schnief .... einer muß es doch wissen ...

Hilfe !!

[FriFra]

Was passiert, wenn Du dich garnicht weiter um den Sound kümmerst und Deine Anwendung einfach mit Halt; abschiesst?

[APP]

Hallo,

nun, ich habe eine Mini-App geschrieben und bei mir geht die CPU Auslastung auf max. 5% (während der Laufzeit):

Delphi-Quellcode:

...
VAR
   Form1                           : TForm1;
IMPLEMENTATION
USES
   MMSystem;
{$R *.DFM}
PROCEDURE TForm1.Button1Click(Sender: TObject); //Start
BEGIN
   playsound('C:\X-Files.wav', 0, snd_async OR snd_loop);
END;
PROCEDURE TForm1.Button2Click(Sender: TObject); //Stopp
BEGIN
   playsound(NIL, 0, SND_PURGE);
END;
PROCEDURE TForm1.FormClose(Sender: TObject; VAR Action: TCloseAction); // Close Form
BEGIN
   playsound(NIL, 0, snd_async OR snd_loop);
END;

• Kann es sein, dass in Deinem onClose Ereignis mehr drinnen steht, oder das Du nicht alle Ressourcen freigibst,...??
  
• Ist die CPU Auslastung in Deinem Programmm gleich, wenn Du playsound auskommentierst?
  
• Wie groß ist Dein Wav-File?

p.s.:
OK.,OK., NIL ist besser als 0 :oops:
Warnung in der IDE:

Code:

252. Konstante 0 wurde zu NIL konvertiert

[flomei]

Bin mir ja nicht sicher aber könnte

Delphi-Quellcode:

Applicaton.Terminate;

nicht helfen wenn nichts mehr gespeichert werden muss und so?
Vielleicht mal testen und gucken ob die CPU Auslastung immer noch so hoch geht.

MfG Florian :hi:

[looser]

Habe jetzt mal ein // vor alle soundbefehle gesetzt.
Es wird also keinerlei Soundkommando gegeben.
Und siehe da CPU immer noch bei 100% wenn X-Button
gedrückt wird.

Es liegt also nicht am Sound.
Jetzt muß ich mal suchen. :oops:

[looser]

:oops:
Habe Fehler entdeckt. Hatte Wavescroll eingebaut.
Das lief nach beenden in einer Endlosschleife weiter.
Da ich nicht weiß wie man das verhindert habe ich
Wavescroll komplett aus Projekt entfert (seufz).

Danke an alle und Sorry für mein Unwissen ... :lol: