Hintergrundmusik

[qb-tim]

Hi,

ich habe gerade erfahren, dass es einen MediaPlayer in Delphi gibt.

Bei dieser Gelegenheit möchte ich fragen, ob es möglich ist eine Musikdatei in einer Schleife wiederzugeben und an einem nicht festgelegtem Punkt abzubrechen.

Mir fehlen aber sämtliche Kenntnisse über TMediaPlayer... :(

[verwirrt]

Hallo,

Endless looping with the TMediaPlayer

Sonst könnte man in einen Timer oder in ein Ereignis, wenns sowas gibt, beim Beenden der Wiedergabe das schreiben:

Delphi-Quellcode:

If (Mediaplayer.position > EndPos) and (Loop = true) then
begin
  Mediaplayer.position := StartPos;
  MediaPlayer.Play;
end;

Gruß

[HuxXx]

Hi...

Der MediaPlayer hat ein Event namens OnNotify, d.h. es wird ausgeführt, wenn die Musikdatei zu ende gespielt wurde.
In diesem Event könntest du das Lied nochmals von vorne abspielen lassen.

Diese Schleife kannst du mit "MediaPlayer1.Stop" unterbrechen.

So ungefähr sollte es funktionieren:

Delphi-Quellcode:

procedure TForm1.MediaPlayer1Notify(Sender: TObject);
begin
MediaPlayer1.Play; // Nochmals abspielen, wenn lied zu ende is
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
MediaPLayer1.FileName:='C:\fox_mccloud.mp3';
MediaPlayer1.Open;       // Öffnet Datei
MediaPlayer1.Play;       // Und spielt es ab
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
MediaPlayer1.Stop;     // anhalten...
end;