sndPlaySound... und wenn fertig dann...

[NikoMitDaMacht]

Hallo erst mal.
1. in Public hab ich

Code:

stop : boolean

2. OnFormCreate
stop:=true; 3. einen button :

Delphi-Quellcode:

if stop=true then 
    begin 
        if sndPlaySound('C:\1.wav', snd_Async or snd_NoDefault) then
           begin
           button1.caption:='STOP';
           timer1.enabled:=true;
           end;
    end

else
    begin
    stop:=true;
    sndPlaySound(nil, snd_sync or snd_NoDefault);
    button1.caption:='PLAY'
    end;

4. den timer1 (interval=1)

Delphi-Quellcode:

if button1.Caption='STOP' then stop:=false;
timer1.enabled:=false;

das ganze klappt auch wunderbar so (wenn ich auf button1 klicke spielt er was und wenn ich noch mal klick dann nicht)
doch jetzt würd ich gerne das ganze noch so haben dass wenn er die wave komplett gespielt hat, er
dass ...

Delphi-Quellcode:

button1.caption:='PLAY';
stop:=true;

...macht.
rafft den code jemand?

[SleepyMaster]

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender:TObject);
begin
if Button1.Caption = 'PLAY' then
  begin
  Application.ProcessMessages;
  Button1.Caption:='STOP';
  sndPlaySound('C:\1.wav', snd_Async or snd_NoDefault);
  Application.ProcessMessages;
  Button1Click(Button1);
  end
else
  begin
  Button1.Caption:='PLAY'
  sndPlaySound(nil, snd_sync or snd_NoDefault);  
  end;
end;

Vielleicht hilft dir das ja ein wenig weiter!

[SleepyMaster]

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender:TObject); 
begin 
if Button1.Caption = 'PLAY' then 
  begin 
  Button1.Caption:='STOP';
  Timer1.Enabled:=true;
  sndPlaySound('C:\1.wav', snd_Async or snd_NoDefault);
  end 
else 
  begin 
  Button1.Caption:='PLAY';
  Timer1.Enabled:=false;
  sndPlaySound(nil, snd_sync or snd_NoDefault);
  end; 
end;

procedure TForm1.Timer1Timer(Sender:TObject);
begin
sndPlaySound('C:\1.wav', snd_Async or snd_NoDefault)
end;

Oder vielleicht auch das?!?

[NikoMitDaMacht]

Ähm... Nein das hiflt mir nicht

[SirThornberry]

Also ich würdes nicht async sondern sync verwenden. Das ganze dann in nen thread packen. Und dann beim beenden des threads die variable setzen. Kannst das natürlich auch ohne thread machen aber dann hängt die anwendung in der zeit

[NikoMitDaMacht]

Ahh so klappts

Delphi-Quellcode:

if Button1.Caption = 'PLAY' then
  begin 
  Button1.Caption:='STOP';
  Application.ProcessMessages;
  PlaySound('C:\1.wav', snd_Async or snd_NoDefault, 0);
  Application.ProcessMessages;
  button1.Caption:='PLAY'
  end 
else 
  begin 
  Button1.Caption:='PLAY' ;
  sndPlaySound(nil, snd_sync or snd_NoDefault);  
  end;

weiss zwar nich warum ich am ende von PlaySound eine 0 machen musste aber es funktioniert.
DANKE

[NikoMitDaMacht]

Ähh was ist ein "thread"

[NikoMitDaMacht]

ohh.. es klappt doch nicht du hast recht ,SirThornberry, die anwendug hängt
kannst du mir das mit dem Thread mal für hauptschüler erklären ( nich das ich einer bin!!)

[SirThornberry]

hier bissl source der dein problem lösen sollte

Delphi-Quellcode:

  TSoundThread = class(TThread)
  protected
    procedure Execute; override;
  end;

  TForm1 = class(TForm)
  [...]
  private
    procedure fThreadvorbei(Sender: TObject);
    [...]
  end;

[...]
procedure TSoundThread.Execute;
begin
  sndPlaySound('c:\windows\media\ringout.wav', snd_sync or snd_NoDefault)
end;

procedure TForm1.fThreadvorbei(Sender: TObject);
begin
  stop:=true;
end;

procedure TForm1.Button1Click(Sender: TObject);
var Lthread: TSoundThread;
begin
  Lthread := TSoundThread.Create(False);
  LThread.OnTerminate := fThreadvorbei;
  LThread.Resume;
  stop := false;
end;

[NikoMitDaMacht]

Ja gut soweit, doch wie kann man das jetzt so machen das wenn man mochmal
auf den button drück der playsound wieder aufhört
(sndPlaySound(nil, snd_sync or snd_NoDefault) )