Hallo erst mal.
1. in Public hab ich

markieren

Code:

stop : boolean

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

zusammenfalten · markieren

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)

markieren

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 ...

markieren

Delphi-Quellcode:

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

...macht.
rafft den code jemand?

zusammenfalten · markieren

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!

zusammenfalten · markieren

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?!?

Ähm... Nein das hiflt mir nicht

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

Ahh so klappts

zusammenfalten · markieren

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

Ähh was ist ein "thread"

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!!)

hier bissl source der dein problem lösen sollte

zusammenfalten · markieren

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;

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) )