Order and save right now! 20% off with the 729824315 dicscount code for Ultimate Pack and any another product for Delphi from Greatis Programming!

Others

⤷ Get information of playing track

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;

More for developers

● Delphi Components

● .Net Components

● Software for Android Developers

● Databases for Amazon Associates
Amazon Categories
Amazon Nodes