دریافت مدت زمان یک music یا video

[Delphi-Man]

سلام
می خواستم بدونم چطوری میشه مدت زمان رو با TMediaPlayer به ثانیه و دقیقه فهمید. خودم نوشتم با length ولی کار نمیده. آهنگ 3:20 رو می نویسه 3:31

[جواد ملاولی]

خودم نوشتم با length ولی کار نمیده. آهنگ 3:20 رو می نویسه 3:31
سلام. چه جوری نوشتی؟

[Delphi-Man]

تازه برای فیلم و اینا هم کار نمیده


var total:string;
u,s,m,h:integer;
begin
try
seek.Max:=mp.Length;
seek.Position:=mp.Position;
u:=seek.max;
u:=strtoint(copy(inttostr(u),1,length(inttostr(u))-3));
h:=0;s:=0;m:=0;
s:=u;
m:=s div 60;
if (m>0) then begin
s:=s mod 60;
h:=m div 60;
if (h>0) then begin
m:=m mod 60;
end;
end;
total:=IntToStr(h)+':'+IntToStr(m)+':'+IntToStr(s) ;
label1.Caption:=total;
except
end;
end;

[AliReza Vafakhah]

من قبلا این کار شما رو انجام دادم

میلی ثانیه میگیره و به ساعت و دقیقه و ثانیه تبدیل میکنه

h := Mili div 3600;

t := Mili - (h * 3600);
m := t div 60 ;

t := (m * 60) + (h * 3600);
s := Mili - t;


Text:=IntToStr(h)+':'+IntToStr(m)+':'+IntToStr(s);