[Webinar] Streamline your web hosting managementRegister Today

x
  • Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 271
  • Last Modified:

Tracks -property in MediaPlayer -object ?

Hi !

D2 help shows this exampel code to skips to the beginning of the last track on a CD audio device.

var
I:integer;

begin
with MediaPlayer1 do
if DeviceType = dtCDAudio then
begin
  Seek(TrackPosition[1]);
  for I := 1 to Tracks-1 do
    Next;
end;

>gives types don't fit -message?

1. How do you perform a simple task (by RadioGroupBox) to
go to the beginning of certain track and to the beginning of
certain track position (say at 2 min. 30 sec. on same track)

Many thanks for bothering you!
0
GISEXP
Asked:
GISEXP
1 Solution
 
interCommented:
With the following you can seek to any (Trac, Minute, Second)
But besure to add the MMSystem to you USES clause:


procedure SeekToTrack(M : TMediaPlayer; Trac, Minute, Second: Byte);
begin
 with M do
 if DeviceType = dtCDAudio then
 begin
   // we set the time to Track Minute Second Frame Format
   TimeFormat := tfTMSF;
   // This macro makes up a position from vars Frame is 0
   // for CDs
   Position := mci_Make_TMSF(Trac, Minute, Second,0);
 end;
end;

Igor
0
 
GISEXPAuthor Commented:
Thanks Igor!

This will do at the moment, I'll try to proceed in making the
UI for my birdsong CDs.

best regards.
0

Featured Post

Learn to develop an Android App

Want to increase your earning potential in 2018? Pad your resume with app building experience. Learn how with this hands-on course.

Tackle projects and never again get stuck behind a technical roadblock.
Join Now