Главная страница | назад





Article #17083: displaying seconds, minutes, tracks of an AVI

 Question and Answer Database

FAQ2083D.txt   displaying seconds, minutes, tracks of an AVI
Category   :VCL
Platform    :All
Product    :All 32 bit  

Question:
How can I display the real time track selection and current 
play time of an Audio CD track?


Answer:
The following example demonstrates displaying the current track
and play time of an AudioCD, updating the values every second by
utilizing a timer event.

Example:

uses
   MMSystem;

procedure TForm1.Timer1Timer(Sender: TObject);
var
  Trk : Word;
  Min : Word;
  Sec : Word;
begin
  with MediaPlayer1 do begin
    Trk := MCI_TMSF_TRACK(Position);
    Min := MCI_TMSF_MINUTE(Position);
    Sec := MCI_TMSF_SECOND(Position);
    Label1.Caption := Format('%.2d',[Trk]);
    Label2.Caption := Format('%.2d:%.2d',[Min,Sec]);
  end;
end;

7/16/98 4:31:28 PM
 

Last Modified: 01-SEP-99