Her er en metode med Progressbar:
Aflæse Position...
Sæt følgende 5 komponenter på din form: TMediaPlayer, TTimer, TProgressBar, TOpenDialog og en TButton.
Skriv følgende i din TButtons OnClick property.
procedure TForm1.Button1Click(Sender: TObject);
begin
if OpenDialog1.Execute then
begin
MediaPlayer1.Filename := OpenDialog1.FileName;
MediaPlayer1.Open;
ProgressBar1.Max := MediaPlayer1.Length;
ProgressBar1.Position := 0;
end;
end;
og dette i din TTimers OnTimer property:
procedure TForm1.Timer1Timer(Sender: TObject);
begin
if MediaPlayer1.Mode = mpPlaying then
ProgressBar1.Position := MediaPlayer1.Position;
end;
Sæt din TTimers "Interval" på omkrng 30.
Og sæt eventuelt din TProgressBars "Smooth" til True.
Kompile og test!
Tryk på din Button, find en lydfil fra din harddisk!
Tryk derefter på MediaPlayerens "Play" knap og du vil nu afspille lydfilen. Hvad du også vil se at du kan følge positionen (altså hvor langt du er henne i sangen) på din ProgressBar!
Syntes også lige jeg vil vide et eksempel hvor du kan spole frem og tilbage i musikken ligesom i mediaplayer:
Aflæse Position...
Sæt en følgende 5 komponenter på din form: TMediaPlayer, TTimer, TProgressBar, TOpenDialog og en TButton.
Skriv følgende i din TButtons OnClick property.
procedure TForm1.Button1Click(Sender: TObject);
begin
if OpenDialog1.Execute then
begin
MediaPlayer1.Filename := OpenDialog1.FileName;
MediaPlayer1.Open;
ProgressBar1.Max := MediaPlayer1.Length;
ProgressBar1.Position := 0;
end;
end;
og dette i din TTimers OnTimer property:
procedure TForm1.Timer1Timer(Sender: TObject);
begin
if MediaPlayer1.Mode = mpPlaying then
ProgressBar1.Position := MediaPlayer1.Position;
end;
Sæt din TTimers "Interval" på omkrng 30.
Og sæt eventuelt din TProgressBars "Smooth" til True.
Kompile og test!
Tryk på din Button, find en lydfil fra din harddisk!
Tryk derefter på MediaPlayerens "Play" knap og du vil nu afspille lydfilen. Hvad du også vil se at du kan følge positionen (altså hvor langt du er henne i sangen) på din ProgressBar!