LOOP mit MediaPlayer?

[smart]

Guten Morgen!

Kann man mit einem TMediaPlayer eine *.wav endlos abspielen, also 'LOOP'?

Gruß
Heike

[Sunlight7]

Hallo Heike! <- Ich hab Deutsch gelernt

So köntest Du mit dem MediaPlayer eine endlos Wiedergabe machen:

Delphi-Quellcode:

procedure TForm1.MediaPlayer1Notify(Sender: TObject);
begin
   If MediaPlayer1.Position=MediaPlayer1.Length then begin
      MediaPlayer1.ReWind;
      MediaPlayer1.Play;
   end;
end;

Oder alternativ ginge das auch:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
   sndPlaySound('C:\LoopSound.wav', SND_ASYNC+SND_LOOP+SND_NODEFAULT);
end;

Liebes Grüßle, Sunlight7.

[smart]

Zitat von Sunlight7:

Hallo Heike! <- Ich hab Deutsch gelernt

So köntest Du mit dem MediaPlayer eine endlos Wiedergabe machen:

Delphi-Quellcode:

procedure TForm1.MediaPlayer1Notify(Sender: TObject);
begin
   If MediaPlayer1.Position=MediaPlayer1.Length then begin
      MediaPlayer1.ReWind;
      MediaPlayer1.Play;
   end;
end;

Hi Sunlight7

Dumme Frage, wo kommt das rein? Wenn ich den Code in einem Button setzte, klappt es nicht?

Gruß
Heike

[BenjaminH]

Das muss ins OnNotify Ereigniss des TMediaPlayers

[Sunlight7]

So Dumm ist die Frage doch nicht.

Das mit sndPlaySound (oben als Beispiel in einem ButtonClick), wäre eine Möglichkeit ohne TMediaPlayer.
Den Rest hat Benjamin schon verraten.

[EWeiss]

OffTopic

@Heike

Zitat:

Dumme Frage, wo kommt das rein? Wenn ich den Code in einem Button setzte, klappt es nicht?

Es gibt keine dumme Fragen, nur dumme Antworten

@Sunlight7

Zitat:

Hallo Heike! <- Ich hab Deutsch gelernt
So köntest Du mit dem MediaPlayer eine endlos Wiedergabe machen:

köntest ??? Hmmmm ...

gruß

[Sunlight7]

[OffTopic]

Zitat von EWeiss:

köntest ??? Hmmmm ...

... aber es hat keiner gesagt, das ich Perfekt Deutsch kann...
[/OffTopic]

[EWeiss]

Zitat von Sunlight7:

[OffTopic]

Zitat von EWeiss:

köntest ??? Hmmmm ...

... aber es hat keiner gesagt, das ich es Perfekt kann
[/OffTopic]

LOL mir gehts nicht anders
gruß