Entwickler-Ecke :: Thema anzeigen - tmediaplayer endless looping?

gangstaberber - Do 18.03.04 18:14
Titel: tmediaplayer endless looping?

hey
ich versuche schon seid tagen das eine mp3 endlosss abgespielt wird aber es will einfach nicht klappen.
vieleicht kann mir ja einer von euch sagen wo mein fehler ist ?
Vielen dank..

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:

procedure TForm1.FormCreate(Sender: TObject);
 begin
  o:=0;
  Mediaplayer1.visible:=false;
  MediaPlayer1.FileName := 'song.mp3';
  MediaPlayer1.Open;
  Mediaplayer1.play;
  MediaPlayer1.Notify := True;

 end;

procedure TForm1.MediaPlayer1Notify(Sender: TObject);
begin
  with MediaPlayer1 do
    if NotifyValue = nvSuccessful then begin
      Notify := True;
      MediaPlayer1.FileName := 'song.mp3';
      MediaPlayer1.Open;
      Mediaplayer1.play;
    end;
end;

muss ich die selber erstellen?
procedure TForm1.MediaPlayer1Notify(Sender: TObject);

Moderiert von Peter Lustig: Code- durch Delphi-Tags ersetzt

raven_22 - Sa 20.03.04 01:35

Ich habe hier was für dich.
Habe noch hier einen Play-button, einen Stop-Button und einen Pause-Button eingebaut.
Was du nicht brauchst, kannst ja weglassen.
Um die MP3 automatisch zu loopen, brauchst du einen Timer.
In diesen Timer wir geprüft, ob die MP3 noch läuft oder schon am Ende angekommen ist.
Wenn sie am Ende ist, wird sie zurückgesetzt und neu gestartet.
Solange der Timer läuft, wird der Song wiederholt.
Ist eigentlich ganz einfach, wenn man mal nachdenkt.

Gruß raven 8)

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:

procedure TForm1.FormCreate(Sender: TObject);
begin
  MediaPlayer1.Visible:=false;
  MediaPlayer1.FileName:='xyz.mp3';
  MediaPlayer1.Open;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  if MediaPlayer1.Position = MediaPlayer1.Length then
  // ^^ Prüft ob Song schon zu Ende ^^
  // Wenn Song zu Ende, neu starten

 Begin
  MediaPlayer1.Rewind; // Song auf Anfang zurücksetzten
  MediaPlayer1.Play;   // Song abspielen
 end
end;

procedure TForm1.PlayClick(Sender: TObject);
begin
  MediaPlayer1.Play;     // Song abspielen
  Timer1.Enabled:=true;  // Timer starten
end;

procedure TForm1.StopClick(Sender: TObject);
begin
  MediaPlayer1.Stop;     // Song stopen
  MediaPlayer1.Rewind;   // Song auf Anfang zurücksetzten
  Timer1.Enabled:=False; // Timer stopen
end;

procedure TForm1.PauseClick(Sender: TObject);
begin
  MediaPlayer1.Stop;     // Song stopen
end;

Moderiert von Peter Lustig: Code- durch Delphi-Tags ersetzt

Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2026 by Christian Stelzmann Alle Rechte vorbehalten.
Alle Beiträge stammen von dritten Personen und dürfen geltendes Recht nicht verletzen.
Entwickler-Ecke und die zugehörigen Webseiten distanzieren sich ausdrücklich von Fremdinhalten jeglicher Art!