Schleife

[BWRobert]

Hallo,

Ich bin grade dabei spaßeshalber eine "Blaulichtsteuerung" zu programmieren. Hierbei kann der Benutzer auf einem Steuerelement (BitButton) das Martinshorn anschalten. Ich habe eine Wave Datei, die diese Tonfolge abspielt, in eine Schleife programmiert. Sie läuft also nachdem man es angeschaltet hat z.b. 20 mal ab. Meine Vorstellung wäre nun aber, dass der Benutzer mit einem Klick das Signal anmacht und es einfach weiterläuft. So lange bis der Benutzer wieder auf den Button klickt und es sich ausschaltet.

Delphi-Quellcode:

procedure TForm1.BitBtnPressluftClick(Sender: TObject);
Var i :Integer;
begin
Repeat
  begin
   PlaySOUND(PChar('.\Pressluft-2.wav'),hInstance,snd_LOOP );
  end;
until ;
end;

Das wäre meine Überlegung gewesen. Nach until müsste dem Programm also gesagt werden "until click" oder irgend so was.

[Mithrandir]

Du musst deine Funktion zum Abspielen in eine eigene Funktion auslagern. Diese rufst du auf, wenn das Click-Event ausgelöst wird. Gleichzeitig setzt du eine globale Variable auf true, welche in der repeat-until-Schleife geprüft wird.

In der Schleife selbst bringst du noch ein application.processmessages unter, damit der Button-Click verarbeitet wird. Sollte jetzt das Click-Event ausgeführt werden und die globale Variable auf true stehen, dann wird die Funktion nicht nochmal ausgeführt, und die Variable bekommt den Wert false. Das führt wiederum dazu, dass die Schleife beendet wird.

Allerdings: Wenn das Programm noch etwas anderes machen soll, dann musst du dich mit Threads beschäftigen. Gibt aber genug Beispiele dafür. ;)

[Bummi]

http://www.swissdelphicenter.ch/torr...ode.php?id=335

[DeddyH]

Oder einfach so (wenn Bitmasken addiert werden, bekomme ich immer den großen grünen Arkl-Anfall):

Delphi-Quellcode:

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private-Deklarationen }
    FPlaying: Boolean;
  public
    { Public-Deklarationen }
  end;

...

uses MMSystem;

procedure TForm1.Button1Click(Sender: TObject);
const
  Dateiname = 'Pressluft-2.wav';
var
  Soundfile: PChar;
  Flags: Cardinal;
begin
  FPlaying := not FPlaying;
  if FPlaying then
    begin
      SoundFile := PChar(ExtractFilePath(ParamStr(0)) + Dateiname);
      Flags := SND_ASYNC or SND_LOOP;
    end
  else
    begin
      SoundFile := nil;
      Flags := 0;
    end;
  PlaySound(SoundFile, 0, Flags);
end;

[BWRobert]

Danke für die schnellen Antworten!
Ich werde mich zeitnah daran versuchen :)