TMediaPlayer çalan dosyanın bittiği anı bulmak...

[tolgaozb]

Selamlar
Projede TmediaPleyer ile birden çok dosyayı çalmak istiyorum.Örneğin birinci dosya bittiği vakit TTimer ile 1 dk bekleme yapıp ikinci dosyayı çalmasını istiyorum.Bunun için TMediaPlayer'in dosyayı çalarken ve bittiği anı nasıl bilebilirim? Ya da dosyanın ne kadar süre çalacağını nasıl bulabilirim?

Şimdiden Teşekkürler

[conari]

sitede birden fazla player örnekleri var bunların kod örneklerine bakabilirsiniz.

Kod: Tümünü seç

procedure Tform2.TimesCounter;//This procedure doesn't work for video files e.g. *.avi,*.mpeg,*.mpg,*.mov....,
                              //If you know how to work with video files please tell me by email
var t : integer;   //t=mediaplayer's position
    min, sec : integer;   //minutes, seconds  in calculations!!
    s1, s2, result : string; // minutes(s1), seconds(s2) when displayed as result
begin
if (times = 'counting') or (times= '') then  //shows the play time of the song (counting)
 begin
   t:=form1.MP.Position;
   sec := t div 1000;
   min := sec div 60;
   sec := (sec - min * 60);
   if min >9 then s1 := intToStr(min)
   else s1 := '0' + intToStr(min);
   if sec >9 then s2 := intToStr(sec)
   else s2 := '0' + intToStr(sec);
   result := S1 + ':' + S2;
   Panel1.Caption:=''+result+' ';
   form1.Panel2.Caption:=''+result+' ';
 end
else        //shows the play time of the song (counting out)
 begin
   try
   t:= form1.MP.Length - form1.MP.Position;
   sec := t div 1000;
   min := sec div 60;
   sec := (sec - min * 60);
   if min >9 then s1 := intToStr(min)
   else s1 := '0' + intToStr(min);
   if sec >9 then s2 := intToStr(sec)
   else s2 := '0' + intToStr(sec);
   result := S1 + ':' + S2;
   Panel1.Caption:='- '+result+' ';
   form1.Panel2.Caption:='- '+result+' ';
   except
    exit;
   end
end;
end;

[khanco]

media player pozisyonu max pozizyona eşit olduğunda çalan dosya bitmiş olur. istediğin kadar bekler sonrada dosya adını değiştirirsin.