Get information of playing track

Posted in Others

Use MCI_TMSF_MINUTE, MCI_TMSF_SECOND and MCI_TMSF_TRACK structures, if you want to get some information about playing sound track. This example use Timer component and MCI_TMSF_MINUTE structure for getting count of seconds of small playing file.

procedure TForm1.Button1Click(Sender: TObject);
begin
  with MediaPlayer1 do
  begin
    FileName:='Test.wav';
    Open;
    Play;
  end;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
var
  Min: Real;
begin
  Min:=MCI_TMSF_MINUTE(MediaPlayer1.Position);
  Label1.Caption:='Seconds - '+FloatToStr(Min/4);
end;